Private Sub SignOn(sUser As String, sPassword As String)
  ' Benutzer anmelden und SessionID erzeugen
  With MAPISession1
    ' Benutzername und Passwort (für das Mailkonto)
    .UserName = sUser
    .Password = sPassword
 
    .SignOn
 
    ' SessionID
    MAPIMessages1.SessionID = .SessionID
  End With
End Sub

Private Sub SendMail(sRecipient As String, sSubject As String, sMessage As _
  String)
  ' Mail senden
  With MAPIMessages1
    ' Neue Nachricht
    .Compose
 
    ' Empfänger
    .RecipAddress = sRecipient
 
    ' Betreff
    .MsgSubject = sSubject
 
    ' Nachricht selbst
    .MsgNoteText = sMessage
 
     ' Namen auflösen
    .ResolveName
 
    ' Nachricht versenden
    .Send True
  End With
End Sub

' 1. Anmelden
SignOn "Username", "Passwort"
 
' 2. Mail versenden
SendMail ...
 
' 3. noch ein Mail versenden
SendMail ...
 
' 4. Abmelden
MAPISession1.SignOff

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de