Outlook 2010 - Gesendete Mails in Öffentliche Ordner schieben
Hallo,
ich habe zur Vereinfachung für ein unserer Abteilungen folgendes VBA Script besorg damit sie beim versenden einer Mail auswählen können, in welchem Ordner die gesendete Mail landen soll. Das erspaart den schritt die Mail danach nochmals auszuwählen um sie zu verschieben. Bei den Ordnern der eigenen Mailbox funktioniert das auch einwandfrei. Wähle ich jedoch einen Öffentlichen Ordner dann passiert nix. Aber genau diese Ordner sind Wichtig ^^
Ich habe von VBA leider nicht so viel Ahnung. Hoffe ihr könnt da weiter helfen.
Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim myFolder As MAPIFolder
Dim myOlApp As Outlook.Application
Set myOlApp = CreateObject("Outlook.Application")
Set olNS = myOlApp.GetNamespace("MAPI")
If (Item.MessageClass = "IPM.Note") Then
Set myFolder = olNS.PickFolder
If Not (myFolder Is Nothing) Then
Set Item.SaveSentMessageFolder = myFolder
End If
Else
End If
End Sub
ich habe zur Vereinfachung für ein unserer Abteilungen folgendes VBA Script besorg damit sie beim versenden einer Mail auswählen können, in welchem Ordner die gesendete Mail landen soll. Das erspaart den schritt die Mail danach nochmals auszuwählen um sie zu verschieben. Bei den Ordnern der eigenen Mailbox funktioniert das auch einwandfrei. Wähle ich jedoch einen Öffentlichen Ordner dann passiert nix. Aber genau diese Ordner sind Wichtig ^^
Ich habe von VBA leider nicht so viel Ahnung. Hoffe ihr könnt da weiter helfen.
Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim myFolder As MAPIFolder
Dim myOlApp As Outlook.Application
Set myOlApp = CreateObject("Outlook.Application")
Set olNS = myOlApp.GetNamespace("MAPI")
If (Item.MessageClass = "IPM.Note") Then
Set myFolder = olNS.PickFolder
If Not (myFolder Is Nothing) Then
Set Item.SaveSentMessageFolder = myFolder
End If
Else
End If
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 273692
Url: https://administrator.de/forum/outlook-2010-gesendete-mails-in-oeffentliche-ordner-schieben-273692.html
Ausgedruckt am: 23.12.2024 um 06:12 Uhr
4 Kommentare
Neuester Kommentar
Moin,
LG, Thomas
Ich habe von VBA leider nicht so viel Ahnung.
ich auch nicht. Heisst, ich muss dann unter Umständen Wissen einkaufen.LG, Thomas