Hallo,
leider bin ich nicht so fit in VBA - ich bin mir sicher ihr könnt mir helfen. Sollte für Outlook365 laufen.
Ich habe einen pdf Prospekt den ich sehr oft verschicke. Pfad ändert sich nicht, es ist aber lästig sich immer durch das "Datei einfügen" Menü zu hangeln, anpinnen geht ja leider auch nicht :-/. Deshalb würde ich mir wünschen bei meiner Antwortmail, per Knopfdruck diesen Anhang hinzuzufügen.
Leider bin ich nur soweit gekommen, dass ein neues OutlookItem mit der Datei erstellt wird. Was muss ich tun um das aktive Element anzusprechen?
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.pdf", _
olByValue, 1, "Test"
myItem.Display
End Sub
Besten Dank
Andi
|