Outlook2k3 VBA- BCC versenden+Kopie in Unterordner legen

Dieses Thema Outlook2k3 VBA- BCC versenden+Kopie in Unterordner legen im Forum "Windows XP Forum" wurde erstellt von Dev, 23. März 2010.

Thema: Outlook2k3 VBA- BCC versenden+Kopie in Unterordner legen Habe im Outlook 2003 einen Regel erstellt. Wenn ein E-Mail den Betreff Hallo Frank blabla hat dann E-Mail an...

  1. Dev
    Dev
    Habe im Outlook 2003 einen Regel erstellt.
    Wenn ein E-Mail den Betreff Hallo Frank blabla hat dann E-Mail an testxyz@testdomain.de senden.

    In VBA habe ich dann den unten angegebenen Code aufgeschrieben.

    (Wenn die E-Mail an testxyz@testdomain.de gesendet wird soll wie im VBA Code
    die E-Mail über BCC an
    - kontakt@domain-1.com
    - info@domain-2.com
    - support@domain-3.com
    senden.

    anschliessend soll diese eine Mail die an 3 E-Mails über BCC gesendet worden sind, in 3 verschiedenen Subordner kopiert werden.

    Beispiel:
    E-Mail: Hallo Frank blabla
    1.) wird per Regel an testxyz@testdomain.de weitergeleitet.
    2.) (VBA) wird per BCC an
    - kontakt@domain-1.com
    - info@domain-2.com
    - support@domain-3.com
    gesendet
    3.) Die E-Mail: Hallo Frank blabla in 3 Unterordnern kopieren
    - kopieren in Postausgang / Kontakt
    - kopieren in Postausgang / Info
    - kopieren in Postausgang / Support

    (E-Mail empfangen -> weiterleiten BCC an 3 E-Mails -> diese Mail in 3 Unterordner kopieren )


    Nur leider weiß ich nicht so genau wie ich das über VBA realisieren kann.
    (bin ein neuling in Sachen VBA)

    VBA Code den ich im Netz gefunden habe ..

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim email As String
    email = kontakt@domain-1.com
    Dim r As Recipient
    Set r = Item.Recipients.Add(email)
    r.Type = olBCC
    r.Resolve
    Item.Save
    'Ergänzung für weitere Blindkopie
    Set objMe = Item.Recipients.Add(info@domain-2.com)
    objMe.Type = olBCC
    objMe.Resolve
    'Ende Ergänzung
    'Ergänzung für weitere Blindkopie
    Set objMe = Item.Recipients.Add(support@domain-3.de)
    objMe.Type = olBCC
    objMe.Resolve
    'Ende Ergänzung
    End Sub

    MfG
    Dev
     
Die Seite wird geladen...

Outlook2k3 VBA- BCC versenden+Kopie in Unterordner legen - Ähnliche Themen

Forum Datum
autovervollständigung im feld an outlook2k3 Microsoft Office Suite 29. Sep. 2005
Outlook2k3 trennt Verbingung exchange2k3 Microsoft Office Suite 10. Mai 2005
Word 2000: VBA-Fehler 4120 "Falscher Parameter" Webentwicklung, Hosting & Programmierung 17. Mai 2012
VBA-Programm automatisch starten??? Windows XP Forum 7. Juni 2010
VBA-Excel Variable in for-schleife hochzählen Microsoft Office Suite 27. Okt. 2008