VBA: Email cells as a picture through Outlook plus add text and signature

[helpsky]

Hi! Below is the code I am using and it works, it pasted the cells into an email as an imagine BUT how do I add text before the image? I want the text right before the image and it just has to say “today”

Also, this deleted my outlook signature when it pastes into the email, is there a way to put in my signature through vba?

<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Sub Send()

'Copy range of interest
Dim r As Range
Set r = Range("B3:F23")
r.Copy

'Open a new mail item
Dim outlookApp As Outlook.Application
Set outlookApp = CreateObject("Outlook.Application")
Dim outMail As Outlook.MailItem
Set outMail = outlookApp.CreateItem(olMailItem)


'You can specify the new email recipients, subjects here using the following lines:
outMail.Display
'outMail.To = "email@hello.com"
outMail.Subject = "test"
'outMail.Send --> directly send out this email

Dim wordDoc As Word.Document
Set wordDoc = outMail.GetInspector.WordEditor

'To paste as picture
wordDoc.Range.PasteAndFormat wdChartPicture

End Sub</code>

 

[Domenic]

Re: VBA: email cells as a picture thorugh putlook plus add text and signature to email

First, replace...

r.Copy

with

r.CopyPicture xlScreen, xlBitmap

Then try...

wordDoc.Application.Selection.TypeText "today"
wordDoc.Application.Selection.TypeParagraph
wordDoc.Application.Selection.TypeParagraph
wordDoc.Application.Selection.Paste

Hope this helps!