2021-01-3 VBA利用企业邮箱自动发送邮件

1、应用场景

所在企业提出能不能把SAP Cloud每日发货的信息定时发送到销售经理的公司邮箱和企业微信。

2、VBA生成PDF附件

按照上面的数据格式转化为PDF文件 下面展示一些 内联代码片。

Sheets(“邮件发送”).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPDFFileName, Quality:=xlQualityStandard, From:=1, To:=2, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

3、企业邮箱设置发送账户

4、VBA利用企业邮箱发送邮件

下面展示一些 内联代码片。

strSubject = "货物发送提醒"
    strMsg = "<div class=\""normal\"">"
    strMsg = strMsg & "亲，公司已经为您的客户发出货物:</div>"
    strMsg = strMsg & "<div class=\""highlight\"">发货产品种类和数量参考明细附件</div>"
    strMsg = strMsg & "<div class=\""normal\"">今日发货占用资金:" & Range("L10").Value & "元</div>"
    strMsg = strMsg & "<div class=\""highlight\"">日资金成本：" & Range("L11").Value & "元</div>"
    strMsg = strMsg & "<div class=\""gray\"">请及时联系客户开票和收款,如有疑问，请与销售内勤联系！</div>"
    
     Set CDOMail = CreateObject("CDO.Message")
    '发信设置
    CDOMail.From = strSend ‘发信人有限
    CDOMail.To = strEmail
    CDOMail.Subject = strSubject '邮件主题
    CDOMail.HTMLBody = strMsg '邮件内容
    CDOMail.AddAttachment strAttach '附件未知
    STUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
     
    With CDOMail.Configuration.Fields
      .Item(STUl & "smtpserver") = "smtp.exmail.qq.com" 'SMTP服务器地址
'      .Item(STUl & "smtpserverport") = 25 'SMTP服务器端口
      .Item(STUl & "sendusing") = 2 '发送端口
      .Item(SUTl & "smtpusessl") = 1  '加密方式
      .Item(STUl & "smtpauthenticate") = 1 '远程服务器需要验证
      .Item(STUl & "sendusername") =strSend'发送方邮箱名称
      .Item(STUl & "sendpassword") = strPass '发送方邮箱密码
      .Item(STUl & "smtpconnectiontimeout") = 60 '连接超时（秒）
      .Update
    End With

利用Windows任务计划设置定时执行

小结

通过Windows系统的任务计划，定时打开xlsm文件，并在WorkOpen事件中添加函数执行，就可以自动发送邮件提醒了。
利用VBA编写少量的代码就可以实现了自动服务功能，整个工具代码行不到500行，可以定时自动发送邮件，解决了ERP系统中最后一米的定制化问题，提高了客户体验度和满意度。