批量發(fā)郵件(word批量發(fā)郵件)

微信如何把幾千條聊天記錄批量發(fā)送郵件

工具/材料:微信APP、華為Mate20Pro手機。

微信幾千條聊天記錄批量發(fā)送郵件的方法：

1、打開手機里的微信APP。

2、點開想要批量發(fā)送的聊天記錄所在的好友聊天頁面，找到聊天記錄，長按在上面不動，在彈出來的框里選擇“多選”。

3、聊天內(nèi)容右邊就會出現(xiàn)一個小方框，把需要轉(zhuǎn)發(fā)的內(nèi)容右邊方框里打上勾。

4、點擊箭頭指的最左邊的這個小符號。

5、在彈出的頁面中，選擇合并轉(zhuǎn)發(fā)。

6、隨便選擇一個轉(zhuǎn)發(fā)的人，點擊發(fā)送。

7、然后打開轉(zhuǎn)發(fā)的人的聊天頁面，長按合并轉(zhuǎn)發(fā)過來的聊天記錄，在跳出來的框里選擇“多選”。

8、接著點擊郵件指的最右邊的這個小符號（如圖所示）。

9、輸入收件人，然后點擊“發(fā)送”，即可把幾千條聊天記錄批量發(fā)送郵件。

如何批量一對一發(fā)送郵件

1、這里以qq郵箱為例，首先打開QQ發(fā)件箱，點擊寫信：

2、點擊寫信之后要單獨向好友發(fā)送郵件，點擊分別發(fā)送這時這些收件人就只能看到你單獨給他們發(fā)的郵件了：

3、把郵件標題和內(nèi)容都寫好后，就可以點擊開始發(fā)送了，還可以選擇定時發(fā)送，發(fā)送完成后如果想再繼續(xù)發(fā)停留幾分鐘或是換IP，這樣可以多發(fā)幾封：

使用word2016批量發(fā)送郵件，如何添加抄送人，或者一封郵件設(shè)置多個收件人？

