如何用excel自动发送邮件

【文件属性】：

文件名称：如何用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