Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Send to Multiple Recipients

 Keywords:  Outlook send email multiple recipients

---

Question:

I just can't seem to get the correct format to string together recipients for an OLE email. One person works just fine, but I can't seem to get it to work for more than one.

Here is a sample of what I've tried so far:

recip="sa@mterminals.com; tom@thumb.com"

recip="sa@mterminals.com;tom@thumb.com"

Any thoughts?

Answer:

Give this a try instead...

objOutlook = ObjectOpen("Outlook.Application")

; Create the message.
objOutlookMsg = objOutlook.CreateItem(0)

; Display to user (the following line can be removed if you do not want any interface)
objOutlookMsg.Display

; add Recipient
objOutlookRecip=objOutlookMsg.Recipients
objOutlookRecip.Add(Recip)  ;<<<<<<<
objOutlookRecip.Add(Recip2) ;<<<<<<<

; Set the Subject, Body, 
objOutlookMsg.Subject = "This is an Automation test with Microsoft Outlook"
objOutlookMsg.Body = strcat("This is the body of the message.",@CRLF) 

; Add attachments to the message.
objOutlookAttach = objOutlookMsg.Attachments
objOutlookAttach.Add(AttachmentPath)
objOutlookMsg.Send
ObjectClose(objOutlook)

exit

Another Example:

This example Sends an email to multiple BCC recipients

;Send an email to multiple BCC recipients
reciplist = "john_doe@test.com|fred_doe@test.com|jack_doe@test.com"
Csubject = "Test"
Cbody = "Testing OLE Outlook"

objOutlook = ObjectOpen("Outlook.Application")
; create object
objOutlookMsg = objOutlook.createitem(0)
objOutlookRecip = objOutlookMsg.Recipients
;objoutlookmsg.display

count = ItemCount(reciplist, "|")
For x = 1 to count
   Cname = ItemExtract(x, reciplist, "|")
	;add this recipient
	objOutlookRecip.Add(Cname)
	;make this recipient a BCC
	recip_1 = objOutlookRecip.Item(x)
	olBCC = 3
	recip_1.Type = olBCC
Next

;Define the subject
objOutlookmsg.Subject = Csubject
;Define the message body
objOutlookmsg.Body = Cbody
objOutlookMsg.Send
ObjectClose(objOutlook)
exit 

---

Article ID:   W14920

File Created: 2002:02:14:12:15:58

Last Updated: 2002:02:14:12:15:58