AW: Outlook 2016 Ordner Auswahl beim Senden
09.02.2023 11:03:10
Phillip
Hoffe es ist jetzt besser
Hallo zusammen, hoffe ihr könnt mir weiter helfen :-). Da ich mich nicht wirklich aus kenne mit VBA. Habe dieses Makro im Netzt gefunden. Das Makro funktioniert soweit gut nur ein kleines Problem was mich etwas nervt ist das er immer auf den Posteingang steht. Möchte aber das er immer bei Gesendete Elemente steht. Weis einer wie ich den Start Ordner ändern kann so das er nicht immer auf dem Posteingang steht sondern z.B. auf Gesendete Elemente? MfG Um den Code zu Testen müsst ihr ihn folgender maßen rein kopieren
1. Der Aufruf erfolgt aus dem Application_ItemSend-Ereignis im Modul DieseOutlookSitzung. Hierhin kopieren Sie bitte den 1. Codeteil:
2. Den 2. Codeteil bitte in ein neues Modul kopieren (Einfügen -> Modul im VBA-Editor)
1
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Cancel = SentFolder(Item) Set Item = Nothing End Sub
2
Option Explicit
Public Function SentFolder(ByRef Item As Object) As Boolean
Dim objFolder As Object
If Not Item.Class = olMail Then Exit Function
Do
Set objFolder = Nothing
Set objFolder = Outlook.Session.PickFolder
If objFolder Is Nothing Then
SentFolder = True
Exit Function
End If
If InStr(objFolder.DefaultMessageClass, "IPM.Note") = 0 Then
Set objFolder = Nothing
If MsgBox("Bitte wählen Sie einen Ordner für E-Mails aus." _
, vbCritical + vbOKCancel, "Ablage auswählen") = vbCancel Then
SentFolder = True
Exit Function
End If
End If
If Not objFolder Is Nothing Then
If objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox) Then
If MsgBox("Möchten Sie wirklich die gesendete E-Mail im Posteingang ablegen?" _
, vbExclamation + vbYesNo + vbDefaultButton2, "Ablage auswählen") = vbNo Then
Set objFolder = Nothing
End If
End If
End If
Loop While objFolder Is Nothing
Set Item.SaveSentMessageFolder = objFolder
Set objFolder = Nothing
End Function