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?
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
- sub ()
- Dim MAPISession1 As New MSMAPI.MAPISession
- Dim MAPIMessages1 As New MSMAPI.MAPIMessages
- On Error GoTo TTT
- MAPISession1.SignOn()
- With MAPIMessages1
- .SessionID = MAPISession1.SessionID
- .Compose()
- .MsgSubject = "Betreff"
- .RecipDisplayName = "empfaenger@mail"
- .ResolveName()
- .MsgNoteText = "Text"
- .AttachmentIndex = 0
- .AttachmentPosition = 0
- '.AttachmentType = 0
- .AttachmentPathName = "C:\Test.txt"
- .Send()
- End With
- MAPISession1.SignOff()
- MsgBox("Die Email wurde erfolgreich versendet!", vbInformation + vbOKOnly, "Mail versendet...")
- Exit Sub
- TTT:
- MsgBox("Fehler beim Versenden der Email aufgetreten!", vbCritical + vbOKOnly, "Fehler...")
- End Sub