Discussion :

[Sylvain_cou]

Bonjour,

Comme l'intitulé l'indique, je cherche à envoyer un mail avec thunderbird portable en VBA ACCESS 2007 avec une pièce jointe.
Le code suivant fonctionne. Thunderbird s'ouvre. Il y a bien le destinataire, le sujet et le message sauf pour la pièce jointe. Le message d'erreur est : "Le fichier E:\xxxx.PDF n’existe pas et n’a pu être joint au message."
Or le ficher est bien à cette emplacement.

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
Sub PROC10_Mail(Destinataire As String, CC As String, Sujet As String, Message As String, optional PJ As String)
 
Dim strCommand As String
 
strCommand = "E:\ThunderbirdPortable\ThunderbirdPortable"
strCommand = strCommand & " -compose " & "to='" & Destinataire & "'"
strCommand = strCommand & "," & "subject=" & Sujet & ","
strCommand = strCommand & "body='" & Message & "'"
if PJ<>"" then
strCommand = strCommand & "," & "attachment=" & PJ
end if
 
MsgBox strCommand
 
Call Shell(strCommand, vbNormalFocus)
strCommand = ""
End Sub

J'ai regardé sur le forum sans trouver de réponse à mon problème.

En vous remerciant,

[EricDgn]

Bonjour,
Il semble que la façon d'inscrire les pièces attachées change en fonction de la version utilisée: Thunderbird (exemple en bas de page) et soit encadrer le chemin du fichier avec des ', soit ajouter "file:///..." en utilisant des / plutôt que des \.
Je n'ai pas testé.
Bonne continuation.

[Sylvain_cou]

j'ai donc essayé mais le message d'erreur est toujours le même :

Code :

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

Le fichier file:///E:\GEAO\Inscriptions\Pré insciption GG Gg 18 04 06.PDF  n’existe pas et n’a pu être joint au message.

Voici le nouveau code rédigé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim strCommand As String
 
strCommand = "E:\ThunderbirdPortable\ThunderbirdPortable"
strCommand = strCommand & " -compose " & "to='" & Destinataire & "'"
strCommand = strCommand & "," & "subject=" & Sujet & ","
strCommand = strCommand & "body='" & Message & "'"
strCommand = strCommand & "," & "attachment='file:///" & PJ & " '"
 
Call Shell(strCommand, vbNormalFocus)
strCommand = ""

[EricDgn]

Je ne peux malheureusement pas le tester sur mon pc, mais essayer avec:

Code :

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

strCommand = strCommand & "," & "attachment='file:///E:/GEAO/Inscriptions/Pré insciption GG Gg 18 04 06.PDF'"

et aussi avec

Code :

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

strCommand = strCommand & "," & "attachment='E:\GEAO\Inscriptions\Pré insciption GG Gg 18 04 06.PDF'"

à noter qu'il est indiqué dans le nom de fichier insciption (et pas inscription)
Cdt

[Sylvain_cou]

Bonjour Eric,

J'avais déjà essayé cette syntaxe. Je l'ai à nouveau testée. Mais le message d'erreur est toujours identique.
Je me demande si la version Portble de Thunderbird n'y est pas pour queLque chose...

Si quelqu'un a une idée ?
thanks

[Sylvain_cou]

Bonjour Eric,

J'avais déjà essayé cette syntaxe. Je l'ai à nouveau testée. Mais le message d'erreur est toujours identique.
Je me demande si la version Portble de Thunderbird n'y est pas pour queLque chose...

Si quelqu'un a une idée ?
thanks

Visiblement, le sujet est compliqué. Je n'aitoujours pas trouvé de solution.
Peut-être y a-t-il d'autres logiciel de messagerie portabe avec qui access dialogue mieux ?
Sylvain

[Invité]

Bonjour,
Il faut remplacer les espaces par %20.

Code :

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

'file:///" & replace("E:\GEAO\Inscriptions\Pré insciption GG Gg 18 04 06.PDF"," ","%20")

Tu peux utiliser cdo.

https://www.developpez.net/forums/d1...t/#post7968025

[Sylvain_cou]

Bonjour,
Pourquoi remplacer les espaces par %20 ?
En tout cas, il ne trouve pas la pièce jointe.

"Le fichier file:///E:\GEAO\Inscriptions\Pré%20insciption%20GG%20Gg%2018%2004%2006.PDF n’existe pas et n’a pu être joint au message."

C'est un vrai mystère cette pièce jointe...

Merci

Bonjour,
Il faut remplacer les espaces par %20.

Code :

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

'file:///" & replace("E:\GEAO\Inscriptions\Pré insciption GG Gg 18 04 06.PDF"," ","%20")

Tu peux utiliser cdo.

https://www.developpez.net/forums/d1...t/#post7968025

[Invité]

Bonjour,
En fait, vraisemblablement Thunderbird utilise une Url pour ses pièces jointes. Hors l'html ne considère pas espaces d'ou le %20 qui signifie espace en html.
Pour t'en convaincre il suffit de faire un test en en faisant une copie de ton fichier avec un nom sens espace.
En fait si ton codes fonctionne avec des chemins complet sens espaces,il devrait être suffisant de déplacer les espaces par de %20.

Comme tu demandais s'il était possible d'utiliser autres chose que Thunderbird je t'es donné un lien pour CDO qui lui est natif d Windows et qui fonctionne en l'état.