Otro tema que se quedó fuera del Curso de VBA para Microsoft Excel, es el envío de un email usando Microsoft OutLook. Por eso, he querido traeros un ejemplo sencillito para que os sirva de guía.
Como véis en la siguiente imagen, he creado una lista de materiales a pedir a un proveedor, en la que indicamos el material y la cantidad necesaria.
También he preparado dos campos; uno para indicar el email del proveedor y otro para introducir el número de pedido que irá incluido en el asunto del correo que enviaremos.
Vamos a ver el código que se esconde detrás del botón "Enviar correo".
Sub Correo_OutLook()
'Creamos el correo
Set dam = CreateObject("outlook.application").createitem(0)
'Destinatario
dam.To = Cells(3, "F").Value
'Asunto
dam.Subject = "PEDIDO DE COMPRA : " & Cells(5, "F")
'Guardamos en la variable cadena el listado con sus cantidades concatenadas
h = Cells(Rows.Count, 3).End(xlUp).Offset(0, 0).Row
cadena = ""
For m = 3 To h
cadena = cadena & " " & Cells(m, "B") & " unidades " & Cells(m, "C") & " // "
Next
'Cuerpo del mensaje que incluye texto prefijado y el listado almacenado en la variable cadena
dam.body = "Buenos días " & vbCr & _
vbCr & _
"Por la presente, solicitamos el pedido de los siguientes productos " & cadena & vbCr & _
vbCr & _
"Necesitamos que nos indiquen la fecha aproximada de la entrega" & vbCr & _
vbCr & _
"Saludos cordiales"
'Enviamos el correo
dam.send
End Sub
El resultado, es un email como el de la siguiente figura
Espero que este sencillo ejemplo te sirva para enviar un email usando OutLook desde Excel cuando lo necesites. Descarga el archivo de ejemplo y practica. Seguro que le acabas sacando mucho partido.
Te dejo un link a una entrada donde rizamos el rizo y enviamos pedidos a proveedores por email automáticamente realizando una clasificación previa de los productos en función del proveedor.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios