Hallo,
von einem Kollegen habe ich schon eine schöne Hilfe bekommen, dass wenn ich emails versende, Outlook fragt, unter welchem Ordner ich die gesendete Mail ablegen möchte.
Dazu nutzen wir dieses VBA-Script.
Nun fände ich es ganz sinnvoll, dass wenn ich auf eine Mail antworte, nicht nur die neu gesendete Nachricht in den ausgewählten Ordner verschoben wird, sondern auch die Mail aufn die ich gerade geantwortet habe.
Kann man das noch irgendwie realisieren?
von einem Kollegen habe ich schon eine schöne Hilfe bekommen, dass wenn ich emails versende, Outlook fragt, unter welchem Ordner ich die gesendete Mail ablegen möchte.
Dazu nutzen wir dieses VBA-Script.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem Then
Cancel = Not SaveSentMail(Item)
End If
End Sub
' Verschieben der gesendeten Mail in einen Ordner
Private Function SaveSentMail(Item As Outlook.MailItem) As Boolean
Dim F As Outlook.MAPIFolder
' Prüfung: Mail wird nach dem Senden nicht gelöscht
If Item.DeleteAfterSubmit = False Then
' Ordner auswählen in dem die gesendete Mail gespeichert werden soll
Set F = Application.Session.PickFolder
If Not F Is Nothing Then
' Datei in dem gewählten Ordner speichern
Set Item.SaveSentMessageFolder = F
' Speichern bestätigen
SaveSentMail = True
End If
End If
End Function
Nun fände ich es ganz sinnvoll, dass wenn ich auf eine Mail antworte, nicht nur die neu gesendete Nachricht in den ausgewählten Ordner verschoben wird, sondern auch die Mail aufn die ich gerade geantwortet habe.
Kann man das noch irgendwie realisieren?