Enviar un email desde Excel

Hace ya un tiempo, en forosdelweb.com, un usuario preguntaba si era posible enviar un email desde nuestra aplicación Excel. Otro usuario le contestaba que sí, que se podía hacer, y le remitía a una página web en inglés, donde se explicaba paso a paso, como llevar a cabo esta operación.

Como hace solo unos pocos días, otro usuario volvió a preguntar sobre el tema en ese mismo foro, se me despertó la curiosidad, y me puse a mirar aquella web en inglés, y a la que en su día no le había prestado mucha atención. La web en cuestión era esta: http://www.rondebruin.nl/sendmail.htm.

Allí hay abundante información sobre como enviar un email desde Excel (la documentación está en inglés), y hay ejemplos de cómo adjunta un archivo, como mandar una copia del email a otro usuario, etc. Yo me limitaré a hacer lo más sencillo, que no es otra cosa que enviar un email de texto, haciendo algunas adaptaciones muy sencillas al código original, para facilitar la entrada de datos por parte del usuario. Solo necesitaremos estos 6 datos:

• La cuenta de correo desde la que vamos a mandar nuestro email: Este dato lo informaremos directamente en el código fuente del macro.


• El password de nuestra cuenta de correo: Este dato lo informaremos directamente en el código fuente del macro.


• El nombre y cuenta de correo, para el "reply": Este dato lo informaremos directamente en el código fuente del macro.


• La cuenta de correo del destinatario: Este dato lo informaremos a través de un UserForm.


• El asunto del email: Este dato lo informaremos a través de un UserForm.


• El cuerpo del mensaje (el mensaje en sí): Este dato lo informaremos a través de un UserForm.

Como veis, hay 3 datos que siempre serán fijos, y son nuestra cuenta de correo, el password, y el nombre más el email (esto va junto, así que lo consideraremos como un solo dato), por si contesta o hace un "reply" el usuario. Los otros 3 datos que son variables, los introduciremos a través de un UserForm, es decir, informaremos del email del destinatario, el asunto del email, y

Vamos a enviar un email utilizando el servicio de correo electrónico de Google, es decir, el servicio de su aplicación Gmail. Podemos utilizar una cuenta de Yahoo, Hotmail, o cualquier otra, pero el correo de Gmail, es en mi opinión el mejor de todos. Si utilizáis otro servicio de correo, habrá que cambiar el servidor de correo saliente smtp, cambiando en el código fuente, la línea correspondiente (el código que veréis en este ejemplo, está debidamente comentado).

Lo primero que haremos será crear un macro desde el que llamaremos al UserForm. Tan sencillo, como hacer esto:

Sub Enviar_email() 'llamamos al userform1 UserForm1.Show End Sub

El UserForm constará de 4 etiquetas de texto o Label (Label1, Label2, Label3, y Label4), 3 cuadros de texto o TextBox (TextBox1, TextBox2, TextBox3), y un botón de comando o CommandButton, tal y como podéis ver en la siguiente imagen:


Cuando diseñéis el UserForm, al situaros encima del TextBox3, que es el del cuerpo del mensaje, fijaos que en las propiedades (ventana de la izquierda), habéis cambiado EnterKeyBehavior a true, y MultiLine también a true, para que cuando usemos la tecla intro en el cuerpo del mensaje, bajemos a la línea siguiente, y para que cuando escribamos un email largo, automáticamente salte de línea al llegar al final por la derecha. Debéis cambiarlo, para que quede como en la siguiente imagen (ver lo marcado en color rojo atenuado):


El botón de comando (ese que pone "Enviar el email"), tendrá este código:

Private Sub CommandButton1_Click() 'Si hay errores, que continúe 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 de GMAIL .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mi_email@gmail.com" 'ponemos nuestro password de GMAIL .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mi_password" 'este es el smtp de GMAIL. 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") = 465 .Update End With 'recogemos el mensaje del TextBox3 del Userform mensaje = TextBox3 With oMsg Set .Configuration = oConf 'ponemos el nombre y correo para el reply .From = """mi_nombre"" <mi_email@gmail.com>" 'recogemos el resto de datos del Userform, 'es decir, el destinatario y el asunto del mensaje .To = TextBox1 .Subject = TextBox2 .TextBody = mensaje .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.") End If End Sub

Cuando tengáis todo listo, tan solo deberéis llamar al macro Enviar_email(), para que os presente un formulario como este, para poder enviar un correo electrónico desde nuestra aplicación Excel:


Como ya sabéis, este macro podéis guardarlo en nuestro libro personal de Excel, para poder utilizarlo desde cualquier hoja de cálculo.

Desde aquí podéis descargar el fichero, con el ejemplo que hemos visto en este artículo.