Agrega el componente Microsoft MAPI controls, esto hace que en la bara de herramientas veas dos controles MAPISession y MAPIMessages
En el MAPISession tenes que setear la propiedad UserName y Password y luego llamar al evento SingOn
Si SingOn funciona OK, se va a llenar la propiedad SessionID. Este valor tenes que pasaserlo a la propiedad SessionID del control MAPIMessages que es el que te permite enviar y leer correos.
para inicar la sesion seria
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
Para leer el primer correo disponible
MAPIMessages1.Fetch
MAPIMessages1.MsgIndex = 0
Text1.Text = MAPIMessages1.MsgNoteText
Para enviar un correo
MAPIMessages1.MsgIndex = -1
MAPIMessages1.RecipAddress = "
[email protected]" Dir Email
MAPIMessages1.MsgSubject = "Tema"
MAPIMessages1.MsgNoteText = "texto Correo"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.Send False
