Eliminar aviso al enviar mail
Publicado por Jorge (6 intervenciones) el 18/01/2011 17:08:14
Hola
Necesito ayuda con un pequeño programilla.
Tengo que realizar un programa para enviar email automáticamente a cierta hora y tiene que ser utilizando una cuenta configurada dentro del outlook.
El envió lo realizo pero antes de realizarse me sale una pantalla para que confirme el envío porque esta siendo activado por otro programa diferente del outlook.
No sé si me he explicado. Necesito que esta pantalla no me salga pues de esta manera no funciona automáticamente.
A continuación pongo el código del envió, probarlo para que sepáis a que me refiero
Dim Obj_Outlook As New Outlook.Application
Dim Missatge As Outlook.MailItem
Set Missatge = Obj_Outlook.CreateItem(olMailItem)
Missatge.To = "correo destinatario"
Missatge.Subject = "HOLA" ' es una variable
Missatge.Body = "HOLA"
'Missatge.Attachments.Add "" 'es una variable
Missatge.Send
Set Obj_Outlook = Nothing
Set Missatge = Nothing
Necesito ayuda con un pequeño programilla.
Tengo que realizar un programa para enviar email automáticamente a cierta hora y tiene que ser utilizando una cuenta configurada dentro del outlook.
El envió lo realizo pero antes de realizarse me sale una pantalla para que confirme el envío porque esta siendo activado por otro programa diferente del outlook.
No sé si me he explicado. Necesito que esta pantalla no me salga pues de esta manera no funciona automáticamente.
A continuación pongo el código del envió, probarlo para que sepáis a que me refiero
Dim Obj_Outlook As New Outlook.Application
Dim Missatge As Outlook.MailItem
Set Missatge = Obj_Outlook.CreateItem(olMailItem)
Missatge.To = "correo destinatario"
Missatge.Subject = "HOLA" ' es una variable
Missatge.Body = "HOLA"
'Missatge.Attachments.Add "" 'es una variable
Missatge.Send
Set Obj_Outlook = Nothing
Set Missatge = Nothing
Valora esta pregunta


0