Gesendete Mails automatisch verschieben - Digital-Inn

einer von Vi · 30-08-2006

Liebes Forum,

ich habe in meinem Outlook einige Ordner erstellt und verschiebe jetzt jede ankommende Mail in den entsprechenden Ordner (oder lasse sie mit einer Regel gleich in einen Ordner verschieben).

Gleiches möchte ich auch für gesendete Mails machen. Nach dem Senden einer E-Mail wird diese momentan noch in den Ordner ´Gesendete Objekte´ gespeichert. Wenn ich die gesendete Mail aber in einem anderen Ordner speichern möchte, muss ich dieses von Hand machen. Das geht doch bestimmt auch einfacher habe ich mir gedacht und dazu folgendes Programm geschrieben:

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim myFolder As MAPIFolder
    Dim myOlApp As Outlook.Application
    Dim myOlExp As Outlook.Explorer
    
    Set myOlApp = CreateObject("Outlook.Application")
    Set olNS = myOlApp.GetNamespace("MAPI")
    Set myFolder = olNS.PickFolder
    
If Not (myFolder Is Nothing) Then
    Set Item.SaveSentMessageFolder = myFolder
End If
    
End Sub

Nach dem Drücken des ´Senden´ Buttons einer Mail wird in das Programm gesprungen, über die Funktion ´PickFolder´ geht ein Fenster mit meiner Ordnerstruktur auf und ich wähle einen Ordner aus. Der gewählte Ordner wird in ´myFolder´ gespeichert und als Speicherort für die gesendete Mail gesetzt (mittels ´SaveSentMessageFolder´). Die gesendete Mail wird also in dem gewählten Ordner gespeichert (und nicht mehr wie bisher in ´Gesendete Objekte´).
Damit hat mein Programm eigentlich seine Aufgabe erfüllt, wenn es denn auch funktionieren würde wenn ich einen Ordner ausserhalb meines ´Outlook Heute´ Postfaches auswählen würde. Denn jedesmal wenn ich einen Ordner in der ´Ablage´wähle z.B. ´Ablage/Sonstiges/´ wird die gesendete Mail nicht dort sondern in ´Outlook Heute/Postausgang´ gespeichert.
Ich bin schon seit zwei Tagen am recherchieren und probieren aber ich bekomms einfach nicht hin (und bald beisse ich in die Tastatur). Also, falls jemand einen hilfreichen Tipp hätte währe ich echt dankbar.

Mit bestem Dank im Voraus
Markus

croth75 · 12-08-2009

Hi Markus, vielleicht hilft Dir das
http://www.sendandmove.com/de/
http://www.claritude.com/

Quote:

Originally Posted by einer von Vi

Liebes Forum,

ich habe in meinem Outlook einige Ordner erstellt und verschiebe jetzt jede ankommende Mail in den entsprechenden Ordner (oder lasse sie mit einer Regel gleich in einen Ordner verschieben).

Gleiches möchte ich auch für gesendete Mails machen. Nach dem Senden einer E-Mail wird diese momentan noch in den Ordner ´Gesendete Objekte´ gespeichert. Wenn ich die gesendete Mail aber in einem anderen Ordner speichern möchte, muss ich dieses von Hand machen. Das geht doch bestimmt auch einfacher habe ich mir gedacht und dazu folgendes Programm geschrieben:

Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim myFolder As MAPIFolder
    Dim myOlApp As Outlook.Application
    Dim myOlExp As Outlook.Explorer
    
    Set myOlApp = CreateObject("Outlook.Application")
    Set olNS = myOlApp.GetNamespace("MAPI")
    Set myFolder = olNS.PickFolder
    
If Not (myFolder Is Nothing) Then
    Set Item.SaveSentMessageFolder = myFolder
End If
    
End Sub

Nach dem Drücken des ´Senden´ Buttons einer Mail wird in das Programm gesprungen, über die Funktion ´PickFolder´ geht ein Fenster mit meiner Ordnerstruktur auf und ich wähle einen Ordner aus. Der gewählte Ordner wird in ´myFolder´ gespeichert und als Speicherort für die gesendete Mail gesetzt (mittels ´SaveSentMessageFolder´). Die gesendete Mail wird also in dem gewählten Ordner gespeichert (und nicht mehr wie bisher in ´Gesendete Objekte´).
Damit hat mein Programm eigentlich seine Aufgabe erfüllt, wenn es denn auch funktionieren würde wenn ich einen Ordner ausserhalb meines ´Outlook Heute´ Postfaches auswählen würde. Denn jedesmal wenn ich einen Ordner in der ´Ablage´wähle z.B. ´Ablage/Sonstiges/´ wird die gesendete Mail nicht dort sondern in ´Outlook Heute/Postausgang´ gespeichert.
Ich bin schon seit zwei Tagen am recherchieren und probieren aber ich bekomms einfach nicht hin (und bald beisse ich in die Tastatur). Also, falls jemand einen hilfreichen Tipp hätte währe ich echt dankbar.

Mit bestem Dank im Voraus
Markus

30-08-2006	#1
einer von Vi Registered User Board-Frischling Join Date: Aug 2006 Location: Hamburg Posts: 1 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Gesendete Mails automatisch verschieben Liebes Forum, ich habe in meinem Outlook einige Ordner erstellt und verschiebe jetzt jede ankommende Mail in den entsprechenden Ordner (oder lasse sie mit einer Regel gleich in einen Ordner verschieben). Gleiches möchte ich auch für gesendete Mails machen. Nach dem Senden einer E-Mail wird diese momentan noch in den Ordner ´Gesendete Objekte´ gespeichert. Wenn ich die gesendete Mail aber in einem anderen Ordner speichern möchte, muss ich dieses von Hand machen. Das geht doch bestimmt auch einfacher habe ich mir gedacht und dazu folgendes Programm geschrieben: Code: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim myFolder As MAPIFolder Dim myOlApp As Outlook.Application Dim myOlExp As Outlook.Explorer Set myOlApp = CreateObject("Outlook.Application") Set olNS = myOlApp.GetNamespace("MAPI") Set myFolder = olNS.PickFolder If Not (myFolder Is Nothing) Then Set Item.SaveSentMessageFolder = myFolder End If End Sub Nach dem Drücken des ´Senden´ Buttons einer Mail wird in das Programm gesprungen, über die Funktion ´PickFolder´ geht ein Fenster mit meiner Ordnerstruktur auf und ich wähle einen Ordner aus. Der gewählte Ordner wird in ´myFolder´ gespeichert und als Speicherort für die gesendete Mail gesetzt (mittels ´SaveSentMessageFolder´). Die gesendete Mail wird also in dem gewählten Ordner gespeichert (und nicht mehr wie bisher in ´Gesendete Objekte´). Damit hat mein Programm eigentlich seine Aufgabe erfüllt, wenn es denn auch funktionieren würde wenn ich einen Ordner ausserhalb meines ´Outlook Heute´ Postfaches auswählen würde. Denn jedesmal wenn ich einen Ordner in der ´Ablage´wähle z.B. ´Ablage/Sonstiges/´ wird die gesendete Mail nicht dort sondern in ´Outlook Heute/Postausgang´ gespeichert. Ich bin schon seit zwei Tagen am recherchieren und probieren aber ich bekomms einfach nicht hin (und bald beisse ich in die Tastatur). Also, falls jemand einen hilfreichen Tipp hätte währe ich echt dankbar. Mit bestem Dank im Voraus Markus

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sponsored Links

Sponsored Links