Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
smtpClient.Initialize("mail1.xxxxxx.com", 25, "[email protected]", "xxxxxxxxx", "SMTP")
Send_EMail("This is a test","WO App EMail test")
End If
End Sub
Sub Send_EMail(text As String,subject As String)
smtpClient.StartTLSMode = False
smtpClient.UseSSL = True
smtpClient.AuthMethod = smtpClient.AUTH_LOGIN
smtpClient.MailFrom = "[email protected]"
smtpClient.To.Add("[email protected]")
smtpClient.Subject = Starter.EmpId & " " & subject
smtpClient.Body = text
smtpClient.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
Log(Success)
If Success Then
ToastMessageShow("EMail sent successfully", True)
Else
ToastMessageShow("Error sending EMail", True)
Log(LastException.Message)
End If