Send active workbook through Outlook
Sub SendWorkbook()
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
Dim objEmail As Object
Const olmailItem As Long = 0
Set objEmail = objOutlook.CreateItem(olmailItem)
With objEmail
.To = "abc@xlncad.com"
.CC = "pqr@xlncad.com"
.BCC = "xyz@xlncad.com"
.Subject = "For review"
.Body = "Please find the attached file"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set objEmail = Nothing:
Set objOutlook = Nothing
End Sub
How to use codes shared here?