Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Gesendete Mails automatisch in einen zweiten Ordner kopieren
zurück: Umlaute per VBS in Outlook 2007 Signatur weiter: Downloads durchnummerieren, da Filenamen öfter vorhanden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dutch_OnE
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Apr 2011, 17:38
Rufname:
Wohnort: Hamburg

Gesendete Mails automatisch in einen zweiten Ordner kopieren - Gesendete Mails automatisch in einen zweiten Ordner kopieren

Nach oben
       Version: Office 2010

Hallo,

ich möchte alle Postein- und Postausgänge mit VBA zusätzlich in einem anderen Ordner sichern.

Den Posteingang sichere ich wie folgt:

Code:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
   
    Dim varEntryIDs
    Dim objItem
    Dim i As Integer
       
    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(6)
    Set myNewFolder = myFolder.Folders("Saved Mail")
   
    varEntryIDs = Split(EntryIDCollection, ",")
   
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        Set myCopiedItem = objItem.Copy
        myCopiedItem.Move myNewFolder
    Next
     
End Sub


Wie kann ich aber die gesendeten Objekte ebenfalls sichern ?

Mit item.sent funktioniert eine Kopie, aber dieses geschieht vor dem eigentlichen Senden, so dass dort kein Empfänger eingetragen ist.

Dann hatte ich überlegt im Ordner gesendete Objekte zu prüfen, ob eine neue Mail ankommt und dann mit Item.add diese zu kopieren. Allerdings komme ich mit dem Event Handler nicht klar.

Kann mir jemand weiterhelfen ?
Dutch_OnE
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Apr 2011, 13:20
Rufname:
Wohnort: Hamburg


AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Ich habe die Lösung selbst gefunden.

Code:

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    Dim myInbox As Outlook.MAPIFolder
    Dim myFolder As Outlook.MAPIFolder
    Dim myNewFolder As Outlook.MAPIFolder
    Dim Ns As Outlook.NameSpace
    Set Ns = Application.GetNamespace("MAPI")
    Set myFolder = Ns.GetDefaultFolder(olFolderSentMail)
    Set myInbox = Ns.GetDefaultFolder(olFolderInbox)
    Set myNewFolder = myInbox.Folders("Ablage")
    Set myCopiedItem = Item.Copy
    myCopiedItem.Move myNewFolder
    myCopiedItem.Save
    DoEvents
    Busy = False
End Sub
nimenn
Hat schon mal mit Office gearbeitet


Verfasst am:
09. Apr 2011, 11:44
Rufname:

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Hallo,

danke für das Mitteilen der Lösung Smile

Gruß und ein schönes Wochenende
nimenn
eduard_c
Gast


Verfasst am:
09. Dez 2011, 19:07
Rufname:

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

hallo,
mag mir das jemadn so erklären, wie ich dieses skript auf outlook anwenden kann? ich versteh leider nur bahnhof,
wäre echt super1!!!
eduard_c
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Dez 2011, 19:13
Rufname:


AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

liebe leute,
ich habe mich registriert um eine antwort auf mein problem zu bekommen,
leider bin ich nicht so tief in der materie,
als dass ich das verstehen wuerde,
mag mir jemand dabei helfen???
waere super,
vielen dank,
andreas
Michael Bauer
MVP Outlook


Verfasst am:
09. Dez 2011, 21:32
Rufname:
Wohnort: Vollersode

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Hallo,

die VBA-Umgebung öffnest Du mit alt+f11. Dann kopiere das beispiel ins Modul "DieseOutlookSitzung". Starte OL danach neu.

_________________
Michael Bauer
Tools für Microsoft Outlook
eduard_c
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Dez 2011, 21:39
Rufname:

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

lieber michael,
mein problem ist folgendes: im buero vergisst jeder
die gesendeten mails in den zentralen ordner zu legen (bin gerade in testphase mit www.publicsharefolder.at)..dh jeder hat einen persönlcihen account mit eigenem "gesendete objekte" ordner, alle emails sollten von diesen auf einen eigenen ordner (den ich angelegt habe im zentralen account) automatisch verschoebn werden...
nun weiss ich nicht genau was dieses script genau macht?)
bitte um kurzes feedback,
danke
andreas
eduard_c
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Dez 2011, 21:41
Rufname:

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Nachtrag: bei einem automatischem cc sehe ich nicht an wen ich das mail versendet habe,...
eduard_c
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Dez 2011, 21:41
Rufname:

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Nachtrag: bei einem automatischem cc sehe ich nicht an wen ich das mail versendet habe,...
Örv76
lernfähig!!!


Verfasst am:
17. Apr 2014, 10:36
Rufname:
Wohnort: im Ösiland

AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Hallo Gemeinde und Sorry, wenn ich auf einen so alten Beitrag antworte, aber genau den Teil habe ich verwendet.

Code:
Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    Dim myInbox As Outlook.MAPIFolder
    Dim myFolder As Outlook.MAPIFolder
    Dim myNewFolder As Outlook.MAPIFolder
    Dim Ns As Outlook.NameSpace
    Set Ns = Application.GetNamespace("MAPI")
    Set myFolder = Ns.GetDefaultFolder(olFolderSentMail)
    Set myInbox = Ns.GetDefaultFolder(olFolderInbox)
    Set myNewFolder = myInbox.Folders("Ablage")
    Set myCopiedItem = Item.Copy
    myCopiedItem.Move myNewFolder
    myCopiedItem.Save
    DoEvents
    Busy = False
End Sub


Soweit wird mir jedes gesendete Mail als "Kopie" nicht nur im gesendete Objekte Ordner angezeigt, sonder auch noch in das Verzeichnis "Ablage" kopiert wie im Code angegeben.

Ich will jetzt aber nicht jedes Mail dort hin kopieren lassen, sonder nur gewisse markierte Mails.

Die Kurve hätte ich mit einer Nachverfolgungs Markierung vorgestellt.

Wie kann ich das im Code verwirklichen, dass nur diese vor dem senden markierten Mails kopiert werden?

Danke vorab

Gruß
Örv

_________________
Danke schon vorab für eure immer wiederkehrende Hilfe!!!!
nimenn
Hat schon mal mit Office gearbeitet


Verfasst am:
17. Apr 2014, 11:18
Rufname:


AW: Gesendete Mails automatisch in einen zweiten Ordner kopi - AW: Gesendete Mails automatisch in einen zweiten Ordner kopi

Nach oben
       Version: Office 2010

Hallo,

indem Du z.B. mit einer IF Abfrage die Nachverfolgung abfragst und so Objekte einschränkst.

Weitere Informationen dazu, kannst Du z.B. aus Michaels folgendem
Skript entnehmen:
http://vboffice.net/sample.html?mnu=2&smp=89&cmd=showitem&lang=de

Gruß
nimenn
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Automatisch Sende- Konto wählen 2 TschiepTschiep 1091 30. Nov 2004, 01:29
Gast Automatisch Sende- Konto wählen
Keine neuen Beiträge Outlook Mail: gesendete objekte 0 gugenot 1112 26. Nov 2004, 11:31
gugenot gesendete objekte
Keine neuen Beiträge Outlook Mail: im Auftrag gesendete Mail´s im dazugehörigen Postfach speich 1 Klaus G 1509 17. Nov 2004, 23:55
wolf-it im Auftrag gesendete Mail´s im dazugehörigen Postfach speich
Keine neuen Beiträge Outlook Mail: Ankommende Mails gehen in den Ordner Gelöschte 3 Alberto 1902 17. Nov 2004, 21:36
JoernZ Ankommende Mails gehen in den Ordner Gelöschte
Keine neuen Beiträge Outlook Mail: Mails werden nicht automatisch geladen Outlook 2003 1 Ingolf1 1633 17. Nov 2004, 20:15
gast7896 Mails werden nicht automatisch geladen Outlook 2003
Keine neuen Beiträge Outlook Mail: Mails weiterleiten, aber mit ursprünglicher "Von:" 0 Ich bin ein Niemand 809 05. Okt 2004, 14:33
Ich bin ein Niemand Mails weiterleiten, aber mit ursprünglicher "Von:"
Keine neuen Beiträge Outlook Mail: gelese Mails als Ungelesen behalten (automatisch!) 1 blueandrew 1514 01. Okt 2004, 09:56
macdeal gelese Mails als Ungelesen behalten (automatisch!)
Keine neuen Beiträge Outlook Mail: Mails bleiben im Postausgang statt gesendete Objekte 1 zu 5193 29. Sep 2004, 11:32
Guest Mails bleiben im Postausgang statt gesendete Objekte
Keine neuen Beiträge Outlook Mail: In den persönlichen Ordner zeigt mir doppelt gleichen conto 0 blumenberg 600 20. Sep 2004, 19:36
blumenberg In den persönlichen Ordner zeigt mir doppelt gleichen conto
Keine neuen Beiträge Outlook Mail: senden von mails bei web.de - speichern bei outlook 2 Wuzz 1522 11. Sep 2004, 13:07
hasemann senden von mails bei web.de - speichern bei outlook
Keine neuen Beiträge Outlook Mail: Outlook empfängt zwar mails,sendet aber keine :'-( 2 Gast 1333 16. Aug 2004, 23:07
Nicki Wruck Outlook empfängt zwar mails,sendet aber keine :'-(
Keine neuen Beiträge Outlook Mail: mehrere mails verschicken 5 tommyy 989 06. Aug 2004, 08:43
iso mehrere mails verschicken
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA