Weiterleiten aller Pdfs in einem Ordner an denselben Empfänger, aber in separaten E-Mails (OUTLOOK VBA)

Question

Ich verwende MS OFFICE 2010 und muss täglich ungefähr 100 Pdfs an denselben Empfänger, aber in separaten E-Mails weiterleiten. Das bedeutet, ich scanne etwa 100 Seiten als PDF (egal, wie der Name der PDF ist) und muss etwa 100 E-Mails (E-Mail per Pdf) an den gleichen Empfänger senden.

Der Name der Pdfs ist nicht der gleiche und ich möchte sie nicht manuell umbenennen, also muss ich innerhalb eines Ordners Schleife und nehmen Sie jedes PDF dort und Weiterleiten an den gleichen Empfänger mit dem gleichen Betreff über Outlook.

Irgendwelche Ideen wo und wie muss ich anfangen. Einfach, wie man eine E-Mail mit einem Anhang weiterleitet und dieser Teil des Codes sollte innerhalb einer Schleife sein.

Vielen Dank im Voraus

Answer 1

Um einen Anhang an das Mail-Item-Objekt Sie die Add Methode der Attachment-Klasse verwenden müssen hinzuzufügen.

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 

die Postsendung So senden Sie die Send Methode der MailItem Klasse verwenden müssen.

Lesen Sie mehr darüber in den Artikeln How to create and show a new Outlook mail item programmatically: C#, VB.NET und How To: Create and send an Outlook message programmatically Artikel.

Sie können den Code finden, die Dateinamen in dem Ordner, indem Sie zu den folgenden Links erhalten können:

• Loop through files in a folder using VBA?
• Loop through files in a folder using Dir

Auch Sie können die Getting Started with VBA in Outlook 2010 Artikel hilfreich finden.