¿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 Sublo 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