Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
smtpClient.Initialize("mail1.xxxxxx.com", 25, "xxxx@xxxxxx.com", "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 = "WorkOrderSystem-NoReply@xxxxxxxx.com"
smtpClient.To.Add("xxxxxxxx@gmail.com")
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