wpsvba怎么发送邮件 _生活百科

【wpsvba怎么发送邮件】wpsvba可以支持用户进行发送邮件， vba插件是wps中强大的功能，需要提前将vba插件安装到WPS中才能使用。我们使用一些代码编程就能够实现快速发送邮件功能。
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(i1, 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(i1, 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(i1, 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怎么发送邮件

推荐阅读

坐火车用英语怎么说坐火车翻译成英文

天龙八部丘比特技能怎么打

吴川塘缀高铁站地址

流量mb多还是GB流量多，gb流量大还是mb流量大

春天柳树的描写优美句子描写春天柳树的优美句子有哪些

excel如何分列

vivox27pro怎么将照片水印去除？去除水印的方法介绍

码上来短信是什么

如何去除旧家具表面的油漆如何去除旧家具表面的油漆污渍

唐太宗开明的治国思想有哪些，唐太宗开明治国的具体思想

华为最新发布的手机是什么型号小米最新发布的手机是什么

苹果12官网售价多少，苹果12promax价格表官网报价

知县知州知府巡抚的官职巡抚相当于现在什么官几品

安卓手机不能开机怎么刷机？

为什么许多人觉得数学很难

忍者怎么放天道伤害高,天道极限伤害连招