Outlook VB Script vor Senden ausführen

  • Outlook

    Outlook VB Script vor Senden ausführen

    Moin Leute.
    Ich habe jetzt leider Google leergespielt, finde aber den Wald vor lauter Bäumen nicht. Sorry.
    Kurz zu mir:
    Ich bin zwar kein ganz neuer Neuling mehr in der VB Scene, hab aber doch so manches Mal einfach Tomaten auf den Augen.

    Jetzt zum Problem:
    Wir können aus unserem ERP eine E-Mail erzeugen, die dann über Outlook 2016 verschickt wird. Jetzt möchte ich vor dem Senden dieser E-Mail eine Frage einbauen, ob auch an dem Anhang gedacht wurde ( muss händisch angefügt werden ). Bisher klappte das auch, wenn ich diese E-Mail aus Outlook generiere. Jetzt habe ich schon gelesen, das es wohl darum geht, das beim Generieren aus dem ERP Modul Outlook selbst erstmal gar nicht laufen müsste. Und hier liegt wohl das Problem, so denke ich zumindest.
    Ich bin mir sicher, das ich hier an der richten Stelle bin, daher bin ich über Eure Hilfe dankbar!

    Visual Basic-Quellcode

    1. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    2. Dim olApp
    3. Set olApp = CreateObject("Outlook.Application")
    4. Dim olNs
    5. Set olNs = olApp.GetNamespace("MAPI")
    6. olNs.Logon
    7. Dim oEmail As MailItem
    8. Set oEmail = Application.CreateItem(olMailItem)
    9. If Item.Subject Like "*Test*" Then
    10. If Item.Attachments.Count = 0 Then
    11. answer = MsgBox("Willst Du die Mail ohne Anhang senden?", vbYesNo)
    12. If answer = vbNo Then Cancel = True
    13. End If
    14. End If
    15. End Sub

Facebook
Telefonspende