Office中国论坛/Access中国论坛

标题: 求一个excel配合outlook群发的代码 [打印本页]

作者: 纸鸽 时间: 2016-6-13 18:54
标题: 求一个excel配合outlook群发的代码
急用，来不及学了，我在excel表了有数据库，分别为姓名、积分、最后消费日期、邮箱。这几列，求个代码可以群发的，邮件内容基本一致，只是姓名、积分、最后消费日期要改。求大神。网站，妖姐，ROY

作者: admin 时间: 2016-6-13 21:45
要调用Outlook来发送，可参考这段代码，将相关标题  邮箱换成你自己的，做个循环

Dim myolApp As New Outlook.Application       '创建Outlook应用程序对象
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myattachments As Outlook.Attachments
Dim i As Integer
Dim olEmail As OutlookEmail
Set myNamespace = myolApp.GetNamespace("MAPI")             '获取MAPI命名空间
Set myFolder = myNamespace.GetDefaultFolder(FolderType)  '获取默认文件夹为收件箱
For i = 1 To myFolder.Items.Count
      With myFolder.Items(i)
         If EmailEntryID = .EntryID Then
            olEmail.EntryID = .EntryID
            olEmail.UnRead = .UnRead '未读标志
            olEmail.SenderName = .SenderName '发件人姓名
            olEmail.SenderEmailAddress = .SenderEmailAddress    '发件人电子邮件地址
            olEmail.CC = .CC '抄送
            olEmail.BCC = .BCC    '秘密抄送
            olEmail.Subject = .Subject    '主题
            olEmail.LastModificationTime = .LastModificationTime '发送日期和时间
            olEmail.Body = .Body       '正文
            olEmail.HTMLBody = .HTMLBody    '正文
            olEmail.Size = .Size    '大小
            olEmail.Importance = .Importance    '重要性
            olEmail.IsAttachments = IIf(.Attachments.Count > 0, True, False)
         End If
      End With
   Next
GetOutlookEmail = olEmail

Set myolApp = Nothing
Set myNamespace = Nothing
Set myFolder = Nothing

作者: roych 时间: 2016-6-14 08:47
邮件合并应该可以的啊。[attach]59276[/attach]

作者: 纸鸽 时间: 2016-6-14 08:54

roych 发表于 2016-6-14 08:47
邮件合并应该可以的啊。

这个是给领导用的，我需要弄一个一键的。。。

作者: roych 时间: 2016-6-14 09:05

admin 发表于 2016-6-13 21:45
要调用Outlook来发送，可参考这段代码，将相关标题邮箱换成你自己的，做个循环

Dim myolApp As New O ...

这个能分开内容发吗？
例如，A客户的资料只发给A的邮箱

作者: 纸鸽 时间: 2016-6-14 09:09

roych 发表于 2016-6-14 09:05
这个能分开内容发吗？
例如，A客户的资料只发给A的邮箱

不知道。。。这窜代码没看懂

作者: admin 时间: 2016-6-14 13:34
先要有一个客户对应邮箱的列表
然后再调用Outlook来发。很快的

作者: roych 时间: 2016-6-14 15:09

纸鸽发表于 2016-6-14 09:09
不知道。。。这窜代码没看懂

应该是需要读取邮件列表和对应的邮件内容，然后循环。
邮件合并则不需要使用循环，每个邮件对应相应的内容。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)