' Benutzer anmelden und SessionID erzeugen
    With MAPISession1
      ' Benutzername und Passwort (für das Mailkonto)
      .UserName =
      .Password = 
 
      .SignOn
 
      '  SessionID
      MAPIMessages1.SessionID = .SessionID
    End With
 
    ' Mail senden
    With MAPIMessages1
      ' Neue Nachricht
      .Compose
 
      ' Empfänger
      .RecipAddress =     
      ' Betreff
      .MsgSubject = 
      ' Nachricht selbst
      .MsgNoteText =    
       ' Namen auflösen
      .ResolveName
 
      ' Nachricht versenden
      .Send
 
    End With