All,
I have this code that creates email and copy stuff from excel. I'm trying to copy the cells and I want to be paste in the email as a picture or as a text. I got to the point where everything is done but missing the step to paste the cells a copied. Please I need help.
Dim olapp As Outlook.Application
Dim olemail As Outlook.MailItem
Set olapp = New Outlook.Application
Set olemail = olapp.CreateItem(olmilitem)
With olemail
.Display
.To = ThisWorkbook.Sheets("Summary").Range("C46").Value
.CC = ThisWorkbook.Sheets("Summary").Range("C55").Value
.Subject = ThisWorkbook.Sheets("Summary").Range("C37").Value
Set rngbody = ThisWorkbook.Sheets("Summary").Range("B26:D34")
rngbody.Cut
Dim p As Picture
Set p = ActiveSheet.Pictures.Paste
p.Cut
End With
I have this code that creates email and copy stuff from excel. I'm trying to copy the cells and I want to be paste in the email as a picture or as a text. I got to the point where everything is done but missing the step to paste the cells a copied. Please I need help.
Dim olapp As Outlook.Application
Dim olemail As Outlook.MailItem
Set olapp = New Outlook.Application
Set olemail = olapp.CreateItem(olmilitem)
With olemail
.Display
.To = ThisWorkbook.Sheets("Summary").Range("C46").Value
.CC = ThisWorkbook.Sheets("Summary").Range("C55").Value
.Subject = ThisWorkbook.Sheets("Summary").Range("C37").Value
Set rngbody = ThisWorkbook.Sheets("Summary").Range("B26:D34")
rngbody.Cut
Dim p As Picture
Set p = ActiveSheet.Pictures.Paste
p.Cut
End With