L'envoi de courriels à plusieurs destinataires à l'aide de vbscript
Mon vbscript envoie un email automatiquement à un destinataire, mais personne ne sait comment ajouter plus d'un destinataire?
...
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
C'est ce que j'ai en ce moment. Et il fonctionne très bien. Mais, j'aimerais avoir plus d'un des destinataires. Merci à l'avance.
newMail.CC = "[email protected];[email protected];[email protected]"
Au-dessus de cette ligne a fonctionné!
Et il fonctionne de la même manière .CCI, au cas où quelqu'un veut de ne pas afficher la liste des contacts.
Utiliser le champ CCI au lieu de CC.
MERCI pour l'aide.
MERCI pour l'aide.
OriginalL'auteur duper | 2012-07-03
Vous devez vous connecter pour publier un commentaire.
Appel MailItem.Destinataires.Ajouter pour chaque destinataire ou De configurer l'/CC/CCI de propriétés à un ";" séparés la liste d'adresses.
OriginalL'auteur Dmitry Streblechenko