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>

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

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?