wpsvba如何发送邮件

本篇内容主要讲解“wpsvba如何发送邮件”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“wpsvba如何发送邮件”吧!

我们提供的服务有：网站制作、成都网站设计、微信公众号开发、网站优化、网站认证、承德ssl等。为1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的承德网站制作公司

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如何发送邮件”有了更深的了解，不妨来实际操作一番吧！这里是创新互联网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！

网站名称：wpsvba如何发送邮件
网址分享：https://www.cdcxhl.com/article38/gcjspp.html

成都网站建设公司_创新互联，为您提供自适应网站、网站导航、手机网站建设、营销型网站建设、网站设计、网页设计公司

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联