Eliminar confirmacion mandar correos con outlook??
Publicado por daroma (3 intervenciones) el 02/10/2003 10:15:35
Pues resulta que estoy haciendo un programa para enviar correos automáticamente mediante visual 6.0 y outlook. Hasta aqui todo bien pero justo antes de enviar el correo sale un cuadro de dialogo pidiendo confirmacion al usuario. ¿Como puedo eliminar este cuadro de diálogo?.
Teniendo en cuenta que este programa está diseñado para que se envien correos cuando no hay nadie dellante de la maquina este pequeño detalle me fastidia todo el invento. Además se que se puede quitar por que he estado leyendo un poco en la MSDN y decian que se puede quitar lo que no decian es como.
Por si a alguien le sirve de ayuda le pongo el codigo del programa (al menos la parte que envia los correos). A ver si alguien me puede hechar una mano en esto.
Set oOutAplic = CreateObject("Outlook.Application")
Set myNameSpace = oOutAplic.GetNamespace("MAPI")
Set oBandEntrada = myNameSpace.GetDefaultFolder(olFolderInbox)
Dim oMail As Outlook.MailItem
Set oMail = Application.CreateItem(olMailItem)
'Las propiedades del EMail
With oMail
.To = "[email protected]"
.Subject = ""
.HTMLBody = "IP"
End With
oMail.Send 'Se envia el EMail
Set oMail = Nothing 'Se elimina la instancia
Gracias
Teniendo en cuenta que este programa está diseñado para que se envien correos cuando no hay nadie dellante de la maquina este pequeño detalle me fastidia todo el invento. Además se que se puede quitar por que he estado leyendo un poco en la MSDN y decian que se puede quitar lo que no decian es como.
Por si a alguien le sirve de ayuda le pongo el codigo del programa (al menos la parte que envia los correos). A ver si alguien me puede hechar una mano en esto.
Set oOutAplic = CreateObject("Outlook.Application")
Set myNameSpace = oOutAplic.GetNamespace("MAPI")
Set oBandEntrada = myNameSpace.GetDefaultFolder(olFolderInbox)
Dim oMail As Outlook.MailItem
Set oMail = Application.CreateItem(olMailItem)
'Las propiedades del EMail
With oMail
.To = "[email protected]"
.Subject = ""
.HTMLBody = "IP"
End With
oMail.Send 'Se envia el EMail
Set oMail = Nothing 'Se elimina la instancia
Gracias
Valora esta pregunta


0