If FirstTime Then
SMTP.Initialize(strServerAdr, iPort, strUser, strPassword, "SMTP")
Select Case iMode
Case 1
SMTP.StartTLSMode = True
Case 2
SMTP.UseSSL = True
End Select
Log(SMTP.UseSSL)
Log(SMTP.StartTLSMode)
End If
'SMTP.AuthMethod = SMTP.AUTH_CRAM_MD5
SMTP.To.Add(strTo)
SMTP.Subject = "iNetStatus - Test message"
SMTP.Body = "This is a test notification from iNetStatus software." & _
" This message Is sent To indicate the email setting for the software are correct"
'SMTP.AddAttachment(File.DirRootExternal, "somefile")
SMTP.Send