Link with Outlook

Hi Sanjay,

See basic Outlook VBA below.

It can only work if you activate the Outlook object library.


Sub sendemail()
Dim OutApp As Outlook.Application
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = “xxx@xxx.co.uk”
.CC = ""
.BCC =””
.Subject = “New Update”
.Body = "Hello Guys” & VbNewLine” & “Please find attached update” & VbNewLine & “Kind Regards” & VbNewLine & “Jack Jones”

.Attachments.Add “C:\Users\Name\Desktop\Excel Files\MyAttachment.docx”
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub



Kind regards

Jens Bonde
Microsoft Office Specialist Trainer

Tel: 0207 987 3777
Best STL - https://www.stl-training.co.uk
98%+ recommend us

London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector