I used the following for testing and it generates no error but I didn't find the new email in the particular account. Meaning I sent to my own account but I didn't receive anything even though I clicked 1000+ times the send button. Private Sub cmdSend_Click() MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID MAPIMessages1.Compose