Sending multiple emails at same time in Excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have this code below that sends an email using outlook 2003 to a list of
email addresses I have referenced elsewhere in excel row by row. The trouble
I have is it sends the email sperately to each person on that list one by one
rather than sending it to them all together. How can I change this. Thanks.
Code is below.

Function emailMethod(EMailSendTo$, EMailSubject$, EMailAttachment$)
' Sending emails with Outlook

Dim objOutlook As Object
Dim objMailMessage As Outlook.MailItem
Dim emlBody, sendTo As String
Dim wkbook As String


Application.ScreenUpdating = False

Set objOutlook = CreateObject("Outlook.Application")
Set objMailMessage = objOutlook.CreateItem(0)
sendTo = EMailSendTo
wkbook = EMailAttachment

With objMailMessage
..To = ""
..BCC = sendTo
..Subject = EMailSubject
..Attachments.Add wkbook, olByValue
..Display


Application.Wait (Now + TimeValue("0:00:01"))
Application.ScreenUpdating = False

Application.SendKeys "%S"
Application.ScreenUpdating = False


End With
Set objOutlook = Nothing
Set objMailMessage = Nothing


Exit Function

End Function
 
Back
Top