wpsvba如何發送郵件

本篇內容主要講解“wpsvba如何發送郵件”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實用性強。下面就讓小編來帶大家學習“wpsvba如何發送郵件”吧!

wpsvba發送郵件的方法：

1、首先將WPS中創建一個郵件地址，不同的名稱也可以，在程序中用對應名稱即可。

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

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

4、發送電子郵件代碼：

Public Sub 發送電子郵件()

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 '指定要發送發工作簿名稱字符串

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

With newMail

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

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

'發送附件

Set myAttachments = newMail.Attachments

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

.To = address '收件人

.CC = addressCC '抄送

.BCC = addressBCC '密送

.Send '開始發送

End With

End Sub

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

然后我們在點擊一下按鈕運行程序，將郵件發送給相關收件人；

以后在需要發郵件，只需要點這個按鈕即可。

到此，相信大家對“wpsvba如何發送郵件”有了更深的了解，不妨來實際操作一番吧！這里是億速云網站，更多相關內容可以進入相關頻道進行查詢，關注我們，繼續學習！