使用VBA控制outlook发送邮件

erichu

使用VBA控制outlook发送邮件
我尝试通过VBA控制邮件群发，同时保证每个人看到的收件人都是唯一的，从网上搜集了相关代码，如下所示：
但存在几个问题：
1. 关于定义名称，下列程序中，myOlapp是否一定要定义，我发现网上公布的部分程序未定义但同样能执行，为什么？
2. 下列代码执行过程中，MailItem 出现“用户定义类型未定义”，为什么？
3. with myMail部分，哪里有相关资料了解详细，因为有些邮件还涉及“附件”、“图片”等内容，是否和outlook相关？

谢谢！

Sub SMail()
Dim myOlapp As Object
Dim i As Integer
Dim sTo As String
Dim sSubject As String
Dim sBody As String
Dim myMail As MailItem
Set myOlapp = CreateObject("Outlook.application")
i = 1
Sheet1.Activate
While Cells(i, 1).Value <> ""
   sTo = Cells(i, 1)     'to
   sSubject = Cells(i, 2)     'subject
   sBody = Cells(i, 3)     'body
   Set myMail = myOlapp.CreateItem(OlMailItem)
   With myMail
     .To = sTo
     .Subject = sSubject
     .Body = sBody
     .send
   End With
  Set myMail = Nothing
i = i + 1
Wend
Set myOlapp = Nothing
End Sub

aaaaabbbbb

在EXCEL里, 工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上

5674chen

收藏，等有时间仔细学习