Announcement

Collapse
No announcement yet.

Outlook + Adobe

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Outlook + Adobe

    Muss versendete eMails abfangen.
    Von Outlook kein Problem (Application_ItemSend); aber wie fange ich eMails ab, die über Adobe Reader versendet wurden.
    Kennt jemand die Schnittstelle dazu??

  • #2
    Hallo Leute,
    habe eine Teillösung gefunden: Event

    Public WithEvents colCustomersItems As Outlook.Items

    Private Sub Application_Startup()
    Dim msg As Outlook.MailItem
    Dim objApp As Outlook.Application
    Dim objItem As Outlook.MailItem

    Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder( olFolderSentMail)
    Set colCustomersItems = myFolder.Items

    End Sub

    Private Sub colCustomersItems_ItemAdd(ByVal Item As Object)
    On Error Resume Next
    ... (div. DIMS)
    Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder( olFolderSentMail)

    Aber dazu muss Outlook offen sein; ein öffnen von Outlook über Adobe bringt hier keinen Treffer (event zieht nicht)

    Hat einer eine weitergehende Lösung?????

    Comment

    Working...
    X