2012-07-03 16 views
7

का उपयोग कर एकाधिक प्राप्तकर्ताओं को ईमेल भेजना मेरा vbscript स्वचालित रूप से प्राप्तकर्ता को ईमेल भेजता है, लेकिन क्या कोई जानता है कि इसे एक से अधिक प्राप्तकर्ता कैसे जोड़ना है?vbscript

... 
Dim ToAddress 
Dim FromAddress 
Dim MessageSubject 
Dim MyTime 
Dim MessageBody 
Dim MessageAttachment 
Dim ol, ns, newMail 
MyTime = Now 

ToAddress = "[email protected]" 
MessageSubject = "It works!." 
MessageBody = "Good job on that script." 
MessageAttachment = some attachment 
Set ol = WScript.CreateObject("Outlook.Application") 
Set ns = ol.getNamespace("MAPI") 
Set newMail = ol.CreateItem(olMailItem) 
newMail.Subject = MessageSubject 
newMail.Body = MessageBody & vbCrLf & MyTime 
newMail.RecipIents.Add(ToAddress) 
newMail.Attachments.Add(MessageAttachment) 
newMail.Send 

यह मेरे पास अभी है। और यह ठीक काम करता है। लेकिन, मैं एक से अधिक प्राप्तकर्ता चाहता हूं। अग्रिम में धन्यवाद।

newMail.CC = "[email protected];[email protected];[email protected]" 

यह उपरोक्त पंक्ति काम करती है!

और यह किसी भी तरह से काम करता है। बीसीसी, यदि कोई भी संपर्क सूची को प्रदर्शित नहीं करना चाहता है।

+0

सीसी के बजाय बीसीसी का उपयोग करें। – JimmyPena

+0

@ जेपी। सहायता के लिए धन्यवाद। – duper

उत्तर

8

कॉल MailItem.Recipients. प्रत्येक प्राप्तकर्ता के लिए जोड़ें या टू/सीसी/बीसीसी गुणों को ";" पर सेट करें पते की अलग सूची।

संबंधित मुद्दे