Enviar Emails
Publicado por ElMago (10 intervenciones) el 01/11/2007 10:46:25
Hola amigos, estoy desarrollando una aplicación para enviar emais y para ello estoy utilizando el control MAPI con el siguiente código que realmente funciona:
'***' Iniciar Sesión
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
'Redacción de Mensaje
MAPIMessages1.MsgIndex = -1
MAPIMessages1.MsgOrigAddress = Text1(2).Text
'Dirección a la que se envía
MAPIMessages1.RecipAddress = "[email protected]"
'Asunto del mensaje
MAPIMessages1.MsgSubject = Text1(3).Text
'Cuerpo del Mensaje
MAPIMessages1.MsgNoteText = txtMsg.Text
'nombre que tendra el archivo dentro del email
MAPIMessages1.AttachmentName = Text1(4).Text
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.Send True
'Termina Sesion
MAPISession1.SignOff
Mi pregunta es la siguiente: ¿Como puedo hacer para que me envíe el mensaje directamente a la Bandeja de Salida? sin que se quede abierto y pendiente de dar al botón enviar.
Gracias de antemano por su ayuda.
Un saludo.
'***' Iniciar Sesión
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
'Redacción de Mensaje
MAPIMessages1.MsgIndex = -1
MAPIMessages1.MsgOrigAddress = Text1(2).Text
'Dirección a la que se envía
MAPIMessages1.RecipAddress = "[email protected]"
'Asunto del mensaje
MAPIMessages1.MsgSubject = Text1(3).Text
'Cuerpo del Mensaje
MAPIMessages1.MsgNoteText = txtMsg.Text
'nombre que tendra el archivo dentro del email
MAPIMessages1.AttachmentName = Text1(4).Text
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.Send True
'Termina Sesion
MAPISession1.SignOff
Mi pregunta es la siguiente: ¿Como puedo hacer para que me envíe el mensaje directamente a la Bandeja de Salida? sin que se quede abierto y pendiente de dar al botón enviar.
Gracias de antemano por su ayuda.
Un saludo.
Valora esta pregunta


0