本篇內(nèi)容主要講解“wpsvba如何發(fā)送郵件”，感興趣的朋友不妨來(lái)看看。本文介紹的方法操作簡(jiǎn)單快捷，實(shí)用性強(qiáng)。下面就讓小編來(lái)帶大家學(xué)習(xí)“wpsvba如何發(fā)送郵件”吧!

我們提供的服務(wù)有：網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、承德ssl等。為1000+企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的承德網(wǎng)站制作公司

wpsvba發(fā)送郵件的方法：

1、首先將WPS中創(chuàng)建一個(gè)郵件地址，不同的名稱也可以，在程序中用對(duì)應(yīng)名稱即可。

2、收件人地址從B2開始，抄送人地址從D2開始，密送收件人地址從F2開始。

3、G2是主題、H2寫正文。A列、G列、E列可以填上對(duì)應(yīng)的收件人名字，非必填的。

4、發(fā)送電子郵件代碼：

Public Sub 發(fā)送電子郵件()

Dim OutlookApp As Outlook.Application

Dim newMail As Outlook.mailitem

Dim myAttachments As Outlook.Attachments

Dim n As Integer, i As Integer

Dim ws As Worksheet

On Error Resume Next

Set ws = Worksheets("郵件地址")

n = ws.Range("B65536").End(xlUp).Row

address = Worksheets("郵件地址").Cells(2, 2)

For i = 2 To n

If i < n Then

address = address & ";" & Worksheets("郵件地址").Cells(i + 1, 2)

End If

Next i

'CC

n = ws.Range("D65536").End(xlUp).Row

addressCC = Worksheets("郵件地址").Cells(2, 4)

For i = 2 To n

If i < n Then

addressCC = addressCC & ";" & Worksheets("郵件地址").Cells(i + 1, 4)

End If

Next i

'BCC

n = ws.Range("F65536").End(xlUp).Row

addressBCC = Worksheets("郵件地址").Cells(2, 6)

For i = 2 To n

If i < n Then

addressBCC = addressBCC & ";" & Worksheets("郵件地址").Cells(i + 1, 6)

End If

Next i

Set OutlookApp = New Outlook.Application

wbStr = ThisWorkbook.FullName '指定要發(fā)送發(fā)工作簿名稱字符串

Set newMail = OutlookApp.CreateItem(olMailItem) '創(chuàng)建新郵件

With newMail

.Subject = Worksheets("郵件地址").Cells(2, 7) '設(shè)置郵件主題

.Body = Worksheets("郵件地址").Cells(2, 8) '設(shè)置郵件正文

'發(fā)送附件

Set myAttachments = newMail.Attachments

myAttachments.Add wbStr, olByValue, 1, "工作簿"

.To = address '收件人

.CC = addressCC '抄送

.BCC = addressBCC '密送

.Send '開始發(fā)送

End With

End Sub

5、最后添加加載菜單中按鈕，鏈接到編寫的程序模塊；

然后我們?cè)邳c(diǎn)擊一下按鈕運(yùn)行程序，將郵件發(fā)送給相關(guān)收件人；

以后在需要發(fā)郵件，只需要點(diǎn)這個(gè)按鈕即可。

到此，相信大家對(duì)“wpsvba如何發(fā)送郵件”有了更深的了解，不妨來(lái)實(shí)際操作一番吧！這里是創(chuàng)新互聯(lián)網(wǎng)站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！

網(wǎng)站名稱：wpsvba如何發(fā)送郵件
網(wǎng)址分享：http://sd-ha.com/article38/gcjspp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供自適應(yīng)網(wǎng)站、網(wǎng)站導(dǎo)航、手機(jī)網(wǎng)站建設(shè)、營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)