Envoi de publipostage via Excel
Bonjour à tous,
Je travail sur un projet de publipostage via Excel.
En étudiant différents codes VBA trouvés sur le net, j'ai trouvé celui ci qui me permet d'envoyer un mail à une personne.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
Sub Publip_mail()
Dim iMsg As Object, iConf As Object, Flds As Object
Destinataire = cellB
Numéro1 = cellC
Numéro2 = cellD
Numéro3 = cellE
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.monserveur"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "mon adresse"
.From = " cellB "
.Subject = "Numéros à conserver"
.HTMLBody = "Bonjour, </br> Veuillez trouver vos numéros ci-dessous. </br> cellC </br> cellD </br> cellE </br> "
.Send
End With
End Sub |
Ce code fonctionne parfaitement bien cependant, je n'ai aucune idée comment je pourrais intégrer mes champs de publipostage comme ceux écrit en gras italique et le faire tourner en loop.
Le but est d'envoyer un mail à Yann, avec les numéros sous le texte, puis un second mail à Julien avec ses numéros et ainsi de suite...
J'espère être suffisament clair. :/
Mon classeur Excel ressemble à celui ci.
| Personne |
adresse mail |
1 |
2 |
3 |
4 |
| Yann |
mail1 |
125052 |
41142274 |
72274 |
4247274742 |
| Julien |
mail2 |
769879 |
978894 |
|
|
| Laura |
mail3 |
2365205 |
|
|
|
D'avance merci, et pardonnez moi de mon inculture en VBA :oops:
Cordialement,
Kersou
