Hat man im Outlook mehr als ein Postfach eingebunden und schreib nun eine Mail mit dem Absender eines der „neben“ Postfächer, dann landet die gesendet Mail im eigenen Ordner „Gesendete Objekte„.
Wie kommt die gesendete Mail ohne manuelles zutun nun in das richtige Postfach und dort in die „Gesendete Objekte„?
Dafür hilft folgendes VBA Script. Dazu den VBA Editor mit ALT+F11 aufrufen und „DieseOutlookSitzung“ im Projekt Explorer auswählen. Danach den folgenden Inhalt hinzufügen. Die Variable strNameSendFolder muss noch angepasst werden. Hier kann „Gesendete Elemente“ oder „Gesendete Objekte“ stehen oder jeder andere beliebige Ordner im entsprechenden Postfach.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
Public WithEvents mySentItems As Items Sub Application_startup() Set mySentItems = Application.GetNamespace("MAPI").GetDefaultFolder _ (olFolderSentMail).Items End Sub Private Sub mySentItems_ItemAdd(ByVal Item As Object) 'Gesendete Objekte weitere Postfächer kopieren On Error GoTo Fehler Dim olItem As MailItem Dim olNameSpace As Outlook.NameSpace Dim olMAPIFolder As Outlook.MAPIFolder Dim oCurrentUser As Object Dim strSenderUser As String Dim strSenderUserMAPIFolder As String Dim strNameSendFolder As String Set olNameSpace = Application.GetNamespace("MAPI") '#################################################################################### ' Bitte anpassen. Muss der Name des Ordners sein, in dem die Mail kopiert werden soll '#################################################################################### strNameSendFolder = "Gesendete Elemente" If (Item.Class = olMail) Then Set oCurrentUser = olNameSpace.CurrentUser If (Item.SentOnBehalfOfName = oCurrentUser) Then Exit Sub Else Set olCopiedItem = Item.Copy strSenderUser = Item.SentOnBehalfOfName strSenderUserMAPIFolder = "Postfach - " & strSenderUser Set olMAPIFolder = olNameSpace.Folders(strSenderUserMAPIFolder) olCopiedItem.Move olMAPIFolder.Folders(strNameSendFolder) olCopiedItem.Save Exit Sub End If Else Exit Sub End If Fehler: 'MsgBox "Es ist ein Fehler aufgetreten." & Chr$(13) & _ '"Die Nachricht wurde in ihren Gesendeten Objekten gespeichert.", _ 'vbCritical + vbOKOnly, "Es ist ein Fehler aufgetreten!" End Sub |
Nun Outlook neustarten. Danach werden die Mails in den Postausgangsordner des Absenders kopiert.
Update 2012-02-27:
Danke an Daniel für den Tipp mit den Registry Eintrag.
Hier ist der KB Artikel von Microsoft: http://support.microsoft.com/kb/972148/de
Und hier der Artikel von Daniel: http://www.dalecom.de/gesendete-objekte-im-erweiterten-postfach/
Hallo,
man kann die Zuordnung der „Gesendeten Objekte“ durch das Setzen eines Registry-Keys für Outlook anpassen.
http://www.dalecom.de/gesendete-objekte-im-erweiterten-postfach/
Liebe Grüße
Daniel Lensing
Funktioniert nicht mit OL2010 uns Exchange2010
Was funktioniert nicht? VBA Script oder RegKey?
Schalte den CachedMode ein, dann funktioniert es..!