求一个excel配合outlook群发的代码

纸鸽

急用，来不及学了，我在excel表了有数据库，分别为 姓名、积分、最后消费日期、邮箱。这几列，求个代码可以群发的，邮件内容基本一致，只是姓名、积分、最后消费日期要改。  求大神。网站，妖姐，ROY

admin

要调用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

邮件合并应该可以的啊。

纸鸽

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

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

roych

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

Dim myolApp As New O ...

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

纸鸽

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

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

admin

先要有一个客户 对应 邮箱的列表
然后 再调用Outlook来发。很快的

roych

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

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