Saludos, he escrito un código para enviar email por el control MAPI , pero dá errores en el momento de enviar, utilizo el MAPISSESSION y MAPIMESSAGE con sus valores en las propiedades , pero no me especifica el error, uds. tendrán un código de ejemplo que funcione para poder guiarme.Gracias...
Si utilizas el buscador con la palabra MAPI, obtendrás numerosas referencias y código ejemplo que te servirán de guía y seguramente reselven el problema.
Ya conseguí un ejemplo que funciona, si dá errores pueden ser direcciones de correo mal escritas pero en general funciona y lo pongo lo mas claro posible.
Antes se agrega el componente MAPi en el proyecto y se colocan los controles Mapisession y Mapimesssage en el formulario.
'control del mapisession
With MAPIS1
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIM1.SessionID = .SessionID
End With
'control del mapimessage
With MAPIM1
.Compose
.RecipAddress = "el correo del destinatario"
.AddressResolveUI = True
.ResolveName
.MsgSubject = "Asunto del email"
.MsgNoteText = "texto del mensaje"
.Send False
End With