Outlook Standardvorlage immer automatisch mit angehängter PDF öffnen
Hallo und guten Morgen,
ich möchte in Outlook 2019 auf "Neue E-Mail" klicken und in der sich darauf öffnenden Standardvorlage soll direkt eine PDF-Datei mit angehängt sein.
Ich weiß, dass ich eine Vorlage erstellen kann die ich entweder über Formular -> usw auswählen oder auch auf die ich verknüpfen kann.
Jedoch möchte ich der Einfachheit halber für die Benutzer es so einrichten, dass alles wie gehabt bleibt und der Schritt schon automatisch erfolgt.
Zumal Programme auch Eine-Nachricht öffnen und darin noch Inhalte wie E-Mail Adresse, Betreff, etc. übergeben.
Gibt es dazu eine Möglichkeit?
Im Voraus lieben Dank.
ich möchte in Outlook 2019 auf "Neue E-Mail" klicken und in der sich darauf öffnenden Standardvorlage soll direkt eine PDF-Datei mit angehängt sein.
Ich weiß, dass ich eine Vorlage erstellen kann die ich entweder über Formular -> usw auswählen oder auch auf die ich verknüpfen kann.
Jedoch möchte ich der Einfachheit halber für die Benutzer es so einrichten, dass alles wie gehabt bleibt und der Schritt schon automatisch erfolgt.
Zumal Programme auch Eine-Nachricht öffnen und darin noch Inhalte wie E-Mail Adresse, Betreff, etc. übergeben.
Gibt es dazu eine Möglichkeit?
Im Voraus lieben Dank.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 575526
Url: https://administrator.de/contentid/575526
Ausgedruckt am: 23.11.2024 um 20:11 Uhr
2 Kommentare
Neuester Kommentar
Servus,
ALT+F11 drücken, u.s. Code in ThisOutlookSession einfügen, nicht in ein Modul! Pfad zum Attachment in Zeile 11 anpassen, sicherstellen das in Outlook im Sicherheitscenter Makros aktiviert wurden und dann Outlook zwingend neu starten.
Grüße Uwe
ALT+F11 drücken, u.s. Code in ThisOutlookSession einfügen, nicht in ein Modul! Pfad zum Attachment in Zeile 11 anpassen, sicherstellen das in Outlook im Sicherheitscenter Makros aktiviert wurden und dann Outlook zwingend neu starten.
Dim WithEvents inspects As Inspectors
Private Sub Application_Startup()
Set inspects = Application.Inspectors
End Sub
Private Sub inspects_NewInspector(ByVal Inspector As Inspector)
On Error Resume Next
With Inspector.CurrentItem
If .Class = olMail And .EntryID = "" And .Subject = "" Then
.Attachments.Add "D:\Pfad\Datei.txt"
End If
End With
End Sub