Fernandez30
Member
Hi,
Please help me fix this code, I have mentioned my requirements below in bold
Password to the code is pursuit
>>> use code - tags <<<
Please help me fix this code, I have mentioned my requirements below in bold
Password to the code is pursuit
>>> use code - tags <<<
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 = "fernandez@gmail.com"
.CC = ""
.BCC = ""
.Subject = "Pursuits Status: " & Date
.body = "Hi All," & Chr(10) & Chr(10) & "Mentioned below are the status of all the Pursuits which are currently in progress." & Chr(10) & Chr(10) & "For more details click here to access the Pursuit Tracker."
.display
'& vbCrLf & "Regards" & Chr(10) & "SMaaS Pursuit Team"
'.body = str1 & table & str2
Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor
Sheet8.Range("A12:O20").Copy
''''' want to make this dynamic to select the entire table with xldown & xlup
'''''After the table want to add the Signature (Regards, Fernandez)
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
Attachments
Last edited by a moderator: