求一個(gè)excel配合outlook群發(fā)的代碼

紙鴿

急用，來(lái)不及學(xué)了，我在excel表了有數(shù)據(jù)庫(kù)，分別為 姓名、積分、最后消費(fèi)日期、郵箱。這幾列，求個(gè)代碼可以群發(fā)的，郵件內(nèi)容基本一致，只是姓名、積分、最后消費(fèi)日期要改。  求大神。網(wǎng)站，妖姐，ROY

admin

要調(diào)用Outlook來(lái)發(fā)送，可參考這段代碼，將相關(guān) 標(biāo)題  郵箱換成你自己的，做個(gè)循環(huán)

Dim myolApp As New Outlook.Application          '創(chuàng)建Outlook應(yīng)用程序?qū)ο?br /> 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)  '獲取默認(rèn)文件夾為收件箱
    For i = 1 To myFolder.Items.Count
        With myFolder.Items(i)
            If EmailEntryID = .EntryID Then
                olEmail.EntryID = .EntryID
                olEmail.UnRead = .UnRead    '未讀標(biāo)志
                olEmail.SenderName = .SenderName    '發(fā)件人姓名
                olEmail.SenderEmailAddress = .SenderEmailAddress     '發(fā)件人電子郵件地址
                olEmail.CC = .CC   '抄送
                olEmail.BCC = .BCC      '秘密抄送
                olEmail.Subject = .Subject     '主題
                olEmail.LastModificationTime = .LastModificationTime    '發(fā)送日期和時(shí)間
                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

郵件合并應(yīng)該可以的啊。

紙鴿

roych 發(fā)表于 2016-6-14 08:47
郵件合并應(yīng)該可以的啊。

這個(gè)是給領(lǐng)導(dǎo)用的，我需要弄一個(gè)一鍵的。。。

roych

admin 發(fā)表于 2016-6-13 21:45
要調(diào)用Outlook來(lái)發(fā)送，可參考這段代碼，將相關(guān) 標(biāo)題  郵箱換成你自己的，做個(gè)循環(huán)

Dim myolApp As New O ...

這個(gè)能分開(kāi)內(nèi)容發(fā)嗎？
例如，A客戶(hù)的資料只發(fā)給A的郵箱

紙鴿

roych 發(fā)表于 2016-6-14 09:05
這個(gè)能分開(kāi)內(nèi)容發(fā)嗎？
例如，A客戶(hù)的資料只發(fā)給A的郵箱

不知道。。。這竄代碼沒(méi)看懂

admin

先要有一個(gè)客戶(hù) 對(duì)應(yīng) 郵箱的列表
然后 再調(diào)用Outlook來(lái)發(fā)。很快的

roych

紙鴿 發(fā)表于 2016-6-14 09:09
不知道。。。這竄代碼沒(méi)看懂

應(yīng)該是需要讀取郵件列表和對(duì)應(yīng)的郵件內(nèi)容，然后循環(huán)。
郵件合并則不需要使用循環(huán)，每個(gè)郵件對(duì)應(yīng)相應(yīng)的內(nèi)容。