标签:iMsg text CDO 发送 iConf lConnected && 电子邮件 com
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
标签:iMsg,text,CDO,发送,iConf,lConnected,&&,电子邮件,com 来源: https://www.cnblogs.com/chinancsa/p/15960045.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。