Saltar al contenido

Error de conexion en el envio


Recommended Posts

publicado

Buen dia,

ya me canse de buscar y buscar y mover y mover.

explico. En la empresa para la que laboro tuvieron la genial idea de cambiar a la aplicación GoogleApps.

que al parecer tendrá alguna ventaja, la cuestión es que me esta creando dolores de cabeza ya que todas las macros para envio de correo masivo que están en Excel están programadas con Outlook(aplicación que deshabilitaron, por cierto) eh buscado en la red pero no logro hacer que funcione, ya no hablemos de poner rangos etc etc, si no de la macro en si , no la puedo hacer funcionar , no se si sea algo referente a los permisos o si es que acaso me esta faltando algo....

Ayuda plis........

<code>

Sub hotmail()

'On Error Resume Next

'Creamos el Message y Configuration, para

'enviar emails a través del objeto CDO de Windows

Set oMsg = CreateObject("CDO.Message")

Set oConf = CreateObject("CDO.Configuration")

'Cargamos los valores por defecto

oConf.Load -1

'Configuramos el objeto CDO, con los datos

'de nuestra cuenta de correo

Set Flds = oConf.Fields

With Flds

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'ponemos nuestra cuenta de correo

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "delia.montoya@axxxx.com"

'ponemos nuestro password

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "M06"

'este es el smtp de correo. Si usamos Hotmail, yahoo, o cualquier otro

'servicio de correo, deberemos configurar el smtp, y evidentemente

'también el nombre de usuario y el password para esa cuenta

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Update

End With

'recogemos el mensaje del TextBox3 del Userform

mensaje = "ok"

With oMsg

Set .Configuration = oConf

'ponemos el nombre y correo para el reply

desde = Cells(1, 2)

.From = """Marco"" <delia.montoya@axxxx.com>"

'recogemos el resto de datos del Userform,

'es decir, el destinatario y el asunto del mensaje

.To = "delia.montoya@axxxx.com"

.Subject = "envio"

.TextBody = "Esto es una prueba del envio"

.Send

End With

'Mostramos un mensaje, tanto si hay

'errores como si no los hay

If Err <> 0 Then

'MsgBox ("Se ha producido un error, y no se ha podido enviar el email.")

Else

MsgBox ("El email se ha enviado correctamente a " & Cells(1, 1))

End If

End Sub

</code>

publicado

Si la macro la utilizas para enviar correos desde gmail debes habilitar en las configuraciones de tu cuenta de gmail una opción que permite que aplicaciones no seguras puedan acceder a tu correo, de lo contrario la macro no funcionara pues no podrá acceder a tu cuenta.

No recuerdo donde esta esta opción probablemente dentro de las opciones de seguridad del gmail.

También las otras cuentas como hotmail, yahoo, etc deben de tener una opción similar.

Salu2

publicado

gracias [uSER=143023]@Riddle[/uSER] por tu respuesta, pero que crees , me dice que esa opcion no esta disponible para GoogleApps :(

tendras alguna otra opción?

o sera acaso que es la cuestion de seguridad de mi empresa?

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.