Discussion :

[benadry]

Bonjour,

J'ai adapté une macro trouvée sur un forum pour envoyer des mails automatiquement.

Voici le 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
Sub EnvoiMail()
Dim destinataire, cc, body, sujet, strcommand, fichierjoint As String
 
destinataire1 = "tota.tata@XXX.fr,titi.toto@XXX.fr"
cc = "tutu.tete@XXX.fr,tata.tutu@XXX.fr"
sujet = "Relances"
 
body = "Bonjour," & vbLf & "A ce jour, et sauf erreur de notre part, nous n'avons toujours pas reçu la copie de la notification des dettes concernant votre Centre, mentionnés dans le tableau ci-joint." & vbLf & "Nous vous remercions de nous transmettre ces documents dans les meilleurs délais." & vbLf & vbLf & vbLf & "Cordialement." & vbLf & vbLf & vbLf & vbLf & "Le Service Comptabilité"
fichierjoint = "G:\CPT\Suivi des Créances\" & ActiveSheet.Name & " - " & Format(Now, "dd/mm/yyyy") & ".pdf"
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "cc='" & cc & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
 
 
Call Shell(strcommand, vbNormalFocus)
 
End Sub

Tout fonctionne parfaitement, à deux exceptions près :

1°) dans le mail, le message s'arrête à "Bonjour". En faisant des essais, je me suis rendu compte que si je supprimais toutes les virgules, le message était copié en entier, mais sans aller à la ligne ! En clair, il s'arrête sur les virgules et ne tient pas compte des vbLf.

2°) Le nom du fichier varie en fonction du centre (qui donne son nom à la feuille) et de la date du jour. Le nom du fichier joint est donc
fichierjoint = "G:\CPT\Suivi des Créances\" & ActiveSheet.Name & " - " & Format(Now, "dd/mm/yyyy") & ".pdf"
A priori, la syntaxe est bonne puisque je me sers du même code pour donner un nom au fichier pdf que je génère.
Or, ça ne marche pas. Un fichier est bien joint, mais il ne comporte que le premier mot du nom de la feuille active et pas d'extension (Relances, en l'occurrence, sans rien de plus).

Quelqu'un a-t-il une idée pour régler ces deux problèmes ?

Merci d'avance.

Cordialement.

[Jean-Philippe André]

Salut,

si tu passes par la commande batch, la chaîne de caractères ne peut pas se passer sans guillemets

Regarde le contenu de ta commande

Code :

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

Debug.Print strcommand

[benadry]

Rebonjour,

Excuse-moi, mais je n'ai pas du tout l'habitude des macros.

Je n'ai pas compris ce que tu m'as dit.

Comment puis-je regarder le contenu de la commande ? J'ai tapé ton code dans ma macro et il ne se passe rien.

Désolé pour mes lacunes !

Cordialement.

[Jean-Philippe André]

La fonction Debug.Print affiche le paramètre que tu lui passes dans la fenêtre d'exécution, dans ton environnement VBE

Si tu veux tu peux remplacer le DEbug.Print par un MsgBox

[benadry]

Rebonjour,


Désolé de ne pas avoir répondu plus tôt, mais j'étais sur autre chose.

J'ai fait comme tu m'as dit et voilà le résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
C:\Program Files\Mozilla Thunderbird\thunderbird -compose to='XXX@YYY.fr,',cc='ZZZ@YYY.fr,',subject=Relances des indus non notifiés,body=Bonjour,
 
Sauf erreur de notre part, nous n'avons pas encore reçu la copie de la notification ou de la régularisation des indus concernant votre Centre, mentionnés dans le tableau ci-joint.
Nous vous remercions de nous transmettre ces documents dans les meilleurs délais.
 
 
Bien cordialement.
 
 
 
Le Service Comptabilité,attachment=file:///G:\CPT\Activités service compta\Relances\Relances - centre B - 16/07/2013.pdf

Donc, a priori, quand je regarde dans la fenêtre d'exécution, c'est bon ! Comment puis-je donc résoudre mon problème ?

Cordialement.

[benadry]

Re-,

J'ai aussi essayé de voir ce que ça donnait en introduisant, en fin de code, une msgbox (MsgBox strcommand en l'occurrence) et tout apparaît correctement :
- le texte n'est pas tronqué ;
- la pièce jointe apparaît bien telle qu'elle doit être.

Je ne sais pas d'où vient mon problème.

Quand je me réfère à des posts précédents (dont je me suis inspiré, par exemple : http://www.developpez.net/forums/d73...c-thunderbird/) et je ne vois pas ce qui peut clocher chez moi !

A vous lire.

Cordialement.