Estimados, necesito enviar una tabla de excel a email de diferentes destinatarios mediante una macro.

A su vez en el cuerpo del mensaje del email ingresar texto con formato procedente de unas celdas. He probado con algunas macros que han abordado el tema pero me arrojan error en tiempo de ejecución.

La tabla que necesito enviar esta en la hoja "PROGVEH" desde a32 hasta i55; el texto del email esta en las celdas m46 a m52.

A continuación adjunto código utilizado (solo adjunta la hoja completa y no el rango, no se como codificarlo)

Sub ejemplo()
'macro elaborado por luismondelo; modificada por Jorge Díaz Rivera
ruta = ActiveWorkbook.Path
mio = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Sheets("PROGVEH").Copy before:=Workbooks(otro).Sheets(1)
Workbooks(otro).Activate
ActiveWorkbook.SaveAs "PROGVEH.xlsx"
ActiveWorkbook.Close False
Adjunto = ruta & "\" & "PROGVEH.xlsx"
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olMailItem)
parte2.To = "[email protected]"
parte2.CC = "[email protected]; [email protected]; [email protected]; [email protected]; [email protected]; [email protected]; [email protected]; [email protected]; [email protected]; [email protected]; [email protected]); [email protected]; [email protected]; [email protected]; [email protected]; [email protected]"
parte2.Subject = "Programación de vehículos de fecha 16-01-2017 al 20-01-2017"
parte2.Attachments.Add (Adjunto)
parte2.Body = "Estimada: " & Cells(m, 46) & vbCrLf & _
"" & vbCrLf & _
" Adjunto: " & Cells(m, 47) & vbCrLf & _
" (1): " & Cells(m, 48) & vbCrLf & _
" (2): " & Cells(m, 49) & vbCrLf & _
" (3): " & Cells(m, 50) & vbCrLf & _
"" & vbCrLf & _
" Fonos de contacto: " & Cells(m, 51) & vbCrLf & _
" Atentamente: " & Cells(m, 52) & vbCrLf & _
parte2.Display
Kill "PROGVEH.xlsx"
End Sub