Macro para enviar correos electrónicos desde Outlook

Con este código lo que consigues es pasar correos electrónicos usando Outlook desde Excel.

Nota Importante: Al inicio del código hay unas instrucciones para que te funcione, hay que activar las librería de Outlook.

Código de la macro

Sub EnviarCorreoOutlook()
‘Apunte importante:
‘Para que funcione esta macro hay que ir a la ficha Herramientas del mismo editor de Visual Basic, y darle a referencias.
‘ahí dentro busca el check «Microsoft Outlook 16.0 Oject Library» y marcalo.

Dim OutlookApp As Outlook.Application
Dim mItem As Outlook.MailItem

Dim Correo As String
Dim Asunto As String
Dim Mensaje As String
Dim Archivo As String

Set OutlookApp = New Outlook.Application
Correo = InputBox("Correo del destinatario", "Excel y Finanzas")

If Correo = "" Then Exit Sub

Asunto = InputBox("Indique el asunto", "Excel y Finanzas")

If Asunto = "" Then Exit Sub

Mensaje = InputBox("Escribe el mensaje que desea enviar", "Excel y Finanzas")

If Mensaje = "" Then Exit Sub

'Archivo = InputBox("Escribe la ruta del archivo que desea enviar", "Excel y Finanzas")
'If Archivo = "" Then Exit Sub

Set mItem = OutlookApp.CreateItem(olMailItem)

With mItem
    .To = Correo
    .Subject = Asunto
    .Body = Mensaje
    '.Attachments.Add Archivo
    .Send
End With

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada