Dear Mr Excel,
I have created below macro, but I don't know how to insert (macro) excel table from A1:B14 into outlook.
Sub SendEmailBody()
'
' SendEmail Macro
'
'
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "jason@gmail.com"
.CC = "jason@gmail.com"
.Subject = "TSL - Part Order / MC / Part PO "
.Body = "Dear Team," & vbCr & vbCr & "Please assist to trigger the following part." & vbCr & vbCr & "Kindly let me know the ETA." & vbCr & vbCr
.Display
''.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
Best Regards
Jason
I have created below macro, but I don't know how to insert (macro) excel table from A1:B14 into outlook.
Sub SendEmailBody()
'
' SendEmail Macro
'
'
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "jason@gmail.com"
.CC = "jason@gmail.com"
.Subject = "TSL - Part Order / MC / Part PO "
.Body = "Dear Team," & vbCr & vbCr & "Please assist to trigger the following part." & vbCr & vbCr & "Kindly let me know the ETA." & vbCr & vbCr
.Display
''.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
Best Regards
Jason