ich möchte gerne bei Terminen Bezug auf bestimmte Mails nehmen, dazu würde ich gerne haben, dass entweder der Mailbody in den Termin-Body kopiert wird oder wenn nicht anders geht, dann die Mail als Attachment.
Manuell über „neuer Termin“ und dann die Mail mittels Drag’n’Drop geht, ist aber lästig.
Schöner wäre es, wenn man mittels rechter Maustaste dann sagen kann, „in neuen Termin kopieren“ oder so ähnlich.
Vielleicht gibt es auch andere gute Weg, die ich nicht kenne. Denn das gleiche Problem habe ich mit Aufgaben.
anbei ein Makro, das beide Wünsche von Dir erfüllt: Variante 1 als Attachment und Variante 2 als Textbody.
Vorgehen:
Tastenkombination zum Öffnen des VBA-Editors
Aus dem Menü „Einfügen“ und „Modul“ auswählen
Nachfolgendes Makro einfügen
Menü „Datei“ und „Speichern“ auswählen
Der Aufruf bei des Makros „NewTargetFromMail“ erfolgt über „Alt“ und „F8“
-----SNIP-----
Sub NewTargetFromMail()
Dim ObjApp As Object
Dim ObjMailitem As Object
Dim ObjTargetItem As Object
Set ObjApp = CreateObject(„Outlook.Application“)
Set ObjTargetItem = Application.CreateItem(olTaskItem) ’ olTaskItem anstelle olAppointmentItem eintragen für Aufgabe
Set ObjMailitem = ObjApp.ActiveExplorer.Selection.Item(1)
With ObjTargetItem
.Attachments.Add ObjMailitem ’ Variante 1 Mail als Attachment
.Body = ObjMailitem.Body ’ Variante 2 Mailbody
.Subject = ObjMailitem.Subject
.Display
End With
End Sub
-----SNIP-----
Viel Erfolg
Jadawin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]