使用CDO发送电子邮件并首先检查连接状态



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
上一篇:后处理之径向模糊


下一篇:Camera.targetTexture和SetTargetBuffers的区别