Como evitar que Outlook Advierta " una aplicacion quiere enviar un email en su nombre. "

hola, Javier !

... macro en Excel que envia unos archivos... pero me cambiaron la version de office a una mas nueva
... con cada envio me sale el cartel de referencia , que ademas tiene un delay para que acepte enviar o no el archivo
... alguna forma de evitarlo por VBA?

-> si te 'incomoda' tener que estar 'autorizando' tus propios envios de e-mail por vba...
visita la siguiente direccion: http://www.rondebruin.nl/mail/prevent.htm
a) revisa la seccion de CDO [solo requiere que estes conectado a internet... y 'algo mas'] ;)
b) revisa la opcion de una aplicacion de terceros... 'Express ClickYes'
c) revisa la opcion de otra aplicacion de terceros... 'Outlook Redemption'

saludos,
hector.

Hola, sabes que estoy trabajando en lo mismo (evitar que el outlook notifique
que va a enviar un mail) fui al link que pusiste y copie la macro que está
allí para enviar mail de texto por el outlook del office, pero al llegar al
punto de enviar el mail sale el siguiente mensaje "Se ha producido el error
2147220960(80040220) en tiempo de ejecución. Error de automatización. Y
realmente no sé para donde agarrar. acá está el código. ¿ podrás decirme cuál
es el error ? gracias y aprovecho para decirles que es impresionante lo que
se aprende en este foro.

charles


Sub Mail_Small_Text_CDO()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
.Item("http://schemas.microsoft.com/cdo/co...sing") = 2
'
.Item("http://schemas.microsoft.com/cdo/co...rver") = "Fill in
your SMTP server here"
'
.Item("http://schemas.microsoft.com/cdo/co...port") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "RODRIGUEZ JORGE"
.CC = ""
.BCC = ""
.From = "RODRIGUEZ JORGE"
.Subject = "Important message"
.TextBody = strbody
.Send > ACA ES DONDE REPORTA EL ERROR
End With

Set iMsg = Nothing
Set iConf = Nothing
End Sub

"Héctor Miguel" escribió:

hola, Javier !

> ... macro en Excel que envia unos archivos... pero me cambiaron la version de office a una mas nueva
> ... con cada envio me sale el cartel de referencia , que ademas tiene un delay para que acepte enviar o no el archivo
> ... alguna forma de evitarlo por VBA?

-> si te 'incomoda' tener que estar 'autorizando' tus propios envios de e-mail por vba...
visita la siguiente direccion: http://www.rondebruin.nl/mail/prevent.htm
a) revisa la seccion de CDO [solo requiere que estes conectado a internet... y 'algo mas'] ;)
b) revisa la opcion de una aplicacion de terceros... 'Express ClickYes'
c) revisa la opcion de otra aplicacion de terceros... 'Outlook Redemption'

saludos,
hector.

hola, Charles !

... estoy trabajando en lo mismo (evitar que el outlook notifique que va a enviar un mail)
fui al link que pusiste y copie la macro... para enviar mail de texto por el outlook del office
pero al llegar al punto de enviar el mail sale el siguiente mensaje
"Se ha producido el error 2147220960(80040220) en tiempo de ejecucion. Error de automatizacion. [...]

prueba con el siguiente ejemplo, usando CDO [no le duele -casi- nada] :))
las lineas 'comentadas' son por si... hiciera falta 'configurar' el CDO [a falta de configuracion en OE]
es decir... si te falla la primera vez... elimina los comentarios [TODOS los apostrofos al inicio de cada linea] :))

