|
|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
关于这段代码，我做了一个更详尽的注释，供初学者学习，此外也有一个问题想请教老师，已标红。还望不吝赐教。
'本程序用于向不同的人发送相同的附件。
Sub hhh()
Dim arr
arr = Array(Array("序号", "主题", "主体", "邮箱"), Array(1, "测试邮件", "你好，测试邮件进行中！！！", "xintianweng107@163.com"), Array(2, "测试邮件", "你好，测试邮件进行中！！！", "360222569@qq.com"))
'首先，定义了一个名叫arr的3维数列。array又定义了一个array 的4维数列。4维数列里，分别存放了“序号”、“主题”、
'“主体”、“邮箱”四个数据。然后，把这四个数列当中的相关的数据填好。
Dim OutApp As Outlook.Application '//定义OutAPP为outlook的对象变量。
Dim oItem As Outlook.MailItem '//定义哦Item为outlook邮件的对象变量
Set OutApp = New Outlook.Application '//创建outlook对象
Dim myatt$
myatt = "D:\5.jpg"
' 附件的地址。
For i = 1 To UBound(arr(0)) - 1
'ubound 函数，其值为指定数组维的最大可用下标。在计算机中，数组的第一个值的下标是 0 ，所以 arr(0)在这里，指的是
'arr的第一维数组的第一个元素（其实也是个数组，所以可以用Ubound）。arr(0)就是 Array("序号", "主题", "主体", "邮箱")。
'她这里也可以写为 ubound(arr,2)。由于arr(0)有四个元素，所以其最大可用下标为3，i应该为 1-2。
' 但这里有个地方不能理解，就是从下文来看， i 将作为 arr 的第一维数组的下标来使用。为什么用第二维的数组来定义它呢？
' 还请老师多多指教。
Set oItem = OutApp.CreateItem(olMailItem) '//创建一封新的邮件
With oItem
.To = arr(i)(3) '//邮件收件人
'// .CC = "417149126@qq.com"'//邮件抄送人
.Subject = arr(i)(1) '//邮件的主题
.BodyFormat = olFormatHTML '//设置邮件格式 是否html 格式的
'// .Attachments.Add myatt'//添加附件
.Body = arr(i)(2) '//邮主体内容
'// .Display'//新建邮件窗口显示
.Send '//邮件发送
End With
Next
End Sub
|
|
楼主: 闻启学
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2018-10-12 17:16
楼主
