当前位置:企业云邮 » 企业目录 » 绍兴 » 文章详细

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

  • 1
  • 2
  • 3
  • 4

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

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29

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

小结

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

<>


阅读:0
日期:2021-03-18

打印 】 【 关闭 】  【 字体: 】 
上一篇: java调用邮箱_Java调用api使用企业邮箱账户发送邮件(示例代码)
下一篇: 外贸用什么邮箱好?企业邮箱哪个好用又安全?
  >> 相关文章
 

服务热线

0574-55011290

微信二维码