para el correo tienes que insertar en la pantalla los iconos MAPISession y MAPMessages
MAPISession Nombre del objeto MAPIS
MAPIMessages Nombre del objeto MAPIM
Private Sub EnviarCorreo()
MAPIS.LogonUI = False
MAPIS.DownLoadMail = False
MAPIS.LogonUI = True
MAPIS.NewSession = True
MAPIS.SignOn
MAPIM.MsgIndex = -1
MAPIM.SessionID = MAPIS.SessionID
MAPIM.Compose
MAPIM.RecipAddress = "
[email protected]"
MAPIM.MsgSubject = "XXXXXXXXXXXXXX"
MAPIM.MsgNoteText = "XXXXXXXXXXXXXXXXXXXXXxxx
MAPIM.Send False
MAPIS.SignOff
End Sub
Cuentame si te resulto, estare agradecido