在邮件中附加两个文件答案

【问题标题】：Attach two files in a mail在邮件中附加两个文件
【发布时间】：2020-06-25 16:33:40
【问题描述】：

我想创建一个将两个文件附加到邮件的 VBA 脚本。这段代码让我附上一个文件：

Sub openWord()

Dim OutApp As Object
Dim OutMail As Object


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

var2 = "D:\Werkdocumenten\CBIP\CBIP_MANUAL_PART1.pdf"
var3 = "D:\Werkdocumenten\CBIP\CBIP_MANUAL_PART2.pdf"

With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "CBIP Manual"
.Body = ""

.Attachments.Add (var2)
.Display
End With

End Sub

仅当我将 .Attachments.Add (var2) 更改为 .Attachments.Add (var2 & var3) 时，它才不起作用。关于如何附加第二个附件的任何线索？

【问题讨论】：

如果你运行 .Attachments.Add 两次呢？

标签： vba outlook

【解决方案1】：

.Attachments.Add var2
.Attachments.Add var3

【讨论】：