Kopyalanan hücrelerin Maile yapıştırılması

[atillaciftci]

Aşağıdaki kodda kopyalanan A1:E77 hücrelerini Email_Body ye nasıl yapıştırırım.


Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body, strLines As String
Dim Mail_Object, Mail_Single As Variant
Dim mailBody As String

mailBody = "Mail Konusu ile ilgili text" & vbNewLine _
& vbNewLine _
& mdNumber

Range("A1:E77").Copy 'Kopyalıyor

Email_Subject = "Email konusu"
Email_Send_From = ""
Email_Send_To = "a@a.com"
Email_Cc = ""
Email_Bcc = ""
Email_Body = mailBody


On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.CC = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.Display
Application.Wait (Now + TimeValue("00:00:02"))
Application.SendKeys "%b", True
End With
Set Mail_Object = Nothing
Set Mail_Single = Nothing
Application.Wait (Now + TimeValue("00:00:01"))
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub