Hola, con este codigo lo logras...
Option Explicit
Public Sub EnviarCorreoConAnexo()
Dim myOlapp As Object
Dim myItem As Object
Dim myAttach As Object
Dim wbTmp As Workbook
Dim strRuta As String
Const olMailiTem As Integer = 0
Const olByValue As Integer = 1
Set myOlapp = CreateObject("Outlook.Application")
Set myItem = myOlapp.CreateItem(olMailiTem)
Set myAttach = myItem.Attachments
strRuta = App.Path & "\Mi Archivo.abc"
myAttach.Add strRuta, olByValue, 1, "Ejemplo de archivo anexo"
myItem.Subject = "Prueba de mensaje"
myItem.body = "Cuerpo del mensaje"
myItem.to = "
[email protected]"
myItem.display
Set myOlapp = Nothing
Set myItem = Nothing
Set myAttach = Nothing
End Sub
