Advertisement
Guest User

Untitled

a guest
Jul 9th, 2015
222
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.90 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4. ' Create instance of ExchangeClient class by giving credentials
  5. Dim client As Aspose.Email.Exchange.ExchangeClient = New Aspose.Email.Exchange.ExchangeClient("https://webmail.eaglepointco.com", "tuser@eaglepointco.com", "TEus36!!", "eaglepoint.portland")
  6.  
  7. ' Create instance of type MailMessage
  8. Dim msg As Aspose.Email.Mail.MailMessage = New Aspose.Email.Mail.MailMessage()
  9. msg.From = "tuser@eaglepointco.com"
  10. msg.To = "nicolas.ward17@gmail.com"
  11. msg.Subject = "test"
  12. msg.HtmlBody = "test"
  13.  
  14. ' Send the message
  15. Try
  16. client.Send(msg)
  17. Console.WriteLine("made it")
  18. Catch ex As Exception
  19. Console.WriteLine("failed")
  20. End Try
  21. End Sub
  22. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement