두 파일을 메일에 첨부하십시오.

Question

두 파일을 메일에 첨부하는 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에 .Attachments.Add (VAR2)를 변경하는 경우에만 (VAR2 & VAR3)가 작동하지 않습니다이 코드는 나에게 하나 개의 파일을 첨부 할 수 있습니다. 두 번째 첨부 파일을 첨부 할 수있는 방법에 대한 단서가 있습니까?

Answer 1

.Attachments.Add var2 
.Attachments.Add var3