本文介绍了在邮件中附加两个文件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想创建一个将两个文件附加到邮件的 VBA 脚本.这段代码让我附上一个文件:
I would like to create a VBA script which attaches two files to a mail. This code lets me attach one file:
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) 时,它才不起作用.有人知道如何附加第二个附件的线索吗?
Only if I change .Attachments.Add (var2) to .Attachments.Add (var2 & var3) it does not work. Anybody clues on how I can attach the second attachment?
推荐答案
.Attachments.Add var2
.Attachments.Add var3
这篇关于在邮件中附加两个文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!