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....
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") = "[email protected]"
'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"" <[email protected]>"
'recogemos el resto de datos del Userform,
'es decir, el destinatario y el asunto del mensaje
.To = "[email protected]"
.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>