一、創(chuàng)建收件人列表　　假設(shè)包含信件內(nèi)容的主文檔已經(jīng)準備好，現(xiàn)在打開它。選擇“工具/郵件合并”，出現(xiàn)“郵件合并幫助器”窗口，單擊“創(chuàng)建”，選擇“套用信函”，在下一個對話框中選擇“活動窗口”。　　現(xiàn)在又回到了“郵件合并幫助器” 窗口。單擊“獲取數(shù)據(jù)”按鈕，再選擇“創(chuàng)建數(shù)據(jù)源”以定義收件人信息。在“創(chuàng)建數(shù)據(jù)源”對話框中系統(tǒng)已經(jīng)自動創(chuàng)建了許多域，我們還可以刪除和添加域。完成域名定義后，單擊“確定”，輸入該收件人列表的文件名，選擇“保存”。　　回到“郵件合并幫助器”窗口后，單擊“編輯數(shù)據(jù)源”，在對話框中輸入第一個收件人的各項數(shù)據(jù)。單擊“新增”接著輸入下一個收件人信息，重復(fù)上述過程直至輸入所有收件人的信息。　　二、插入合并域　　返回主文檔界面之后，接下來的任務(wù)是將合并域(例如姓名或稱呼等)插入到主文檔的合適位置。將插入光標移到域內(nèi)容應(yīng)當出現(xiàn)的位置，單擊“郵件合并”工具條上的“插入合并域”，在下拉列表框選擇合適的域，比如當光標所在的位置應(yīng)當是你對收件人的稱呼時，就選擇域“稱呼”。重復(fù)上述過程直至加入了所有的域。　　如果要查看合并后的效果，單擊“郵件合并”工具條上的“查看合并數(shù)據(jù)”按鈕，此時就會出現(xiàn)將收件人列表第一個記錄內(nèi)容合并到郵件正文后的郵件文本，利用“上一記錄”、“下一記錄”按鈕可以改變所合并的收件人記錄。如果要作修改，單擊“查看合并數(shù)據(jù)”按鈕，修改間隔或位置，然后再檢查合并后的效果。　　三、執(zhí)行合并操作　　編輯好待合并的主文檔后，選擇“工具/郵件合并”，打開“郵件合并幫助器”對話框。　　選擇“合并”，從“合并到”列表框選擇“新建文檔”，選中“數(shù)據(jù)域為空時，不打印空白行”以保證空域不會以空行形式出現(xiàn)在最終文檔中，最后單擊“合并”按鈕就可以合并主文檔和收件人列表。　　合并結(jié)果將出現(xiàn)在屏幕上，寫給各個收件人的郵件依次排列，此時最好再檢查一下，然后打印或保存合并后的文檔。　　以后要再次執(zhí)行合并時，只需打開主文檔，然后選擇“工具/郵件合并”，單擊“合并”就可以了。在退出Word時，會提示保存收件人列表文檔，選擇“是”，否則將丟失這個收件人列表數(shù)據(jù)。　　四、利用Outlook的聯(lián)系人信息　　如果收件人信息已經(jīng)在Outlook聯(lián)系人列表中，把這些聯(lián)系人信息拷貝到一個新的聯(lián)系人文件夾就可以作為Word郵件合并中的收件人列表。方法是，在Outlook中，選擇“文件/新建/文件夾”為聯(lián)系人列表創(chuàng)建一個新的文件夾，在“名稱”框中輸入新文件夾的名字(例如“客戶聯(lián)系”)，從“文件夾包含”列表選擇“聯(lián)系人項”，然后選擇一個文件夾的位置并單擊“確定”，如果系統(tǒng)提示是否要建立工具條快捷方式，選擇“否”。(除非你認為確實有必要。)　　現(xiàn)在就可以把Outlook聯(lián)系人列表中的數(shù)據(jù)拷貝到這個新的文件夾，步驟為：打開源文件夾，按住CTRL鍵選中多個聯(lián)系人信息，保持CTRL鍵按下狀態(tài)，將選中內(nèi)容拖到目標文件夾“客戶聯(lián)系”。　　要將這個新的文件夾設(shè)置為郵件地址簿，右擊文件夾名字，選擇“屬性”，再選擇“Outlook通訊簿”，選中“將該文件夾顯示為電子郵件通訊簿”，單擊“應(yīng)用”，最后單擊“確認”。　　到此為止，Outlook中的收件人列表已經(jīng)創(chuàng)建完畢。　　在Word中打開主文檔。打開“郵件合并幫助器”，從對話框中選擇“獲取數(shù)據(jù)/使用通訊簿”，選擇“客戶聯(lián)系”文件夾并單擊“確定”。接下來，就可以按照前面介紹的方法插入合并域、執(zhí)行合并操作了。　　應(yīng)當注意的是，在指定“客戶聯(lián)系”文件夾作為郵件合并操作的收件人數(shù)據(jù)來源之后，如果以后在“客戶聯(lián)系”文件夾中增加或改動了聯(lián)系人信息，這些改動并不會自動反映在合并操作中。為解決這個問題，可以在Word中選擇“工具/郵件合并”，單擊“獲取數(shù)據(jù)”，按照前面介紹的步驟再次定義數(shù)據(jù)的來源，此時，Word將重新讀取文件夾的內(nèi)容，新增加或改動的內(nèi)容就會反映在后繼的郵件合并操作中。　　五、生成電子郵件　　將郵件合并結(jié)果發(fā)送到Outlook中成為電子郵件。在“郵件合并幫助器”對話框中選擇“合并”，從“合并到”列表中選擇“電子郵件”。單擊“設(shè)置”，在“含郵件/傳真地址的數(shù)據(jù)域”中選擇“電子郵件”。　　在“郵件消息主題行”中，輸入電子郵件的主題。有必要的話，選中“以附件形式發(fā)送文檔”。　　返回“合并”對話框，單擊“合并”就可以了。新生成的郵件放在Outlook的發(fā)件箱。在發(fā)出郵件之前，最好能隨機檢查一些郵件，以驗證合并效果。　　六、其他　　如果在郵件合并操作中指定現(xiàn)有的數(shù)據(jù)作為收件人數(shù)據(jù)來源，當數(shù)據(jù)源中的收件人數(shù)量遠遠大于本次合并操作的收件人數(shù)量時，可以使用查詢限定目標收件人。方法是：在打開主文檔后，選擇“工具/郵件合并”菜單，單擊“查詢選項”按鈕。在“查詢選項”對話框中選擇查詢域及其條件。如果指定多行查詢條件，各行之間根據(jù)實際情況用“與”或者“或”連接。以后執(zhí)行合并操作時，數(shù)據(jù)源中只有那些符合指定條件的數(shù)據(jù)才參與合并。　　Word也可以從Excel讀取收件人信息。方法是：在“郵件合并幫助器”對話框中先選擇“獲取數(shù)據(jù)”，再選擇“打開數(shù)據(jù)源”，在“打開數(shù)據(jù)源”對話框中選擇文件類型為Excel工作簿，選定Excel文件，單擊“打開”按鈕，在Excel對話框中選擇“整張電子表格”或指定表格內(nèi)的某個區(qū)域就可以了

