Hallo zusammen!
Folgendes:
Beim Senden einer e-mail im Outlook sollte eine Auswahl erscheinen, wo man einen Ordner wählen kann, in dem man das gesendete e-mail speichern möchte.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objFolder As Object
Do
Set objFolder = Nothing
Set objFolder = Outlook.Session.PickFolder
If objFolder Is Nothing Then
Cancel = True
GoTo ExitProc
End If
usw.
Funktioniert auch soweit, dass eine Auswahl getroffen werden kann (PickFolder), aber leider wird als Standardordner immer der Posteingang ausgewählt! Es sollte aber der Ordner "Gesendete Objekte" ausgewählt werden!
Kleinigkeit, ich weiß, aber ein Klick weniger macht bei vielen e-mails viel aus...
Danke und Lg
Harry |