DataNumen Outlook Password Recovery V1.1.0.0 英文安装版
DataNumen Outlook Password Recovery是一款操作简单的outlook密码恢复工具,如果你的outlook文件不小心丢失了,可以尝试通过这款工具来进行修复,如果你忘记了密码的加密PST文件,那么这个工具,你可以很容易地恢复密码,并访问PST文件中的内容。
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(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、最后添加加载菜单中按钮,链接到编写的程序模块;
然后我们在点击一下按钮运行程序,将邮件发送给相关收件人;
以后在需要发邮件,只需要点这个按钮即可。
热门教程 周 月
逍遥安卓模拟器没有声音怎么办?
7次 2IDM下载器不能与浏览器集成怎么办?IDM下载器不能与浏览器集成的解决方法
7次 3U盘重装系统后电脑无法上网怎么解决?
6次 4怎么避开Steam启动游戏?免Steam启动游戏教程
6次 5Win7旗舰版系统安装驱动提示“无法启用这个硬件”怎么回事?
5次 6赛博朋克2077中怎么获得纳扎雷以津真天摩托车?
5次 7Excel中没有数据的区域要如何隐藏
5次 8暴风影音中如何看3D电影?暴风影音中3D电影的方法步骤
5次 9Win7旗舰版可以修改临时文件夹路径吗?
5次 10Win10电脑开机有三个系统选项怎么操作?
5次浩方对战平台卸载不掉怎么办?浩方对战平台卸载不掉的解决方法
16次 2Win11桌面图标怎么设置出来?Win11我的电脑不见了怎么办?
15次 3CAD快速看图测量数据和图纸原有数据对不上怎么回事?
15次 4如何升级Win11系统 最全的Win11升级方法汇总
13次 5华硕电脑无限进入Bios怎么解决?
12次 6360如何重装系统Win7?
11次 7网页不显示图片怎么解决?
11次 8福昕阅读器如何为PDF添加书签?福昕阅读器为PDF添加书签的操作步骤
11次 9闪电图片格式转换器怎么给图片添加水印?
11次 10百度网盘iphone版如何开启“相册自动备份功能”?
10次最新软件