Smtp邮件发送
; *******************************************************
; 例子 - 检查D盘空间大小，如果小于1000M则发送邮件提醒 ; ******************************************************* #include "SmtpMailer.au3" $var = Floor(DriveSpaceFree( "D:\" )) ;邮件配置 $s_SmtpServer = "smtp.***.com.cn" ;SMTP服务器 $s_FromName = "***" ;邮件发送人 $s_FromAddress = "****@***.com.cn" ;邮件发送者地址 $s_ToAddress = "****@***.com.cn" ;收件人地址 $s_Subject = "警告:空间剩余&$var&!" ;邮件标题 $as_Body = "" ;邮件正文 $s_AttachFiles = "" ;附件地址 $s_CcAddress = "" ;抄送地址 $s_BccAddress = "" ;密件抄送地址 $s_Username = "***" ;用户名 $s_Password = "***" ;密码 $IPPort = 25 ;发送端口，Gmail使用的发送端口为465 $ssl = 0 MsgBox(4096, "Free space on d:", $var & " MB") If $var > 1000 Then Exit Else sendmail () EndIf Func sendmail () Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl) If @error Then MsgBox(0, "邮件发送失败", "错误代号:" & @error & " 描述:" & $rc) EndIf EndFunc |
查看所有评论
All Right Reserved