Envio de correo en office 2003
Publicado por Wilmer Gil (1 intervención) el 02/02/2007 01:11:28
Amigos de la web
Tengo un inconveniente respecto al envio de correo en el office 2003 mas no en el 2000, desde una aplicacion en VB 6, por cada correo enviado me sale un mensaje de confirmación que tiene por descripcion "un programa esta intentando enviar correo electronico en su nombre ¿Desea permitirlo? " acompañado de tres cajas de texto si, no y ayuda, el tema es que envio correo en cantidad y el usuario no puede estar aceptando el mensaje por cada correo (repito que sucede en el office 2003), como podria hacer para evitar estos mensajes el codigo que utilizo es
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add mDestinatario
objMailItem.CC = mDestinatarioCC
objMailItem.BCC = mDestinatarioCO
objMailItem.Subject = mAsunto
objMailItem.Body = mCuerpo
objMailItem.Attachments.Add mAdjunto
objMailItem.Send
Set objOutlook = Nothing
he intentado trabajarlo con el componenet mapi pero igual me sale el mensaje, espero que me puedan ayudar,
atentamente
W.Gil.
Tengo un inconveniente respecto al envio de correo en el office 2003 mas no en el 2000, desde una aplicacion en VB 6, por cada correo enviado me sale un mensaje de confirmación que tiene por descripcion "un programa esta intentando enviar correo electronico en su nombre ¿Desea permitirlo? " acompañado de tres cajas de texto si, no y ayuda, el tema es que envio correo en cantidad y el usuario no puede estar aceptando el mensaje por cada correo (repito que sucede en el office 2003), como podria hacer para evitar estos mensajes el codigo que utilizo es
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add mDestinatario
objMailItem.CC = mDestinatarioCC
objMailItem.BCC = mDestinatarioCO
objMailItem.Subject = mAsunto
objMailItem.Body = mCuerpo
objMailItem.Attachments.Add mAdjunto
objMailItem.Send
Set objOutlook = Nothing
he intentado trabajarlo con el componenet mapi pero igual me sale el mensaje, espero que me puedan ayudar,
atentamente
W.Gil.
Valora esta pregunta
0