Enviar mail desde Excel vía correo Web

Hasta ahora hemos visto como podemos enviar un mail con un archivo adjunto con Excel en las versiones 2003/2007/2010 mediante el programa Outlook  Express de Microsoft. Esta plataforma es muy conocida  en el mundo, viene con el paquete de Office. Además ha sido utilizado como cliente de correo de muchas empresas.       

Difícilmente utilicemos Outlook Express para  cuentas de correo Web, Gmail, Hotmail (ahora Outlook), etc. La configuración es complicada o simplemente gusta más la plataforma web, esto es debido a que los proveedores web se esfuerzan cada vez más en hacer plataformas amigables, con más opciones y servicios para los usuarios. Outlook es algo estático, serio y aburrido.

Para nuestras mini aplicaciones puede que necesitemos enviar mails sin disponer de un cliente de correo.  La forma de declaración del código es bastante parecida a la vista sin embargo hay que configurar una conexión de datos con la nube ya que utilizaremos una cuenta de correo web.

Foto2

Para ver el video Click Aquí o en la imagen.

Antes de Empezar

Para comenzar necesitamos una cuenta anfitriona, es decir la cuenta de correo web que utilizaremos para enviar el mail, o cuenta host. Por ejemplo remeras-simpsons@gmail.com. Para dicha cuenta hay que detectar el proveedor de correo al que pertenece, en este caso “Gmail” y sus datos de configuración. El servidor llamado SMTP que es el servidor de salida de nuestro proveedor  y el puerto. El primero es una dirección que tiene esta forma “smtp.gmail.com”, para GMAIL por ejemplo y el puerto tiene la forma de un número de dos o tres cifras, para GMAIL puede ser 457 o 565”.  Además de esto, también necesitaremos autenticar la cuenta de correo desde la cual enviaremos el mail por lo que el código requiere de la contraseña de usuario.

Puede ser natural desconfiar cuando introducimos nuestra contraseña y nombre de usuario en algún código pero no se preocupen ya que como verán se utiliza la autenticación a través de un servidor de MICROSOFT, este actúa de soporte para la conexión. Así que es muy seguro. Tengan en cuenta que si en algún otro código que puedan encontrar les muestra otra dirección que no sea la que utilizamos, NO LO UTILICEN. Si quieren más información pueden consultar en esta página de MICROSOFT.

Hay otra cosa a tener en cuenta, antes de utilizar el código es necesario cargar el objeto de VBA que nos permite efectuar esta serie de acciones. Ese objeto es llamado CDO, este objeto se encuentra en la biblioteca de herramientas de VBA y es necesario activarlo “cargarlo”. Difícilmente lo tengan cargado por defecto así que deben ir a “Herramientas >> Referencias >> Microsoft CDO…”

No se olviden de algo importantísimo, aunque parece obvio, “deben estar conectados a internet para que funcione”.

Proceso

Para este ejemplo queremos enviar un mail a nuestros clientes. El mail además de texto puede contener una imagen, ya sea adjunta o incrustada.

El cuerpo del mensaje cuando se utiliza la biblioteca CDO tiene forma de HTML. Es por eso que puede ser necesario utilizar  etiquetas HTML.

Para ejecutar el códigos se crea una macro llamada “enviar_mail” y se vincula a un objeto, una imagen en forma de sobre.

  

El código es el siguiente:

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

Sub enviar_mail()

' PabloFSix

' Excelminiapps.blogspot.com

'Defino las variables como objetos

    Dim email As Object

    Dim mailconfig As Object

   Dim mfield As Object

'Asigno referencias de objeto a variable

    Set email = CreateObject("CDO.Message")

    Set mailconfig = CreateObject("CDO.Configuration")

    Set mfield = mailconfig.Fields

'Configuramos el objeto CDO mediante la dirección del servidor de conf y la declaración siguiente

'También autenticamos el SMTP server, en este caso el de gmail

MicConf = "http://schemas.microsoft.com/cdo/configuration/"

mfield.Item(MicConf & "sendusing") = 2

'servidro smtp de gmail, pueden buscarlo en internet

mfield.Item(MicConf & "smtpserver") = Sheets("Mails").Range("J17").Text

'puerto del servidor smtp, pueden buscarlo en internet

mfield.Item(MicConf & "smtpserverport") = Sheets("Mails").Range("O17").Value

mfield.Item(MicConf & "smtpauthenticate") = 1

'aquí va la cuenta host, una cuenta de correo web

mfield.Item(MicConf & "sendusername") = Sheets("Mails").Range("J15").Text

'aquí va la contraseña que usamos en nuestro correo web, al usar un servidor de microsoft, esta info es segura

mfield.Item(MicConf & "sendpassword") = Sheets("Mails").Range("N15").Value

mfield.Item(MicConf & "smtpusessl") = 1

mfield.Update

'sin la configuración anterior no funcionará el código

     'completo los campos necesarios del e-mail

         With Omail

    .To = Sheets("Mails").Range("C15").Text

    .From = Sheets("Mails").Range("J15").Text

                  .Subject = Sheets("Mails").Range("D19").Text

 'si queremos incrustar una imagen activamos el checkbox2

'con el objeto CDO pueden incluir código html en el cuerpo del msj como se muestra

'en este caso utilizamos las etiqueta “img”: incrustar imagen y “br” :salto de línea.

'todo código html comienza con las etiquedas “html” y el cuerpo se define con “body”

                     If Sheets("Mails").CheckBox2 = True Then

                    .HTMLBody = "<HTML><BODY><img src='" & Sheets("Mails").Range("L22").Text & _ "'/><br>" & Sheets("Mails").Range("D20").Text & "<br/></BODY></HTML>"

                    Else

                  .HTMLBody = "<HTML><BODY>" & Sheets("Mails").Range("D20").Text & _ "</BODY></HTML>"

                   End If

                 .Sender = "RemerasSimpsons"

'cambia la forma en la que se declara un archivo adjunto

 'para adjuntar un archivo  activamos el checkbox1

                  If Sheets("Mails").CheckBox1.Value = True Then

                 .AddAttachment Sheets("Mails").Range("L20").Text & "\" & _ Sheets("mails").Range("B17").Text

                   End If

                 '.Organization = "RemerasSimpsons"

                  '.ReplyTo = ""

                 Set .Configuration = mailconfig

    'con este metodo no podemos visualizar el mail, si quisiéramos podríamos hacerlo mediante un formulario

                 .Send

         End With

  'desvinculo la variable de los objetos

   Set email = Nothing

   Set mailconfig = Nothing

   Set mfield = Nothing

MsgBox "Mail enviado a " & Sheets("Mails").Range("C15").Text

End Sub

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

Como ven el código prácticamente tiene la misma declaración que para el código que utilizamos en las entradas anteriores.

Próximamente se va a colgar el archivo de ejemplo en la zona de Descargas. Si tienen alguna duda o consulta pueden hacerlo a través del formulario de contacto.

Les recomendamos que sigan el blog por alguno de los medios, mail o por redes sociales, para recibir las actualizaciones y novedades.

¡Éxitos!

Keys:

·         Enviar mail con Excel

·         Enviar mail con macro en Excel

·         Enviar archivo por mail conExcel

·         Enviar mail con CDO en Excel

·         Enviar correos vía webmail enExcel