Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' Create instance of ExchangeClient class by giving credentials
- Dim client As Aspose.Email.Exchange.ExchangeClient = New Aspose.Email.Exchange.ExchangeClient("https://webmail.eaglepointco.com", "tuser@eaglepointco.com", "TEus36!!", "eaglepoint.portland")
- ' Create instance of type MailMessage
- Dim msg As Aspose.Email.Mail.MailMessage = New Aspose.Email.Mail.MailMessage()
- msg.From = "tuser@eaglepointco.com"
- msg.To = "nicolas.ward17@gmail.com"
- msg.Subject = "test"
- msg.HtmlBody = "test"
- ' Send the message
- Try
- client.Send(msg)
- Console.WriteLine("made it")
- Catch ex As Exception
- Console.WriteLine("failed")
- End Try
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement