Using SPUtility.SendEmail (SharePoint way) Try Dim thisWeb As SPWeb = SPControl.GetContextWeb(Context) Dim toField As String = “someone@microsoft.com” Dim subject As String = “Test Message” Dim body As String = “Message sent from SharePoint” Dim success As Boolean = SPUtility.SendEmail(thisWeb, True, True, toField, subject, body) Catch ex As Exception ‘ handle exception End Try More …