Visual Basic - Eliminar aviso al enviar mail

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Eliminar aviso al enviar mail

Publicado por Antoni Masana (79 intervenciones) el 19/01/2011 08:56:20
Esta es mi rutina de envio de correo y como puedes ver es casi identica a la tuya.

------------------------------------------------------------------------------------------

Private Sub Correo()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem

On Error GoTo Final

' </> ---&--- </> Envio del correo

Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

objMailItem.SentOnBehalfOfName = FTP_Correo_De
objMailItem.To = FTP_Correo_Para
objMailItem.CC = FTP_Correo_CC
objMailItem.BCC = FTP_Correo_CCO
objMailItem.Body = " <Texto> "
objMailItem.Subject = " <Texto> "
objMailItem.BodyFormat = olFormatPlain
objMailItem.Send
Set objOutlook = Nothing
Exit Sub

Final:

End Sub

------------------------------------------------------------------------------------------

He detectado un par de problemas.

Primero: Si no hay Outlook causa un error, por eso el On Error.

Segundo: Si el outlook no esta levantado se muestra un mensaje que me pide el perfil de usuario para enviar el correo. En cambio si el Outlook esta levantado funciona silenciosamente, (bueno en realidad no tan silencioso por que tiene unos mensajes "MsgBox" que aqui no he puesto porque no viene a cuento)

Aun no se como averiguar si el Outlook esta levantado pero todo llegara con el tiempo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar