Staple1600
XLDnaute Barbatruc
Bonjour à tous --> [CODE VBA] Envoie emails à partir d'Excel en utilisant Outlook<--
Le code VBA complet étant long, je me permets d'indiquer juste sa source:
code VBA (source)
Question :
Pour personnaliser ce code, comment utiliser une plage de cellules
pour stocker les adresses mail des destinataires?
Extrait du code:
Comment pouvoir écrire
arlToAddresses.Add Range("A1:A20)
Merci à tous ceux qui s'interesseront à la question.
PS: Si cela peut vous aider, voici un fichier exemple contenant le code cité plus haut
edition: nouvelle version avec la modification d'Hasco
Ce lien n'existe plus
Le code VBA complet étant long, je me permets d'indiquer juste sa source:
code VBA (source)
Question :
Pour personnaliser ce code, comment utiliser une plage de cellules
pour stocker les adresses mail des destinataires?
Extrait du code:
Code:
Sub TestSendMail()
'variables
Set arlToAddresses = New ArrayList
Set arlCcAddresses = New ArrayList
'config
strSubject = "test"
[B] arlToAddresses.Add ("nomprenom@fai.fr")[/B]
arlToAddresses.Add Range("A1:A20)
Merci à tous ceux qui s'interesseront à la question.
PS: Si cela peut vous aider, voici un fichier exemple contenant le code cité plus haut
edition: nouvelle version avec la modification d'Hasco
Ce lien n'existe plus
Dernière édition: