【文件属性】:
文件名称:如何用excel自动发送邮件
文件大小:24KB
文件格式:DOC
更新时间:2014-09-18 09:36:41
E-mail
如何自动发送邮件
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 = EmailAddr
.CC = Emailcc
.Subject = Subj
.Body = Msg
.Send
End With
网友评论
- 文件下载只有两个网址,没用的。