Enviar un correo con outlook con macros excel

1.-Abrirmos VBA.

2.-Damos clic en Referencias e importamos la librería Microsoft Outlook y damos clic en Aceptar

Referencias VBA

3.-Configuramos el correo emisor desde Microsoft Outlook.

Microsoft Office Outlook

4.-Escribimos en un Modulo el siguiente código.

Sub EnviarPorCorreo()
Dim ProgCorreo, CorreoSaliente As Object
On Error GoTo Errores
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
End With
strmensaje = "Por medio de este correo se le hace llegar el documento correspondiente"
Set ProgCorreo = CreateObject("Outlook.Application")
Set CorreoSaliente = ProgCorreo.CreateItem(0)
On Error Resume Next
    With CorreoSaliente
        .To = pepito@hotmail.com 'Para
        '.CC = luis@gmail.com 'Con copia
        .Subject = "Factura A1000"
        .Body = "Estimado amigo buenos días le escribo para comentarle que le hago llegar su factura correspondiente"
        .Attachments.Add "C:\Users\Dell\Desktop\FacturaA1000.pdf"
        '1.-Enviar (.Send) ó 2.-Abrir ventana de outlook (.Display)
        .Display
    End With
On Error GoTo 0
Set CorreoSaliente = Nothing
Set ProgCorreo = Nothing
With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .DisplayAlerts = True
End With
Errores:
If Err.Number <> 0 Then
    MsgBox "Se ha producido un error" & vbNewLine & "Error número: " & Err.Number & vbNewLine & "Descripción: " & Err.Description & "", vbOKOnly + vbExclamation, "Error"
End If
End Sub