使用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模式即可
posted @   ken-yu  阅读(34)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 本地部署 DeepSeek:小白也能轻松搞定!
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 从 Windows Forms 到微服务的经验教训
· 李飞飞的50美金比肩DeepSeek把CEO忽悠瘸了,倒霉的却是程序员
· 超详细,DeepSeek 接入PyCharm实现AI编程!(支持本地部署DeepSeek及官方Dee
点击右上角即可分享
微信分享提示