Help with macro to paste copied tabs in excel directly in mail

[VC1]

I have this simple macro that needs to take specific tabs (dynamic), copy and send them in an email - But it keeps taking my reference mail from A1 in the paste - Someone who can see the fail or lead me in the right direction?

Note that the answer is not to put the reference mail in another tab as in the real excel sheet there needs to information above the copied.


code

Sub esendtable()
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
With newEmail
.To = Sheet1.Range("A1").Text
.CC = ""
.BCC = ""
.Subject = "Personoplysninger"
.Body = "Jvf. aftale er her oplysninger" & vbCrLf & "Venlig hilsen Kim"
.display
Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor
'Sheet1.Range("B2:E5").Copy
Sheet1.Range("A2").CurrentRegion.Copy
pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.display
'.Send
Set pageEditor = Nothing
Set xInspect = Nothing
End With
Set newEmail = Nothing
Set outlook = Nothing
End Sub

[Logit]

.
This line of code is referencing "A1" : .To = Sheet1.Range("A1").Text

What is it you are wanting to change ?

(You need to place your code in the proper method. Highlight all of your code (in EDIT mode), then click on the # symbol)

[VC1]

I can't change it, probably because I am a new user - Neither can link to my excel sheet so people can see it themselves

But issue is

In A1 is my reference mail I would like to send the copied cells to

In A2:E5 i have informations that needs to be copied and send in the mail - It is easy to copy those specific cells, but I need a dynamic macro so if I put in more information both in columns or rows and that is my issue

[VC1]

I have now found a different solution, but now I'm stuck with the issue that no matter what I write in column A it will be copied - Even though I skip a few rows
- Anyone have a solution to this?

Please Login or Register  to view this content.

[Logit]

.
The following will accomplish your goal. You will need to highlight the cell / cells to be included in the body of the email first, then click the SEND button.

Please Login or Register  to view this content.