Discussion :

[zaza45]

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

[halaster08]

Bonjour,

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

Je suppose que tu voulais écrire "rien ne se passe"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.ScreenUpdating = False

Cette instruction bloque l'affichage de l'écran, enlève-là et tu verra ce qui se passe
Si besoin tu peux aussi lancer ton code en mode pas à pas via la touche F8

[zaza45]

Bonjour Halaster

J'ai désactivé l'affichage et quand j'exécute avec f8, il reste sur la première adresse en a2 mais rien ne se passe.
Et il reste sur A2 quand je continu l'exécution avec f8

[BENNASR]

je sais pas si ça va aider mais je crois il manque un point ici devant Cells??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

destinataire =Cells(i, 1)*

[zaza45]

Bonjour Bennars
Oui effectivement j'ai rajouté le point mais ça ne change rien.
J'ai fait un essai avec 5 lignes
Quand je passe le curseur sur le i de i=2 il mets i=5.
J'ai l'impression que la boucle n'est pas correcte

[halaster08]

C'est normal toutes les * dans ton code ?

J'ai désactivé l'affichage

Justement c'est le contraire qu'il faut faire si tu veux voir ce qui se passe

et quand j'exécute avec f8, il reste sur la première adresse en a2 mais rien ne se passe.
Et il reste sur A2 quand je continu l'exécution avec f8

Ton code n'agit pas sur les cellules, il ne fait qu'en lire le contenu pour préparer tes mails, et pour ce faire il n'a pas besoin de changer de cellule active
Ce qui est important c'est de regarder ce qui passe a la ligne 18, il se passe quoi ? il ouvre bien Thunderbird ou pas ?

[zaza45]

Normalement dans mon code il n'y a pas * .

[zaza45]

Rien ne se passe. Pourtant Thunderbird est ouvert