久久香蕉国产线看观看6_久久99久久精品免观看吃奶_蜜柚影院在线观看免费高清中文_亚洲激情欧美色_老湿机影院试看十分钟

大家在做群發(fā)電子郵件時(shí)常常需要添加附件，但很多人都有電子郵件群發(fā)時(shí)帶不同的附件的需求，下面就讓一米軟件來教教大家怎么去做。

群發(fā)電子郵件帶不同的附件操作步驟如下：

1、先準(zhǔn)備好附件、郵件正文內(nèi)容、合作商的郵件收件人和抄送人、附件所在的文件路徑。

2、點(diǎn)擊開發(fā)工具→表單控件，插入表單控件，修改控件名稱為你自己想設(shè)置的名稱。

3、點(diǎn)擊開發(fā)工具→查看代碼，點(diǎn)擊視圖→工程資源管理器，找到模塊1，雙擊輸入以下代碼：

Sub Mygirl()

'要能正確發(fā)送并需要對(duì)MicroseftOutlook進(jìn)行有效配置

On Error Resume Next

Dim rowCount, endRowNo

'要正常運(yùn)行下面這句,要將工具/引用中的Microseft Outlook *.0 Object Library(其中*為你Microseft Outlook的版本號(hào))選上

Dim objOutlook As New Outlook.Application

Dim objMail As MailItem

'取得當(dāng)前工作表與Cells(1,1)相連的數(shù)據(jù)區(qū)行數(shù)

endRowNo = Cells(1,1).CurrentRegion.Rows.Count

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

Set objOutlook = New Outlook.Application

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

For rowCount = 2 To endRowNo

A =Application.WorksheetFunction.Clean(Worksheets("發(fā)送清單").Cells(rowCount, 3))

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

Set objMail =objOutlook.CreateItem(olMailItem)

With objMail

'設(shè)置收件人地址

.To = Cells(rowCount, 1)

'設(shè)置抄送收件人地址

.CC = Cells(rowCount, 2)

'設(shè)置郵件主題

.Subject = Worksheets("正文").Cells(1, 2)

'設(shè)置郵件內(nèi)容

.Body = Worksheets("正文").Cells(2, 2)

'設(shè)置附件

.Attachments.Add A

'自動(dòng)發(fā)送郵件

.Send

End With

'銷毀objMail對(duì)象

Set objMail = Nothing

Next

X = (endRowNo - 1) & "封郵件都發(fā)完了哦"

MsgBox X

End Sub

大功告成，測(cè)試一下，太棒了，所有郵件一次性搞定，均帶有附件。