Kennt jemand eine Möglichkeit mit VBScript eine eMail zu senden ?

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von chris_its.

    Hello,

    hab hier ein Script, mit dem du auch einen Mail erstellen kannst wenn Outlook nicht geöffnet ist.

    Funktioniert super.

    CU



    Visual Basic-Quellcode

    1. Dim oApp, oMail, bOLStarted
    2. On Error Resume Next
    3. Set oApp = GetObject("","Outlook.Application")
    4. If oApp Is Nothing Then
    5. Set oApp = CreateObject("Outlook.Application")
    6. bOLStarted = Not oApp Is Nothing
    7. End If
    8. Err.Clear
    10. If Not oApp Is Nothing Then
    11. On Error Resume Next
    12. Set oMail = oApp.CreateItem(0)
    13. Err.Clear
    14. If Not oMail Is Nothing Then
    15. oMail.To = "test@test.com"
    16. oMail.Subject = "TestSubject"
    17. oMail.Body = "TestBody"
    18. 'oMail.Sensitivity = 2 'Vertraulichkeit: Privat
    19. 'oMail.Importance = 2
    20. 'oMail.VotingOptions = "- Option1 -"
    21. ' oMail.... = ...
    23. oMail.Display
    24. Set oMail = Nothing
    25. Else
    26. MsgBox "Fehler beim Erstellen der Mail"
    27. End If
    28. If bOLStarted Then oApp.Quit
    29. Set oApp = Nothing
    30. Else
    31. Msgbox "Fehler beim Ermitteln/Erstellen einer Outlook Instanz"
    32. End If

Facebook
Telefonspende