email smtp

[husky_doggy]

i have got error message when i debugging it,,
ERROR message : Nullreferenceexception
what is wrong with my code??

my code:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim message As New EmailMessage
message.Subject = "test email"
message.BodyText = " test done"

Dim client As New Recipient("ABC", "[email protected]")
message.To.Add(client)
Dim emailsession As New OutlookSession
emailsession.EmailAccounts("Gmail").Send(message)'<<<error here
MsgBox("email sent")


End Sub