如何用excel自动发送邮件下载

[weixin_39820780]

如何自动发送邮件
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim Subj As String
Dim EmailAddr As String
Dim Emailcc As String
Dim Msg As String

'Create Outlook object
.CreateItem(olMailItem)
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = EmailA
相关下载链接：//download.csdn.net/download/clin525/3558036?utm_source=bbsseo