Discussion :

[DenisHen]

Bonjour à tous,

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

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
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 :

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

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...

[Invité]

Bonjour,
regarde ça : http://www.developpez.net/forums/d14...t/#post7968025

[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...

[Invité]

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

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...

[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...

[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...

[SfJ5Rpw8]

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

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

[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 !

[SfJ5Rpw8]

(...)
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.