Local iMsg,iConf
Declare SHORT InternetGetConnectedState In wininet.Dll;
INTEGER @lpdwFlags, Integer dwReserved
lConnect=displayState()
If lConnect
iMsg = Createobject("CDO.Message")
iConf = Createobject("CDO.Configuration")
Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 'Your SMTP server name here'
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update()
Endwith
With iMsg
.Configuration = iConf
.To = "me@hotmail.com"
.CC = ""
.BCC = ""
.From = "me@somewhere.com"
.Subject = "This is a test"
.Fields("Priority").Value = 1 && -1=Low, 0=Normal, 1=High
.Fields.Update()
.TextBody = "This is the body text" && Plain text
**.HTMLBody = "This is the HTML body text" && Optional HTML message
.AddAttachment( "C:/" + lcFilename) && Valid filename
.Send()
Endwith
iMsg = .Null.
iConf = .Null.
Flds = .Null.
Else
Messagebox("Could not send the message, you internet connection is down.")
Endif
Procedure displayState
Local lConnected
lConnected = .F.
lpdwFlags = 0
If InternetGetConnectedState (@lpdwFlags, 0) = 1
lConnected = .T.
Endif
Return lConnected
Endproc