<code>Private Sub Form_Load()
  With MAPISessions1
    .SignOn
    MAPIMessages1.SessionID = .SessionID
  End With
End Sub</code>

<code><font color=green>' Mail senden</font>
Private Sub cmdSend_Click()
  With MAPIMessages1
    .Compose
    .RecipDisplayName = txtEmpf.Text
    .MsgSubject = txtSubject.Text
    .MsgNoteText = txtBody.Text
    .ResolveName
    .Send
  End With
End Sub</code>