Hi,
I'm creating a macro in Excel 2010 that will automatically copy a cell range and auto paste it in Outlook 2010. I wanted to paste it as Picture (Enhanced Metafile)
Here is the code that I've been using but not sure how to insert the auto paste part.
Public Sub SendToMail()
Dim myOutlook As Object
Dim objMailMessage As Object
Dim signature As String
Dim outBody As String
Dim Cell As Range
Set myOutlook = CreateObject("Outlook.Application")
Set objMailMessage = myOutlook.CreateItem(0)
With objMailMessage
.To = " "
.Subject = Range("S6")
.ReadReceiptRequested = True
.OriginatorDeliveryReportRequested = True
.Body = ("Press CTRL + A, then CTRL + V")
.Display
End With
End Sub
Bookmarks