Dim outlukApp As Outlook.Application, outlukMailItm As Outlook.MailItem, emailid, myval, i As Integer, fullbody As String
Dim sigstring As String, signature As String
Sub sendMail()
Set outlukApp = New Outlook.Application
Set outlukMailItm = outlukApp.CreateItem(olMailItem)
myval = Application.InputBox("Enter Mutiple EmailId with ; delimiter", "EmailId")
On Error Resume Next
If myval = False Then
Exit Sub
Else
emailid = Split(myval, ";")
For i = 0 To UBound(emailid)
fullbody = "Dear," & "<br>"
fullbody = fullbody & "<p>Please find the attachment of new joinee details</p><br><br>"
fullbody = fullbody & "<br> Best Regards,"
With outlukMailItm
.Display
.To = emailid(i)
.Subject = "New Joinee Details"
.HTMLBody = "Dear,<br>" & "<p>Please find the attachment of new joinee details</p><br><br><br> Best Regards," & .HTMLBody
.Attachments.Add (ThisWorkbook.Path & "\" & ThisWorkbook.Name)
.Display
Application.DisplayAlerts = False
.Send
End With
Next
End If
Set outlukMailItm = Nothing
Set outlukApp = Nothing
End Sub
No comments:
Post a Comment