Cannot VBA to copy multiple ranges to multiple users.

[chaichatp]

Here is an example of 2 recipients, anything wrong?

Sub Employee_ALL()

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 = Range("D2").Text
.CC = ""
.BCC = ""
.Subject = "Fingerscan Report"
.Body = "Any questions, please feel free to ask me. Ming"
.display

Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

Range("B3:I54").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


Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
.To = Range("M2").Text
.CC = ""
.BCC = ""
.Subject = "Fingerscan Report"
.Body = "Any questions, please feel free to ask me. Ming"
.display

Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

Range("K3:R54").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

 

[ajetrumpet]

what do you mean by:

anything wrong?

are you expecting people to run your code for you and test whether there are any errors? if there is something wrong with it, what exactly is the issue?