QQ郵件怎么批量發(fā)送？

按照下圖整理工資明細表

1、列數(shù)可自行新增刪除；

2、如果整理的數(shù)據(jù)列，無法發(fā)送郵件的請把表頭內(nèi)添加大寫字母“X”；

3、工作表名稱用作了郵件主題，發(fā)送前請修改工作表名稱；

啟用開發(fā)工具選項卡；插入命令控件；修改控件名稱及顯示名；

進入VBA編程界面；復(fù)制以下代碼到編輯窗口。

PrivateSub全自動發(fā)送郵件_Click()

'要能正確發(fā)送并需要對MicroftOutlook進行有效配置

OnErrorResumeNext

DimrowCount,endRowNo,endColumnNo,sFile$,sFile1$,A&,B&

DimobjOutlookAsObject

DimobjMailAsMailItem

'取得當前工作表數(shù)據(jù)區(qū)行數(shù)列數(shù)

endRowNo=ActiveSheet.UdRange.Rows.Count

endColumnNo=ActiveSheet.UdRange.Columns.Count

'取得當前工作表的名稱，用來作為郵件主題進行發(fā)送

sFile1=ActiveSheet.Name

'創(chuàng)建objOutlook為Outlook應(yīng)用程序?qū)ο?/p>

SetobjOutlook=CreateObject("Outlook.Application")

'開始循環(huán)發(fā)送電子郵件

ForrowCount=2ToendRowNo

'創(chuàng)建objMail為一個郵件對象

SetobjMail=objOutlook.CreateItem(olMailItem)

WithobjMail

'設(shè)置收件人地址，數(shù)據(jù)源所在列數(shù)

.To=Cells(rowCount,5)

'設(shè)置抄送人地址（從通訊錄表的'E-mail地址'字段中獲得）

'.CC=Cells(rowCount,0)

'設(shè)置郵件主題,取值工作表名，

.Subject=sFile1

'設(shè)置郵件內(nèi)容(從通訊錄表的“內(nèi)容”字段中獲得)

'align單元格文本顯示方式left(向左)、center(居中)、right(向右)，默認是center,width-寬height-高border單元格線粗細,bordercolor返回或設(shè)置對象的邊框顏色

'colSpan是一種編程語言，其屬性可設(shè)置或返回表元橫跨的列數(shù)

sFile="<tr>您好！<br>以下是您"+sFile1+"，請查收！</tr>"

sFile=sFile+"<tablealign='left'width='500'height='25'border=1bordercolor='#000000'><tbody>"

sFile=sFile+"<tr><tdcolspan='4'align='center'>工資表</td></tr>"

B=1

ForA=1ToendColumnNo

'數(shù)據(jù)表頭中添加“X”后將不發(fā)送此字段

IfApplication.WorksheetFunction.CountIf(Cells(1,A),"*X*")=0Then

IfB=1Then

sFile=sFile+"<tr><tdwidth='20%'height='25'>"+Cells(1,A).Text+"</td><tdwidth='30%'height='25'>"+Cells(rowCount,A).Text+"</td>"

B=0

El

sFile=sFile+"<tdwidth='20%'height='25'>"+Cells(1,A).Text+"</td><tdwidth='30%'height='25'>"+Cells(rowCount,A).Text+"</td></tr>"

B=1

EndIf

EndIf

Next

.HTMLBody=sFile

'設(shè)置附件(從通訊錄表的“附件”字段中獲得)

.Attachments.AddCells(rowCount,24).Value

'自動發(fā)送郵件

.Send

EndWith

'銷毀objMail對象

SetobjMail=Nothing

Next

'銷毀objOutlook對象

SetobjOutlook=Nothing

'所有電子郵件發(fā)送完成時提示

MsgBoxrowCount-2&"個員工的工資單發(fā)送成功！"

EndSub

如何大批量發(fā)送郵件

不知道你想用什么軟件來發(fā)送文件。一般來說，大批量的文件，可以先用壓縮軟件（如RAR、ZIP等）進行壓縮，做成壓縮包后發(fā)送。對方收到后再用壓縮軟件解壓即可。這樣既省時又方便。如果你是想把同一個文件發(fā)送給多人，可以在郵箱里的”發(fā)送到“欄填寫多個接收地址。供參考。