si cualquier duda... comentas ?
saludos,
hector.
en un modulo de codigo normal ==Private Sub Enviar_Archivos_CDO()
Dim Configura As Object, Campos
Application.ScreenUpdating = False
Set Configura = CreateObject("CDO.Configuration")
' Configura.Load -1 ' restablece la configuracion por omision '
' Set Campos = Configura.Fields
' With Campos
' .Item("http://schemas.microsoft.com/cdo/co...sing") = 2
' .Item("http://schemas.microsoft.com/cdo/co...rver") = "aqui.tu.ISP.REAL"
' .Item("http://schemas.microsoft.com/cdo/co...port") = 25
' .Update
' End With
With CreateObject("CDO.Message")
Set .Configuration = Configura
.To = ""
.CC = ""
.BCC = ""
.From = """Alguien"" "
.Subject = "Este es el asunto..."
.TextBody = "Este es el cuerpo del mensaje"
.AddAttachment "C:\Ruta y\sub-Carpetas al\Archivo.XYZ"
.Send
End With
Set Configura = Nothing
' Set Campos = Nothing
End Sub

Hector, se detiene en .send dando el siguiente error : " Se ha producido el
error 2147220960 (8004022) en tiempo de ejecución" . No es válido el valor de
configuración "SendUsing"
Realmente escapa a mis conocimientos de Visual. ¿ puedes darme una mano ?, a
medida que me meto más en esto más me gusta, voy a tratar de estudiar más
sobre visual que la verdad está muy bueno. gracias nuevamente.
charles

"Héctor Miguel" escribió:

hola, Charles !

> ... estoy trabajando en lo mismo (evitar que el outlook notifique que va a enviar un mail)
> fui al link que pusiste y copie la macro... para enviar mail de texto por el outlook del office
> pero al llegar al punto de enviar el mail sale el siguiente mensaje
> "Se ha producido el error 2147220960(80040220) en tiempo de ejecucion. Error de automatizacion. [...]

prueba con el siguiente ejemplo, usando CDO [no le duele -casi- nada] :))
las lineas 'comentadas' son por si... hiciera falta 'configurar' el CDO [a falta de configuracion en OE]
es decir... si te falla la primera vez... elimina los comentarios [TODOS los apostrofos al inicio de cada linea] :))

si cualquier duda... comentas ?
saludos,
hector.
en un modulo de codigo normal ==> Private Sub Enviar_Archivos_CDO()
Dim Configura As Object, Campos
Application.ScreenUpdating = False
Set Configura = CreateObject("CDO.Configuration")
' Configura.Load -1 ' restablece la configuracion por omision '
' Set Campos = Configura.Fields
' With Campos
' .Item("http://schemas.microsoft.com/cdo/co...sing") = 2
' .Item("http://schemas.microsoft.com/cdo/co...rver") = "aqui.tu.ISP.REAL"
' .Item("http://schemas.microsoft.com/cdo/co...port") = 25
' .Update
' End With
With CreateObject("CDO.Message")
Set .Configuration = Configura
.To = ""
.CC = ""
.BCC = ""
.From = """Alguien"" "
.Subject = "Este es el asunto..."
.TextBody = "Este es el cuerpo del mensaje"
.AddAttachment "C:\Ruta y\sub-Carpetas al\Archivo.XYZ"
.Send
End With
Set Configura = Nothing
' Set Campos = Nothing
End Sub

hola, Charles !

... se detiene en .send dando el siguiente error:
" Se ha producido el error 2147220960 (8004022) en tiempo de ejecucion"
No es valido el valor de configuracion "SendUsing" [...]

[hasta donde se]... 'basicamente'... los errores '800xxxx' o '-2147xxxx'... significan que...
-> ocurrio una llamada a un 'proveedor/servidor/objeto/...' que NO estaba 'disponible/visible/...' [al menos en 'ese' momento]

[probablemente] sera necesario 'dejar que el codigo se encargue' de la configuracion de CDO
por si las dudas, prueba nuevamente el codigo [quitando las marcas de comentario] ;)
solo 'asegurate' que las variables que estoy 'inventando' sean la que tu necesitas 'realmente' como...
=> "aqui.tu.ISP.REAL" [los parametros que usa tu cliente de correos como SMTP o correo saliente]
=> "" | "" | ""
=> """Alguien"" "
=> "C:\Ruta y\sub-Carpetas al\Archivo.XYZ"

si cualquier duda... comentas?
saludos,
hector.
=Private Sub Enviar_Archivos_CDO()
Dim Configura As Object, Campos
Application.ScreenUpdating = False
Set Configura = CreateObject("CDO.Configuration")
Configura.Load -1 ' restablece la configuracion por omision '
Set Campos = Configura.Fields
With Campos
.Item("http://schemas.microsoft.com/cdo/co...sing") = 2
.Item("http://schemas.microsoft.com/cdo/co...rver") = "aqui.tu.ISP.REAL"
.Item("http://schemas.microsoft.com/cdo/co...port") = 25
.Update
End With
With CreateObject("CDO.Message")
Set .Configuration = Configura
.To = ""
.CC = ""
.BCC = ""
.From = """Alguien"" "
.Subject = "Este es el asunto..."
.TextBody = "Este es el cuerpo del mensaje"
.AddAttachment "C:\Ruta y\sub-Carpetas al\Archivo.XYZ"
.Send
End With
Set Configura = Nothing
Set Campos = Nothing
End Sub