Bonjour

Pourriez-vous m'aider car je ne sais pas du tout comment faire.
Même en regardant sur les sites, je ne trouve pas ma solution.

Voilà, j'ai un fichier dans lequel en col A j'ai des adresses mails et en B des codes.
Avec Thunderbird, j'aimerai envoyer un mail individuel à chaque destinataire de la col A avec dans le message son code respectif.

Ex*toto@gmail.com*en a2 et son code dans le message qui est en B2.

Tous les codes sont sur la même ligne que les destinataire et il n'y a pas de doublons.

Voici ce que j'ai trouvé pour le début mais rien ne se

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
 
Sub envoi_mail()
Application.ScreenUpdating = False
 
Dim destinataire As String
Dim sujet As String
Dim body As String
Dim i As Integer*** 
*** 
With Sheets("feuille1")
*** For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row*
******* destinataire =Cells(i, 1)*
*
sujet = """Demande xxxxx"""
body = """Bonjour & vbCr & vbCr &** Je vous remercie de bien vouloir nous adresser vos fiches d'interventions finalisées. & vbCr & vbCr &* Je vous remercie de votre aimable collaboration. & vbCr & vbCr &* Cordialement."""
 
strcommand = "C:\Program(x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body='" & body & ","
 
i = i + 1
 
Next i
 
End With
 
Application.ScreenUpdating = True
 
End Sub
Merci beaucoup pour votre aide