none
Deliver Mail aus sekundärem Postfach mit RDO RRS feed

  • Frage

  • Hallo Zusammen,

    ich bin mir nicht sicher, ob ich hier richtig bin.
    Sollte dies nicht der Fall sein, wäre mir schon sehr geholfen, würde ich einen Hinweis bekommen, welches das korrekte Forum ist.

    Folgende Situation:
    Ich habe ein kleines Outlook Macro erstellt, welches sämtliche E-Mails die sich in einem bestimmten Outookordner befinden versendet.

    Problem konkret:
    - angemeldet mit eigenem Postfach "max.mustermann"
    - sekundäres Postfach gemappt "kundenmails"
    - im Postfach "kundenmails" besteht ein Ordner namens "kunden"
    - die E-Mails in dem Ordner Kunden sollen versendet werden
    - die E-Mails werden nach Ausführung des Scriptes in dem Ordner kursiv dargestellt aber nicht versendet


    So sieht der Code aus:

    'RDOSession für Ordnerzugriff
    Set Session = CreateObject("Redemption.RDOSession")
    Session.MAPIOBJECT = Application.Session.MAPIOBJECT
    Set Store = Session.Stores.GetSharedMailbox(Mailboxname)      'z.B. Kundenmails
    Set Inbox = Store.GetDefaultFolder(olFolderInbox)
    Set Folder = Inbox.Parent.Folders(Ordnername)                       'z.B. Kunden

    Set safeitem = CreateObject("Redemption.SafeMailItem")

    For z = Folder.Items.Count To 1 Step -1
                With safeitem
                   Folder.Items(z).Send
                   Set Utils = CreateObject("Redemption.MAPIUtils")
                        Utils.DeliverNow
                End With
    Next z

    Die beiden Sets Utils und safemail habe ich eingefügt, nachdem ich http://www.dimastr.com/redemption/faq.htm#1 gelesen hatte.
    (Benutzt wird Outlook 2003 in einer Exchange 2007 Umgebung)

    Evtl. hat jemand eine Idee, weshalb die E-Mails nicht versendet werden?`

    Danke schon im Voraus!

    Tingking



    • Verschoben Thorsten Dörfler Mittwoch, 16. März 2011 09:09 Makro/VBA (aus:Visual Basic (ab Version 2002 / .NET))
    Mittwoch, 16. März 2011 08:46