¿Cómo copiar rango de celdas en cuerpo de email y enviar automáticamente?

hola expertos he estado tratando y no he podido conseguir lo siguiente,

deseo copar un rango de celdas almacenadas en la sheet2 de mi documento, esta rango seria desde A2 hasta C# pues se va creando un historial y no se que rango en total sea,

el código presentado a continuación me crear un archivo pdf de una gráfica que tengo en el rango de A2 hasta B# y luego lo envía por email sin ningún problema, con las variables indico en el asunto la fecha del correo y en el cuerpo del mensaje digo la hora y le fecha que fue enviado el pdf y bajo que operario se envía el correo,

Sub ENVIAR_EMAIL_ADJUNTO()
ChDir "C:\SCADA-EXCEL\Informes-PDF"
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "C:\SCADA-EXCEL\Informes-PDF\Sacsi-Scada.pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False
Dim objOutlook As Object
Dim objItem As Object
Dim objNamespace As Object
Dim ADJUNTO As Variant
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objItem = objOutlook.CreateItem(olMailItem)
objNamespace.Logon "EXCELSPACE", , True, True
a = Sheets(1).Range("A1").Value
b = Sheets(1).Range("B1").Value
d = Sheets(1).Range("d1").Value
ADJUNTO = "C:\SCADA-EXCEL\Informes-PDF\Sacsi-Scada.pdf"
With objItem
 .Attachments.Add (ADJUNTO)
 .Display
 .To = "[email protected]"
 .CC = ""
 .BCC = ""
 .Subject = "Autoclave " & a & "" 'Asunto
 .Body = "esto es lo que se tiene el dia " & a & " a las " & b & " en el turno del operario " & d & " " 'Cuerpo del mensaje
 .Send
End With
objNamespace.Logoff
Set objOutlook = Nothing
Set objItem = Nothing
Set objNamespace = Nothing
End Sub

lo que deseo lograr es:

hacer lo mismo que esta en el código de arriba (funciona perfecto)

pero sumándole que en el cuerpo del mensaje valla todo el rango asi como el siguiente ejemplo

https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-ash3/q71/555512_10201703849412150_175893712_n.jpg

muchas gracias desde ya por su tiempo de leer esto

Añade tu respuesta

Haz clic para o