Sub Sendmail()

Application.ScreenUpdating = False

On Error Resume Next

Dim Temp As Object

Dim Newmail As Object

Dim strg As String

Dim strEmpId As String

Dim email As Excel.Application, emailBook As Excel.Workbook

Set email = CreateObject("excel.application")

Set emailBook = email.Workbooks.Open("D:\emailTemplate.xlsx")

Set Temp = CreateObject("outlook.application")

Set Newmail = Temp.CreateItem(0)

With Newmail

With emailBook

.To = .Sheets(1).Range("a1")

'.CC = ""

.Subject = "<strong>" & .Sheets(2).Range("a1") & "</strong>"

.Body = .Sheets(2).Range("a2")

.Attachments.Add ("D:\" & strEmpId & ".docx")

.Send

End With

End With

Set Temp = Nothing

Set Newmail = Nothing

Application.ScreenUpdating = True

End Sub