Discussion :

[DenisHen]

Bonjour à la communauté.
Je ne sais pas si c'est faisable, mais j'aimerais envoyer un mail directement depuis Excel.
A toutes fins utiles, je n'ai que Thunderbird (pour utiliser son moteur, peut-être).
J'ai souvent lu : "Set xOutlookObj = CreateObject("Outlook.Application")", et "Set xThunderObj = CreateObject("Thunderbird.Application")" fonctionnerait ?
Je pense pouvoir m'en sortir avec la "mise en page", qui, je pense, se fera avec des balises HTML (j'ai bon ?).
Bien à toi la communauté.
Denis...

[Franc]

Bonjour, voici la macro que j'utilise personnellement avec Thunderbird, à adapter selon tes besoins, j'ai mis les commentaires pour t'aider

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
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub EnvoyerMail()
    ' Déclarer les variables
    Dim ProgThunderbird As String
    Dim destinataires As Variant
    Dim copiecachee As String
    Dim sujet As String
    Dim texte As String
    Dim PieceJointe As String
    Dim destinataireActuel As Variant
 
    ' Affecter les valeurs aux variables
    ProgThunderbird = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" ' Chemin du programme Thunderbird
    destinataires = Split("toto@laposte.net,titi@laposte.net", ",") ' Adresses des destinataires séparées par des virgules
    copiecachee = "tata@laposte.net" ' Adresse en copie cachée
    sujet = "Salut!" ' Sujet du mail
    texte = "Comment ça va ?" ' Texte du mail
    PieceJointe = "C:\Users\toto\Documents\titi\new 1.txt" ' Chemin du fichier à joindre
 
    ' Itérer sur la liste des destinataires
    For Each destinataireActuel In destinataires
        ' Construire la commande pour lancer Thunderbird avec les paramètres
        Dim monCourriel As String
        monCourriel = " -compose " & "to=" & destinataireActuel & "," & "bcc=" & copiecachee & "," & "subject=" & sujet & "," & "body=" & texte & "," & "attachment=" & PieceJointe
 
        ' Exécuter la commande pour ouvrir Thunderbird
        Shell ProgThunderbird & monCourriel, vbNormalFocus
 
        ' Attendre quelques secondes pour laisser l'interface de Thunderbird se charger
        Application.Wait Now + TimeValue("00:00:05") ' Attends 5 secondes (ajuste selon tes besoins)
 
        ' Envoyer le mail automatiquement (décommenter la ligne en enlevant l'apostrophe)
        'SendKeys "^{ENTER}", True
 
        ' Optionnel : Fermer Thunderbird après l'envoi (décommenter la ligne en enlevant l'apostrophe)
        'Application.Wait Now + TimeValue("00:00:02") ' Attends 2 secondes avant de fermer Thunderbird
        'SendKeys "%{F4}", True ' Fermer Thunderbird
 
        ' Attendre quelques secondes avant de passer au destinataire suivant
        Application.Wait Now + TimeValue("00:00:02") ' Attends 2 secondes (ajuste selon tes besoins)
    Next destinataireActuel
 
    MsgBox "Mails envoyés!"
 
End Sub

[DenisHen]

Bonjour Franc, et merci pour ton aide.
Super sympas les commentaires, très utiles pour les novices tels que moi.
Je regarde ça avec la plus grande attention ce week-end, si je trouve le temps.
Encore un grand merci.
Bien à toi la communauté.
Denis...

[DenisHen]

Bon, je n'ai pu me retenir...
Tout se passe bien, mais rien n'est envoyé...
Les fenêtre de message restent toutes ouvertes.
J'ai tenté un "Application.Send" avant le "Next destinataireActuel", mais ce n'est pas reconnu...
Et pourtant, j'ai bien le MsgBox de fin.

[Franc]

tu as bien enlevé les apostrophes de certains commentaires comme expliqué dans le code ?

[DenisHen]

Oui, j'ai bien tout fais.
J'ai envoyé à deux boites qui sont les miennes : rien dans la boite d'envoi et rien dans la réception des autres boites.
Peut-être un conflit entre les différentes boites de Thunderbird ?
J'ai aussi réécris la ligne :

Code :

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

    ProgThunderbird = "C:\Users\[Utilisateur]\AppData\Local\Mozilla Thunderbird\thunderbird.exe"