폴더의 모든 Pdfs를 동일한 수신인에게 전달하지만 별도의 전자 메일 (OUTLOOK VBA)

Question

MS OFFICE 2010을 사용하고 있으며 매일 약 100 개의 Pdfs를 동일한 수신자이지만 별도의 전자 메일로 전달해야합니다. 즉, 약 100 페이지를 pdf로 스캔한다는 것을 의미하며 (pdf의 이름이 중요하지 않음) 동일한 수신자에게 약 100 개의 이메일 (Pdf 당 이메일)을 보내야합니다.

Pdfs의 이름이 동일하지 않아 Manuelly의 이름을 바꾸고 싶지 않아서 폴더 안에 루프를 만들어 모든 PDF를 가져 와서 Outlook을 통해 동일한 제목의 동일한 수신자에게 전달해야합니다.

어디에서 어떻게 시작해야합니까? 첨부 파일을 사용하여 전자 메일을 전달하는 방법과이 코드 부분은 루프 안에 있어야합니다. 사전

Answer 1

에서

덕분에 당신이 첨부 클래스의 Add 방법을 사용하는 데 필요한 메일 항목 객체에 첨부 파일을 추가합니다.

Sub AddAttachment() 
Dim myItem As Outlook.MailItem 
Dim myAttachments As Outlook.Attachments 

Set myItem = Application.CreateItem(olMailItem) 
Set myAttachments = myItem.Attachments 
myAttachments.Add "C:\Test.doc", _ 
olByValue, 1, "Test" 
myItem.Display 
End Sub 

당신이는 MailItem 클래스의 Send 방법을 사용하는 데 필요한 메일 항목을 제출합니다.

자세한 내용은 How to create and show a new Outlook mail item programmatically: C#, VB.NET 및 How To: Create and send an Outlook message programmatically 문서를 참조하십시오.

Loop through files in a folder using Dir

• Loop through files in a folder using VBA?
은 또한 당신이 Getting Started with VBA in Outlook 2010 기사가 도움이 찾을 수 있습니다 :

당신은 다음 링크로 이동하여 폴더에 파일 이름을 얻을 수있는 코드를 찾을 수 있습니다.