' Service
Sub Process_Globals
dim SMTP1 as SMTP
End Sub
Sub sendEmail
SMTP1.Initialize(..., "SMTP1")
[... Setup SMTP1 ...]
SMTP1.Send
ToastMessageShow("sending message...")
End Sub
Sub SMTP1_MessageSent(Success As Boolean)
If Success Then
ToastMessageShow("message sent.")
Else
ToastMessageShow(LastException.Message)
End If
End Sub