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 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