Code required

[shetty2san]

Hi,

I want to copy and paste the columns value to outlook mail from same excel sheet,

OS : Windows-8
Outlook : Outlook2016

Below are code i have and request you to help for other part.



Private Sub Button50_Click()
On Error GoTo ErrHandler

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Dim xInspect As Object
Dim pageEditor As Object
Dim objEmail As Object
Dim report As Worksheet


Set objOutlook = CreateObject("Outlook.Application")

' CREATE EMAIL OBJECT.

Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = ""
.CC = ""
.Subject = "Values"
.body = "Dear Team" & vbNewLine & vbNewLine & "Pls find the values" & vbNewLine & vbNewLine
.display ' DISPLAY MESSAGE


.display
.send

End With

' CLEAR.
'Set objEmail = Nothing: Set objOutlook = Nothing: Set pageEditor = Nothing:



ErrHandler:

End Sub

 

[shetty2san]

a

Hi,

I want to copy and paste the columns value to outlook mail from same excel sheet,

OS : Windows-8
Outlook : Outlook2016

Below code will run successfully by creating mail and writing subject and body. I need table to be copied and pasted in same mail



Private Sub Button50_Click()
On Error GoTo ErrHandler

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Dim xInspect As Object
Dim pageEditor As Object
Dim objEmail As Object
Dim report As Worksheet


Set objOutlook = CreateObject("Outlook.Application")

' CREATE EMAIL OBJECT.

Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = ""
.CC = ""
.Subject = "Values"
.body = "Dear Team" & vbNewLine & vbNewLine & "Pls find the values" & vbNewLine & vbNewLine
.display ' DISPLAY MESSAGE


.display
.send

End With

' CLEAR.
'Set objEmail = Nothing: Set objOutlook = Nothing: Set pageEditor = Nothing:



ErrHandler:

End Sub