Note: The other languages of the website are Google-translated. Back to English

如何通過Outlook從Excel向列表發送個性化的群發電子郵件?

例如,我在工作表中有以下數據范圍,其中包含“名稱”,“電子郵件地址”,“註冊代碼”列,現在,我想向A列中單獨的電子郵件地址發送帶有個性化問候語和自己的註冊代碼的消息。要解決此問題,以下方法可以為您提供幫助。

doc發送個性化電子郵件1

使用郵件合併功能從Excel將個性化的大量電子郵件發送到列表

使用VBA代碼從Excel發送個性化的大量電子郵件到列表

使用Kutools for Excel將個性化的大量電子郵件發送到帶有不同附件的列表


箭頭藍色右氣泡 使用郵件合併功能從Excel將個性化的大量電子郵件發送到列表

用話語 郵件合併 功能,您可以快速輕鬆地完成此工作,請按以下步驟操作:

1. 啟動一個新的空白Word文檔,然後單擊 郵件 > 選擇收件人 > 使用現有清單,請參見屏幕截圖:

doc發送個性化電子郵件2

2。 在 選擇數據源 窗口中,選擇包含要使用的數據范圍的工作簿,然後單擊 已提交 按鈕,請參見屏幕截圖:

doc發送個性化電子郵件3

3。 即將來臨 選擇表 對話框,請選擇具有所需數據范圍的工作表,然後單擊 OK 按鈕,請參見屏幕截圖:

doc發送個性化電子郵件4

4。 電子郵件主文檔和您的地址列表已經連接在一起,現在,您可以編輯文本消息並添加佔位符,以指示每條消息中唯一信息的顯示位置。

(1.)要插入其單獨的問候語名稱,請單擊 郵件 > 插入合併域 > 姓名,個性化名稱已插入到消息中,且字段名稱由包圍 «».

doc發送個性化電子郵件5

(2.)繼續輸入您的信息並插入 註冊碼 進入您需要的地方,請參見屏幕截圖:

doc發送個性化電子郵件6

5。 撰寫郵件後,可以單擊 預覽結果郵件 選項卡以預覽電子郵件並進行更改,然後再實際完成合併。

6。 確定沒有問題後,您可以將電子郵件發送給單獨的收件人,請單擊 郵件 > 完成並合併 > 發送電子郵件,請參見屏幕截圖:

doc發送個性化電子郵件7

7。 然後在彈出 合併到電子郵件 對話框中,進行以下操作:

(1.)從 下拉列表,請選擇 電子郵件地址 柱;

(2.)您可以將主題鍵入 主旨 行文本框;

(3.)從 發送記錄 部分,選擇 全部.

doc發送個性化電子郵件8

8。 然後點擊 OK,電子郵件將立即發送給具有單獨的註冊碼的單獨收件人,發送電子郵件之後,您可以轉到Outlook以確保電子郵件已成功發送。


向具有不同附件的多個收件人發送個性化電子郵件:

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, Excel的Kutools's 發電子郵件 功能,您可以根據需要通過Outlook通過Excel將個性化電子郵件快速發送給具有不同附件的多個收件人。 同時,您也可以抄送或密送給特定人員的郵件。       立即下載並免費試用Excel的Kutools!

doc發送個性化電子郵件18 1


箭頭藍色右氣泡 使用VBA代碼從Excel發送個性化的大量電子郵件到列表

除郵件合併功能外,以下VBA代碼也可以幫您一個忙,請按照以下步驟操作:

1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

VBA代碼:從Excel發送個性化的批量電子郵件到列表:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. 然後按 F5 鍵來運行此代碼,然後會彈出一個提示框,提醒您選擇要使用的數據范圍,請參見屏幕截圖:

doc發送個性化電子郵件9

4。 然後點擊 OK 按鈕,電子郵件將被一個一個地發送到單獨的地址,並帶有各自的註冊碼。發送電子郵件後,您可以轉到Outlook以確保電子郵件已成功發送。

備註:在以上代碼中,您可以根據需要更改主題或正文消息。


箭頭藍色右氣泡 使用Kutools for Excel將個性化的大量電子郵件發送到帶有不同附件的列表

如果你有 Excel的Kutools,其 發電子郵件 功能,您可以根據需要快速將個性化電子郵件發送給具有不同附件的多個收件人。

Excel的Kutools : 帶有300多個便捷的Excel加載項,可以在30天內免費試用. 

安裝後 Excel的Kutools,請這樣做:

1。 點擊 Kutools 加 > 發電子郵件,請參見屏幕截圖:

2。 在 發送Emials 對話框中,請選擇要使用的數據范圍,然後根據需要指定收件人地址,附件和主題,請參見屏幕截圖:

doc發送個性化電子郵件9

3。 在編輯框中,插入各個問候語名稱,請選擇 姓名 從下拉列表中,然後單擊 插入佔位符 將名稱插入消息中,請參見屏幕截圖:

doc發送個性化電子郵件9

4。 然後根據需要在框中輸入消息正文,請參見屏幕截圖:

doc發送個性化電子郵件9

5。 完成電子郵件正文後,請根據需要選擇發送模式,可以使用Outlook或指定的服務器進行發送,請參見screesnhot:

doc發送個性化電子郵件9

備註:如果要使用其他服務器,請單擊 發送服務器設置 要將發送模式設置為您自己的模式,請參見screesnhot:

doc發送個性化電子郵件9

6。 最後點擊 發送 按鈕發送電子郵件,完成後將彈出提示框,提醒您發送狀態。 參見screesnhot:

doc發送個性化電子郵件9

單擊立即下載並免費試用Kutools for Excel!


演示:通過Outlook從Excel將個性化的大量電子郵件發送到列表

Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即下載並免費試用!

相關文章:

如何通過Outlook從Excel向列表中的多個收件人發送電子郵件?


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (47)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
這段代碼運行得很好,非常感謝。 但我只是有一個小問題,我正在嘗試更改代碼以預先確定我想要接收電子郵件並發送它的單元格,因為我創建我的 excel 文件的方式。 我想為確定的單元格數組切換選擇框。 示例:修復我的所有數據將在 A2:C6 之間,因此當我運行宏時,我不需要再次選擇它。 非常感謝您在上面解釋的一切
網站主持人對此評論進行了最小化
您可以修改代碼以在電子郵件中附加多個文件嗎? 這將是一個很大的幫助。 提前致謝。
網站主持人對此評論進行了最小化
是否可以添加代碼以便它也可以提取我的正常電子郵件簽名? 此外,當選擇我的電子郵件範圍時,我過濾了我的 excel 電子表格,但是當我運行宏時,它仍然會拉入隱藏的行。
網站主持人對此評論進行了最小化
我也想知道這個!
網站主持人對此評論進行了最小化
如何在上面的代碼中添加cc
網站主持人對此評論進行了最小化
好方法

我只需要問你每次根據電子郵件更改主題的可能性嗎?
網站主持人對此評論進行了最小化
你好,阿齊茲,
當您應用 Kutools for Excel 時,它可以幫助您根據單元格值插入主題,您只需在對話框中選擇主題列標題,如下圖所示:

請嘗試一下,希望對您有所幫助!
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
嗨,天陽,

我一直在嘗試並嘗試讓我的電子郵件簽名出現,但似乎無法正確處理! 你有一些我可以添加的代碼來實現這一點嗎?
網站主持人對此評論進行了最小化
瘋狂發帖這是,這是假的,不要相信這個內容
網站主持人對此評論進行了最小化
你好,朋友,
這太棒了,需要幫助我每次都需要將不同的 pdf 文件附加到不同的電子郵件中。
任何人都可以幫助我嗎?
網站主持人對此評論進行了最小化
嗨,天陽,
我需要為每封郵件附加不同的 pdf 文件。 你能幫忙嗎?
網站主持人對此評論進行了最小化
你好,阿文德,
Kutools 可以幫助您在發送電子郵件時添加多個不同的附件。
首先,您應該將附件的路徑插入單元格,然後應用 Kutools,請查看以下屏幕截圖:
希望對你有幫助,謝謝!
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
嗨,天陽,
我使用您的以下代碼發送郵件並且工作正常,您有什麼可以幫助我修改代碼以發送 pdf 附件。
我需要發送超過 100 封郵件,所以每次都很難附加文件。 Kutools 是否按照給定路徑工作並自動發送郵件?
網站主持人對此評論進行了最小化
哎,
你能幫我解決附件添加功能嗎? 使用您上面的 VBA 代碼,我需要發送附件。
我不能使用 Kutools :(
網站主持人對此評論進行了最小化
如何抄送這個人?
網站主持人對此評論進行了最小化
如果我有很多客戶的數據,而有些客戶有超過 1 個數據怎麼辦……我不想向客戶發送單獨的郵件,但可能以表格格式在電子郵件中發送。 我怎樣才能只向客戶發送一封電子郵件。
網站主持人對此評論進行了最小化
嗨史蒂文,你有沒有辦法完成這件事。 我們可以通過一個簡單的在線門戶網站幫助您
網站主持人對此評論進行了最小化
你好,你解決了嗎?
網站主持人對此評論進行了最小化
我想知道怎麼做。 你能告訴我嗎?
網站主持人對此評論進行了最小化
謝謝!!

但我試圖做測試,並沒有發送到 emai。 也沒有錯誤消息..我可以知道發生了什麼嗎?
網站主持人對此評論進行了最小化
我在 excel 中有一個電子郵件地址列表,我需要將電子郵件發送到主題和正文在電子郵件地址之外的單元格中,我有下面的腳本,但我需要每 100 小時發送 1 封電子郵件,我該如何請您的支持

子發送Em()
將 i 調暗為整數、Mail_Object、Email_Subject、o 為變體、lr 為長
lr = Cells(Rows.Count, "A").End(xlUp).Row
設置 Mail_Object = CreateObject("Outlook.Application")
對於 i = 2 到 lr
使用 Mail_Object.CreateItem(o)
.Subject = Range("B" & i).Value
.To = Range("A" & i).Value

.Body = Range("C" & i).Value
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
。發送

'.display '禁用顯示並啟用發送自動發送
結束
接下來,我
MsgBox "郵件發送成功", 64
Application.DisplayAlerts = False
設置 Mail_Object = 無
END SUB
網站主持人對此評論進行了最小化
你好,希巴,
我們的 Kutools for Excel 的發送電子郵件可以幫助您解決問題。 請設置條件如下圖所示:
使用此功能,您還可以應用抄送、密件抄送功能,還可以插入多個附件。
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
你好管理員


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di 文件 pdf nya tdk terkirim .. terimakasih
網站主持人對此評論進行了最小化
由於某種原因,此代碼將其發送到列表中的所有其他電子郵件。 有沒有理由不發送每一個? 我直接複製了上面的代碼並沒有改變任何東西
網站主持人對此評論進行了最小化
VBA 代碼運行良好,謝謝,但如何添加抄送? 我試過了,失敗了……
網站主持人對此評論進行了最小化
VBA 代碼運行良好,謝謝,但如何添加抄送? 我試過:


將 xCc 調暗為字符串
然後
xCc = xRg.Cells(i, 9)(地址在第9列)


並且失敗了……
網站主持人對此評論進行了最小化
你好,讓,

為了解決您的問題,請應用以下代碼:(注意:您應該在 C 列中添加 CC 列)

#如果 VBA7 和 Win64 則
私有聲明 PtrSafe 函數 ShellExecute Lib "shell32.dll" 別名 "ShellExecuteA" (_
ByVal hwnd 作為 LongPtr,ByVal lpOperation 作為字符串,_
ByVal lpFile 作為字符串,ByVal lpParameters 作為字符串,ByVal lpDirectory 作為字符串,_
ByVal nShowCmd As Long) As LongPtr
#別的
私有聲明函數 ShellExecute Lib "shell32.dll" 別名 "ShellExecuteA" (_
ByVal hwnd As Long,ByVal lpOperation As String,_
ByVal lpFile 作為字符串,ByVal lpParameters 作為字符串,ByVal lpDirectory 作為字符串,_
ByVal nShowCmd 只要)只要
#萬一
子發送電子郵件()
將 xEmail 暗淡為字符串
將 xSubj 調暗為字符串
將 xMsg 調暗為字符串
將 xURL 調暗為字符串
昏暗我作為整數
Dim k As Double
將 xCell 調暗為範圍
將 xRg 調暗為範圍
將 xTxt 調暗為字符串
將 xCC 調暗為字符串
在錯誤恢復下一頁
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("請選擇數據范圍:", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什麼都不是,則退出 Sub
如果 xRg.Columns.Count <> 4 那麼
MsgBox "區域格式錯誤,請檢查", , "Kutools for Excel"
退出小組
如果結束
對於 i = 1 到 xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "您的註冊碼"
xMsg = ""
xMsg = xMsg & "親愛的 " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "這是您的註冊碼"
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & "請嘗試一下,很高興得到您的反饋!" & vbCrLf
xMsg = xMsg & “天陽”
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&,vbNullString,xURL,vbNullString,vbNullString,vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
下一頁
END SUB
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
我在“使用 VBA 代碼將個性化的群發電子郵件從 Excel 發送到列表”下使用了上述 VBA 代碼。 我想知道我是否可以向某些需要根據 excel 通知的人發送電子郵件,告訴我向即將到期合同的人發送提醒? 我無法讓 excel 發送電子郵件,我知道這是因為代碼本身。 有人可以幫我解決這個問題嗎?
網站主持人對此評論進行了最小化
我想發送帶有唯一主題行的電子郵件,我該如何使用這個 VBA 來做到這一點?
網站主持人對此評論進行了最小化
大家好!

我在一張紙上有電子郵件列表,在另一張紙上有電子郵件草稿。
我需要一個代碼來自動將工作表 2 中的電子郵件草稿發送給工作表 5 中提供的列表中的每 1 個成員。
發送前 5 封電子郵件後,代碼應在新的專用列中將它們標記為“已發送”,然後等待 60 秒,然後再發送下一組 5 封電子郵件。
代碼應該一直運行到整個列表的末尾。

該代碼可以使用 Outlook 從 Outlook 中的默認配置文件發送郵件。

請大家幫忙。

如果您需要更多說明,請告訴我
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護