基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 4 元　

支付宝支付

微信支付

   源码介绍

---

VBA群发邮件1.xlsm

Sub CreateMail()

   Dim myOutApp As Object

   Dim myItem As Object

   Set myOutApp = CreateObject("Outlook.Application")

   '加入循环就可以群发了

   'do with

   Set myItem = myOutApp.CreateItem(0)

'   Set myItem = myOutApp.CreateItem(olMailItem) '创建一封空邮件

   With myItem

      .To = "w@gmail.com" '收件人

      .CC = "h163@163.com; wm@qq.cn" '抄送

      .Subject = "主题"

      .Body = "正文"

      .Display  '显示邮件,要用时最好把这行注释掉

   End With

   myItem.Send    '执行发送事件， 是否可以放在循环体以外，一块发送？

   'Loop

   ' myItem.Unload

   Set myItem = Nothing

   Set myOutApp = Nothing

End Sub