Comment envoyer un e-mail à un groupe de destinataires avec CDO? J'utilise VB6.comment créer un e-mail de groupe avec CDO Utilisation de VB6
Répondre
Cela fonctionne dans Office 97 et tout échange que nous avions à l'époque:
Dim oOApp As Outlook.Application
Dim newMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set newMail = oOApp.CreateItem(olMailItem)
With newMail
.Display
.Body = whatever
.Subject = whatever
.Attachments.Add whatever
.Recipients.Add (whomever)
.Send
End With
Set newMail = Nothing
Set oOApp = Nothing
ce n'est pas CDO! –
Vous pouvez lister plusieurs destinataires sur la ligne en les séparant .Pour par « ; », par exemple:
Set m = Server.CreateObject("CDO.Message")
m.Subject="subject..."
m.From="[email protected]"
m.To="[email protected];[email protected];[email protected]"
m.TextBody="Message"
m.Send
Soyez très, très prudent ici. Si vous utilisez CDOSYS (comme l'implique 'CDO.Message'): *> Note ** Les destinataires multiples d'un message sont séparés par des virgules (par opposition aux points-virgules **, qui sont utilisés avec l'interface de programmation d'applications de messagerie (MAPI) des clients tels que Microsoft® Outlook®). * => https://msdn.microsoft.com/en-us/library/ms527025(v=exchg.10).aspx – Bob
Qu'est-ce que CDO? hmm? – Sathya
@Sathya - [CDO] (http://stackoverflow.com/questions/tagged/cdo) On dirait qu'il a quelque chose à voir avec les anciens serveurs Exchange – Nifle
Merci pour l'info @Nifle – Sathya