Macro pour envoyer des mails avec Thunderbird

Version imprimable

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:

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

06/09/2021, 12h54
halaster08
Bonjour,

Citation:

Envoyé par zaza45

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:

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
06/09/2021, 14h38
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
06/09/2021, 14h42
BENNASR

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

Code:

destinataire =Cells(i, 1)*
06/09/2021, 14h50
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
06/09/2021, 14h56
halaster08

C'est normal toutes les * dans ton code ?

Citation:

Envoyé par zaza45

J'ai désactivé l'affichage

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

Citation:

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 ?
06/09/2021, 15h05
zaza45

Normalement dans mon code il n'y a pas * .
06/09/2021, 15h08
zaza45

Rien ne se passe. Pourtant Thunderbird est ouvert
06/09/2021, 15h34
zaza45

Quand je mets un msgbox pour vérifier les adresses que le codes choisi il me mets le mail de A2 puis le mal de A4 et ai etc. A3 et a5 n'est pas pris en compte.
Premier problème

Puis aucun mail n'est ouvert
06/09/2021, 15h35
halaster08

Quand tu copie un code, essaye de ne pas oublier le principal, tu n'as pas mis la commande qui demande a thunderbird d'envoyer le mail
strcommand n'est qu'un chaine de caractère elle ne fait rien toute seule

Citation:

Call Shell(strcommand, vbNormalFocus)

rajoute cette ligne avant ton next d'après ce que j'ai vu, et ça devrait le faire
06/09/2021, 15h40
Philippe Tulliez

Bonjour,
Le code que vous avez publié, ne semble pas être un véritable copier/coller de votre procédure me semble t'il car je vois les lignes 10, 12, 13 et 14 qui débutent par des astérisques alors qu'il n'y a pas d'apostrophe qui les précède ce qui signifie que vous devriez avoir un message d'erreur

Si c'est réellement une boucle que vous avez utilisée bien que la ligne 10 *** For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row* me laisse perplexe, il faudrait enlever l'instruction de la ligne 23 i = i + 1. La variable d'une boucle For...To...Next s'incrémente d'elle même
06/09/2021, 15h53
zaza45

L'instruction call shell devient jaune.
Quand je passe le curseur dessus il met "c:\Program (x86)\mozilla Thunderbird \thunderbird.exe,destinataire
06/09/2021, 16h07
zaza45

Merci Philippe pour ton info
La boucle est bonne maintenant

Bonjour

Après de nombreux essais le CALL fonctionne bien.

Mais maintenant que les message s'ouvrent bien jen'ai aucun retour à la ligne

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Sub envoi_mail()
 
'Application.ScreenUpdating = False
 
Dim destinataire As String
Dim strcommand As String
Dim sujet As String
Dim body As String
Dim i As Integer
Dim texte As String
 
 
With ActiveWorkbook
*** 
*** With Sheets("loyers non payes")
*** 'For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row ' ligne 2 jusqu'à la dernière ligne remplie col A
*** 
******* For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Step 1 ' ine pas mettre i=i+1 car ctte formule incremente directement
******* 
******* 
******* 'destinataire = destinataire & .Cells(i, 1)
******* 
******* destinataire = .Cells(i, 1)
**** 
** 
*********** If destinataire <> "" Then
*** 
*********** 'MsgBox destinataire
 
sujet = "Demande facturation des loyers pour les redevance ses sites de radiocommunications de la DSIC-SUD au SGAMI"
 
 
Texte1 = " Bonjour," & vbCrLf & vbCrLf
Texte2 = " Je vous remercie de bien vouloir déposer sur le ." & vbCr & vbCr
Texte3 = " Vous trouverez ci-après les données nécessaires vous permettant de  :" & vbCr & vbCr
Texte4 = " - tititi" & vbCr
Texte5 = " - Service " & vbCr
Texte6 = " - Destination " & vbCr
Texte7 = " - N° :*** " & Cells(i, 6) & " & vbCr"
Texte8 = " - Ce numéro sera* " & " & vbCr & vbCr"
Texte9 = " En effet, nous seront très  ." & vbCr & vbCr
Texte10 = " Je reste à votre disposition pour tout renseignement complémentaire." & vbCr & vbCr
Texte11 = " Cordialement." & vbCr & vbCr
 
Body = Texte1 & Texte2 & Texte3 & Texte4 & Texte5 & Texte6 & Texte7 & Texte8 & Texte9 & Texte10 & Texte11
'body = Texte1 & vbCrLf & vbCrLf & Texte2 & Texte3 ne fonctionne pas
'body = Texte1 & Chr(13) & Chr(10) & Texte2 & Texte3 ne fonctionne pas
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject='" & sujet & "',format='1',"
strcommand = strcommand & "body='" & body & "'"
'MsgBox strcommand
 
 
Call Shell(strcommand, vbNormalFocus)
 
*********** End If
 
******* Next i
 
*** End With
 
End With

07/09/2021, 11h44
zaza45

Ne pas faire attention aux * et nr de lignes car je dois passer par la messagerie pour transférer le code sur ma tablette.
De l'ordinateur je n'ai pas accès à ce site.
07/09/2021, 12h10
zaza45

J'ai remplacer VBCR, CHR(13) et (10),etc par <br>
Cela fonctionne bien pour les texte 1,2 et 3 mais pas pour les autres lignes
07/09/2021, 14h19
zaza45

J'ai remplacer VBCR, CHR(13) et (10),etc par <br>
Cela fonctionne bien pour les texte 1,2 et 3 mais pas pour les autres lignes

Ça y est la macro fonctionne bien après de nombreux essais
Si cela intéresse quelqu'un voici le code.
J'avais un problème car une partie du message était un lien HTHL et je ne connaissais absolument pas cette balise.
Donc voici

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Sub envoi_mail()
 
Application.ScreenUpdating = False
 
Dim destinataire As String
Dim strcommand As String
Dim sujet As String
Dim body As String
Dim i As Integer
 
With ActiveWorkbook
 
    With Sheets("loyers non payes")
 
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Step 1 
 
        destinataire = .Cells(i, 1)
 
            If destinataire <> "" Then
 
sujet = "Demande xxxxx"
 
'texte du message
 
body1 = " Bonjour," & "<br>" & "<br>"
body2 = " Je vous remercie de bien vouloir xxx." & "<br>" & "<br>"
body3 = " Vous trouverez ci-après les données nécessaires :" & "<br>" & "<br>"
 
'<a href='https://www.toto.xx.fr/'>'https://www.toto.xx.fr/'</a>" permet d'insérer un line http
 
body4 = "<a href='https://www.toto.xx.fr/'>'https://www.toto.xx.fr/'</a>" & "<br>" & "<br>"
 
body5 = " Service " & "<br>" & "<br>"
 
body6 = " toto" & "<br>" & "<br>"
 
body7 = " N° :    " & Cells(i, 6) & "<br>" & "<br>"
 
body8 = " Ce numéro xxx." & "<br>" & "<br>"
 
body9 = " Je reste à votre disposition pour tout renseignement complémentaire." & "<br>" & "<br>"
 
body10 = " Cordialement." & "<br>" & "<br>"
 
body = body1 & body2 & body3 & body4 & body5 & body6 & body7 & body8 & body9 & body10
 
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
 
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
 
strcommand = strcommand & "," & "subject='" & sujet & "',format='1',"
 
strcommand = strcommand & "," & "body='" & body & "'"
 
 
Call Shell(strcommand, vbNormalFocus)
            End If
        Next i
 
    End With
End With
Application.ScreenUpdating = True
 
End Sub

Merci