程序允許發送具有特定模式的羣組消息

Question

我想編寫一個程序（可能是VB），允許用戶一次向列表中的所有人發送電子郵件（預先存儲在MS Excel或txt中）。在電子郵件內容正文的第一行中，我想寫一些類似「親愛的xxx」的地方，其中xxx是與此電子郵件發送人相關的名稱。我想這樣做的原因是因爲如果有大量的接收器可以節省時間，並且我不需要爲它們中的每一個修改「xxx」，並且程序會在我的相關電子郵件中自動執行從列表中選擇地址。我嘗試使用內置的VBA在Excel內實現它，但是我找不到自動替換「XXX」的方法，Outlook將爲不同的接收器打開多個窗口。有關如何實現它的任何想法？我覺得我需要一個循環來檢查清單，但我不知道如何去做。我很好，編寫一個新的程序，而不是修改Excel。謝謝。

Answer 1

你可以寫這樣的事情：如果你想使用模型，你可以簡單地以HTML格式編寫的XLS一些隱藏的細胞內

Dim aOutlook As Object 
Dim aEmail As Object 
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String 

Set aOutlook = CreateObject("Outlook.Application") 
For Each xx In Range("A1:A5") 
    Set aEmail = aOutlook.CreateItem(0) 
    aEmail.Subject = "Test" 
    aEmail.HTMLBody = "Dear <b>" & xx.Value & "</b><p>I sent to you ..." & Range("B7").Value 
    aEmail.To = xx.Offset(0, 1).Value 
    aEmail.display 
    'Send Mail 
    ' aEmail.Send 
Next 

...
此子寫至5人（來自A1：A5的名稱，來自B1：B5的電子郵件）組成的文本（親愛的XXX）加上標準部分（單元格B7）。