2021

您所在的位置：网站首页 › 简述如何利用outlook发送邮件 › 2021

2021

2023-12-19 05:26| 来源: 网络整理| 查看: 265

VBA利用企业邮箱自动发送邮件 1、应用场景2、VBA生成PDF附件3、企业邮箱设置发送账户4、VBA利用企业邮箱发送邮件利用Windows任务计划设置定时执行小结

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 = "" strMsg = strMsg & "亲，公司已经为您的客户发出货物:" strMsg = strMsg & "发货产品种类和数量参考明细附件" strMsg = strMsg & "今日发货占用资金:" & Range("L10").Value & "元" strMsg = strMsg & "日资金成本：" & Range("L11").Value & "元" strMsg = strMsg & "请及时联系客户开票和收款,如有疑问，请与销售内勤联系！" 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系统中最后一米的定制化问题，提高了客户体验度和满意度。

【本文地址】

2021

2021

今日新闻

推荐新闻