Creating an email from excel using VBA

[SeanDavids]

Hi,

I am using Windows7 with Office 2013 and I'm trying to create an email from excel. I've created 3 macro's - one to select and copy the range I want to use as the body of the email and another to create the email referencing cells for the subject line and addresses. The third macro calls the two applications after each other.

Where I am struggling is that I want to past the copied range (C3:S52) into the email as a bitmap which I'm getting wrong.

This is the code I have so far -

Sub Button193_Click()
'
' Button193_Click Macro
'

'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("C3:S52").Select
Selection.Copy
End Sub
Sub CreateMail()

Dim objOutlook As Object
Dim objMail As Object
Dim rngTo As Range
Dim rngSubject As Range
Dim rngBody As Range
Dim rngAttach As Range

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With ActiveSheet
Set rngTo = .Range("E55")
Set rngSubject = .Range("E56")
Set rngBody = .Range("E57")
End With

With objMail
.To = rngTo.Value
.Subject = rngSubject.Value
.Body = rngBody.Value
.Display 'Instead of .Display, you can use .Send to send the email _
or .Save to save a copy in the drafts folder
End With

Set objOutlook = Nothing
Set objMail = Nothing
Set rngTo = Nothing
Set rngSubject = Nothing
Set rngBody = Nothing
Set rngAttach = Nothing

End Sub
Sub Button235_Click()
'
' Button235_Click Macro
'

'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1:M27").Select
Selection.Copy
End Sub
Sub RunThemAll()

Application.Run "Button193_Click"

Application.Run "CreateMail"

End Sub