Envoi d'un mail avec Excel et Thunderbird

Version imprimable

Bonjour à tous,

Voilà, j’essaie d'envoyer un mail avec Thunderbird depuis Excel, Voici mon code :

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
Private Sub CmdMail_Click()
Dim Body, StrCommand As String
  ColReg = 1: LignReg = 4
  Do While Worksheets("CfgRegion").Cells(1, ColReg).Value <> ActiveSheet.ComboLstRegion.Value
    ColReg = ColReg + 1
  Loop
destinataire = Worksheets("CfgRegion").Cells(3, ColReg).Value
sujet = "Livraison " & Range("SaisieCommune").Value & " - " & Range("SaisieZNC").Value
Body = "Bonjour" & vbCrLf
Body = Body & "Veuillez trouver ci-joint la livraison concernant le dossier : " & vbCrLf
Body = Body & "Commune : " & Range("SaisieCommune").Value & vbCrLf
Body = Body & "ZNC : " & Range("SaisieZNC").Value & vbCrLf 
Body = Body & "Cordialement,"
 
StrCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
StrCommand = StrCommand & " -compose " & "to='" & destinataire & "'"
'StrCommand = StrCommand & "," & "cc='" & cc & "'"
StrCommand = StrCommand & "," & "subject=" & sujet & "',"
StrCommand = StrCommand & "body='" & Body & "'"
 
Debug.Print StrCommand
 
Call Shell(StrCommand, vbNormalFocus)
End Sub

Mais voilà... Ça ouvre bien un nouveau Courriel dans Thunderbird, le bon destinataire, mais le sujet est tronqué et je n'ai pas de message...

Voici le contenu de StrCommand :

Code:

1
2
3
4
5
C:\Program Files (x86)\Mozilla Thunderbird\thunderbird -compose to='erdf-grdf-drcar-commandecarto@erdf-grdf.fr',subject=Livraison MOREMBERT - ZNC 01-52141',body='Bonjour
Veuillez trouver ci-joint la livraison concernant le dossier : 
Commune : MOREMBERT
ZNC : ZNC 01-52141
Cordialement,'

Il doit il y avoir une faute de quote ou un truc comme çà, mais je ne le trouve pas

Merci pour l'aide,

Denis...

19/11/2014, 16h27
Invité

Bonjour,
regarde ça : http://www.developpez.net/forums/d14...t/#post7968025
19/11/2014, 19h02
DenisHen

Bonjour rdurupt,

Je ne peut pas utiliser le CDO car on est plusieurs à utiliser le fichier Excel et on doit avoir une trace de nos envois dans Thunderbird...

Mais merci pour ta réponse...

Denis...
19/11/2014, 20h03
SfJ5Rpw8

Citation:

Envoyé par DenHen

(...)
Voici le contenu de StrCommand :
C:\Program Files (x86)\Mozilla Thunderbird\thunderbird -compose to='erdf-grdf-drcar-commandecarto@erdf-grdf.fr',subject=Livraison MOREMBERT - ZNC 01-52141',body='Bonjour
Veuillez trouver ci-joint la livraison concernant le dossier :
Commune : MOREMBERT
ZNC : ZNC 01-52141

(...)

Bonsoir,

Quand tu dis le sujet et tronqué .. que reçoit tu exactement ...

pour le sujet il semble manquer un apostrophe entre ton égale et ton sujet..

pour le reste tu exécute shell pour lancer une action en ligne de commande , et tu as au milieu de ton "body" des retour chariot qui équivaut à une fin de commande ... , essai déjà sans ces retours chariots..

Avant de te battre en VBA exécute ta commande shell dans une fenêtre "ligne de commande" , histoire de valider la chaine StrCommade à générer en VBA.
19/11/2014, 20h05
Invité

Rien ne t'interdis de metre l'expéditeur en copy caché

Citation:

Envoyé par DenHen

Bonjour rdurupt,

Je ne peut pas utiliser le CDO car on est plusieurs à utiliser le fichier Excel et on doit avoir une trace de nos envois dans Thunderbird...

Mais merci pour ta réponse...

Denis...
19/11/2014, 20h12
Marc-L

Bonjour, bonjour !

En commençant par une recherche sur « Thunderbird » sur ce forum,
au moins quatre discussions intéressantes en rapport dans mon souvenir …

Et en bonus : Command line arguments - Thunderbird !
19/11/2014, 20h16
DenisHen

Bonsoir à vous,

Et merci pour vos réponses,

bbil : passer en "ligne de commande", je ne sais pas ce que c'est...

rdurupt : que m'apporte de caché l'expéditeur, alors qu'il nous faut savoir qui a envoyé le mail (par poste), pour savoir qui a traité le dossier...

Et merci encore...

Denis...

Voici mon message dans Thunderbird...
19/11/2014, 20h17
SfJ5Rpw8

Citation:

Envoyé par DenHen

...
bbil : passer en "ligne de commande", je ne sais pas ce que c'est......

:koi: aie.. je suis vieux ... sous Seven par exemple cela s'appelle "invite de commande" , Windows ->Menu démarrer ->Tous les progamme -> accessoire -> Invite de commande
19/11/2014, 20h19
DenisHen

Merci Marc-L pour ta réponse,

Mais j'ai déjà lu ces post et je ne suis pas assez bon en Anglais pour comprendre ton lien, et on est à la version 31 de Thunderbird et dans ce lien, on parle, il me semble, de version 2 et 3... D'après ce que j'ai compris...

Denis...

essai en remplaçant les lignes 18 et 19 de ton code :

Code:

1
2
StrCommand = StrCommand & "," & "subject=" & sujet & "',"
StrCommand = StrCommand & "body='" & Body & "'"

devient :

Code:

1
2
StrCommand = StrCommand & "," & "subject='" & sujet & "',"
StrCommand = StrCommand & "body='" & replace(body,vbCrlf," ")& "'"

Merci bbil pour ta réponse, j'ai maintenant en code :
Code:

1 2 3 4 5 StrCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird" StrCommand = StrCommand & " -compose " & "mailto:" & destinataire & "?" StrCommand = StrCommand & "," & "subject='" & sujet & "'," StrCommand = StrCommand & "body='" & Replace(Body, vbCrLf, " ") & "'"
Qui me donne dans mon Debug.Print StrCommand :

Code:

C:\Program Files (x86)\Mozilla Thunderbird\thunderbird -compose mailto:erdf-grdf-drcar-commandecarto@erdf-grdf.fr?,subject='Livraison : TROYES - ZNCPoste(51545)',body='Bonjour Veuillez trouver ci-joint la livraison concernant le dossier : Commune : TROYES ZNC : ZNCPoste Cordialement,'

Et une petite image du Mail (en gros, j'ai perdu mon sujet, mais je cherche la syntaxe exact du "shell") :

Bon, au cas ou celà peut servire à quelqu'un... Voici ce que j'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
destinataire = Worksheets("CfgRegion").Cells(3, ColReg).Value
Sujet = "Livraison : " & Range("SaisieCommune").Value & " - " & Range("SaisieZNC").Value & "(" & Range("SaisieDossier").Value & ")"
Body = "Bonjour" & vbCrLf
Body = Body & "Veuillez trouver ci-joint la livraison concernant le dossier : " & vbCrLf & vbCrLf
Body = Body & "Commune : " & Range("SaisieCommune").Value & vbCrLf
Body = Body & "ZNC : " & Range("SaisieZNC").Value & vbCrLf & vbCrLf
Body = Body & "Cordialement,"
 
ActiveWorkbook.FollowHyperlink "mailto:" & destinataire & "?" & "&Subject=" & Sujet & "&Body=" & Body

Le problème, c'est qu'il ne me prend pas les retours chariot...

Denis...

Et une 'tite n'image pour décorer...

Code:

1
2
3
4
5
6
7
8
Const retourChariot = "%0A"
destinataire = Worksheets("CfgRegion").Cells(3, ColReg).Value
Sujet = "Livraison : " & Range("SaisieCommune").Value & " - " & Range("SaisieZNC").Value & "(" & Range("SaisieDossier").Value & ")"
Body = "Bonjour" & retourChariot
Body = Body & "Veuillez trouver ci-joint la livraison concernant le dossier : " & retourChariot & retourChariot
Body = Body & "Commune : " & Range("SaisieCommune").Value & retourChariot
Body = Body & "ZNC : " & Range("SaisieZNC").Value & retourChariot & retourChariot
Body = Body & "Cordialement,"

20/11/2014, 08h13
DenisHen

Bonjour à tous,

Voilà, grâce à vous, mon problème est résolu... Le Code de rdurupt fonctionne parfaitement...

Merci mille fois à vous tous...

Denis...