使用autoit发送邮件

调用系统自带的CDO接口可以用SMTP模式发送各大第三方的邮箱,只需要开启POP

Func SendEmail()
    ;CDO库是Windows系统默认带有的组件。
    Local $objEmail = ObjCreate("CDO.Message")

    With $objEmail
        ; 设置发件人、收件人和主题
        .From = "发件人@163.com"
        .To = "收件人@163.com"
        .Subject = "test"
        ; 设置邮件正文使用html格式，使用 & "<br>" & _  实现换行
        .HtmlBody = "你好." & "<br>" & _
                "thank you, thank you very much." & "<br>" & _
                "thank you, thank you very much." & "<br>" & _
                "再见"

        ; 添加附件
        .AddAttachment("D:\data\dedede.xlsx")

        ; 设置SMTP服务器配置
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ; cdoSendUsingPort
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        ; 设置邮箱登录信息
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ; cdoBasic
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "发件人@163.com"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "授权码，不是登录163邮箱密码"

        ; 更新配置
        .Configuration.Fields.Update()

        ; 发送邮件
        .Send
    EndWith

EndFunc   ;==>SendEmail

; 调用发送邮件的函数
SendEmail()
MsgBox(0, "Email", "邮件发送成功!")

 

3/SMTP模式即可