E-Mail versand mit mapi

  • VB.NET

    E-Mail versand mit mapi

    In der folgenden methode will ich mit vb2005 emails versenden. das schöne ist, das ganze funktioniert - das schlechte, ich kann keine attachments mit senden.

    vielleicht weiß ja wer was ich noch verändern muss. zweie frage: wie kann ich mehrere empfänger angeben?

    dritte frage: gewinnt der vfb am we in münchen?

    Quellcode

    1. sub ()
    2. Dim MAPISession1 As New MSMAPI.MAPISession
    3. Dim MAPIMessages1 As New MSMAPI.MAPIMessages
    5. On Error GoTo TTT
    7. MAPISession1.SignOn()
    8. With MAPIMessages1
    9. .SessionID = MAPISession1.SessionID
    10. .Compose()
    11. .MsgSubject = "Betreff"
    12. .RecipDisplayName = "empfaenger@mail"
    13. .ResolveName()
    14. .MsgNoteText = "Text"
    16. .AttachmentIndex = 0
    17. .AttachmentPosition = 0
    18. '.AttachmentType = 0
    19. .AttachmentPathName = "C:\Test.txt"
    21. .Send()
    23. End With
    25. MAPISession1.SignOff()
    26. MsgBox("Die Email wurde erfolgreich versendet!", vbInformation + vbOKOnly, "Mail versendet...")
    27. Exit Sub
    29. TTT:
    30. MsgBox("Fehler beim Versenden der Email aufgetreten!", vbCritical + vbOKOnly, "Fehler...")
    32. End Sub

Facebook
Telefonspende