Fichier joint dans un mail

Le 07/10/2013 à 18:42

Bonjour,

Je veux envoyer automatiquement un fichier joint dans un mail en CDO.

J'utilise une code que j'ai trouvé sur internet :

.AddAttachment et nom du chemin de mon fichier. Il y a toujours une erreur : le chemin d'accès est introuvable.

J'ai tout essayé je ne trouve rien, pourtant la syntaxe me semble correcte.

Ou se trouve le problème ?

Merci

Cordialement

J.J Martin

sub envoi_mail()

Application.ScreenUpdating = False

Dim iMsg As Object, iConf As Object, Flds As Object
Dim strHTML As String
Dim Fichier As Variant

Dim email As String

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

email = Range("C13")

If Worksheets("page_accueil").Range("N8") > 0 Then

email = Range("C13") & ";" & Worksheets("page_accueil").Range("N8")

End If
If Worksheets("page_accueil").Range("N9") > 0 Then

email = Range("C13") & ";" & Worksheets("page_accueil").Range("N8") & ";" & Worksheets("page_accueil").Range("N9")
End If
If Worksheets("page_accueil").Range("N10") > 0 Then
email = Range("C13") & ";" & Worksheets("page_accueil").Range("N8") & ";" & Worksheets("page_accueil").Range("N9") & ";" & Worksheets("page_accueil").Range("N10")
End If

Range("A30") = email

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour," & "<BR> <BR>Veuillez trouver ci-joint le fichier des inscriptions des joueurs du SCBC42 pour le tournoi de :" & "<B><u>" & Range("C3") & "</B></u>" & "<BR>L'inscription papier et le chèque partent aujour'hui au courrier." & "<BR><B>Merci de confirmer la bonne réception du message et du fichier ." & "</B>"

 strHTML = strHTML & "<BR><BR>Cordialement<BR><BR>" & Range("C17") & "<BR>"

strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Update
End With

With iMsg
    Set .Configuration = iConf
    .To = Range("A30") 'Renvoie une erreur si l'adresse est non valide"
    '.From = "youralias@yourdomain.com"
    .From = Worksheets("page_accueil").Range("I9")
    .cc = "martinjeanjacques42@gmail.com" & ";" & Worksheets("page_accueil").Range("I9")
    .Subject = "Envoi Feuille d'inscription"
    '.AddAttachment Fichier
   [color=#FF0000] .AddAttachment "(C:\Users\NomOrdinateur\Downloads\scbc42\inscriptions\30092013_Genas.pd)f"[/color]
    .HTMLBody = strHTML
    .Send
End With

Set iMsg = Nothing
Application.ScreenUpdating = True

 MsgBox "Traitement 5 terminé", vbInformation, "Sauvegarde - Envoi mail"

Application.ScreenUpdating = True
End Sub
Le 08/10/2013 à 22:33

Bonsoir,

il y a une faute de frappe dans l'exemmple que tu as donné

.AddAttachment "(C:\Users\NomOrdinateur\Downloads\scbc42\inscriptions\30092013_Genas.pd)f"

de plus moi j'essaierais ceci

.AddAttachment "C:\Users\NomOrdinateur\Downloads\scbc42\inscriptions\30092013_Genas.pdf"
Le 09/10/2013 à 09:02

Bonjour,

J'ai tout essayé avec parenthèses, guillemets en corrigeant l'erreur:

.AddAttachment "C:\Users\NomOrdinateur\Downloads\scbc42\inscriptions\09102013_Lyon.pdf"

.AddAttachment ("C:\Users\NomOrdinateur\Downloads\scbc42\inscriptions\09102013_Lyon.pdf")

Toujours la même erreur : le chemin d'accès spécifié est introuvable

Pourtant le chemin est bien le bon.

J'ai essayé avec d'autres fichiers joints avec un chemin court il y a toujours la même erreur

Je ne comprends pas

Merci pour ton aide

j'attends d'autres solutions

J.J Martin

Le 09/10/2013 à 15:59

Bonjour,

et si tu rajoutes l'instruction

msgbox dir("C:\Users\NomOrdinateur\Downloads\scbc42\inscriptions\30092013_Genas.pdf")

avant l'instruction

With iMsg

qu'est-ce que cela donne ?

Le 10/10/2013 à 14:30

Salut,

Merci

Je ne comprends pas ce que tu veux dire.

Je te joins un fichier exemple qui ne marche .Il y a toujours la même erreur le chemin d'accès spécifié est introuvable

Cordialement

J.J Martin

33envoi-mail-2.zip (22.33 Ko)
Le 10/10/2013 à 14:51

Bonjour,

j'ai essayé chez moi (sans l'envoi) avec un fichier existant, pas de problème

j'ai adapté ton code, qui vérifie que le fichier que tu veux envoyer existe bien à l'adresse indiquée, peux-tu essayer cette version et me dire si tu reçois le message "fichier non trouvé"

51envoi-mail-2.zip (18.29 Ko)
Le 10/10/2013 à 15:57

La fenêtre m'affiche message non trouvé.

Il ne ne connait aucun chemin, pourtant le chemin est bien celui-ci

Jean jacques Martin.

Le 10/10/2013 à 16:02

Bonjour,

si la commande dir avec le nom complet tel que tu le donnes ne permet pas de trouver le fichier, c'est que le fichier est introuvable avec ce nom complet.

\NomOrdinateur\ dans le chemin est-ce bien correct, ne s'agirait-il pas d'une variable ?

Le 10/10/2013 à 17:41

Il y a 1 variable NomOrdinateur . Je l'ai remplacé par son contenu Jean Jacques Martin

çà Fonctionne, mais pour 4 envois il faut un temps incroyable, et il pour l'adresse de gmail il met 2 fois le fichier.

Quand je veux mettre le nom du fichier dans une variable ex; fichier="02102013_Vienne.pdf"

Il ne trouve pas le fichier.

Pourquoi ne peut-on pas utiliser de variable ?

Merci

J.Jacques Martin

Le 10/10/2013 à 19:02

Bonsoir,

j'ai fait quelques corrections dans ta macro pour pouvoir utiliser des variables.

72envoi-mail-2-1.zip (15.30 Ko)
Le 10/10/2013 à 19:15

Merci beaucoup çà fonctionne .

Cordialement

J.J Martin

Le 11/10/2013 à 09:08

J'ai une autre question sur laquelle je butte.

Comment insérer un logo dans le corps du message d'un mail.

J'ai essayé dans mon fichier:

strHTML = strHTML & "<IMG src= http://www.scbc42/images/Logo_scbc_noir_3.JPG>"

Le logo ne s'affiche pas dans le corps du message.

J'ai regardé un peu les forum, on parle de <src=cid...> , je ne sais pas comment l'utiliser

Merci

Le 11/10/2013 à 11:23

bonjour,

essaie ceci.

strHTML = strHTML & "<IMG src=""http://www.scbc42/images/Logo_scbc_noir_3.JPG>"""
Le 11/10/2013 à 14:28

Bonjour

Non, Je viens d'essayer çà ne fonctionne pas.

J.J M

Le 11/10/2013 à 14:33

bonjour,

je me rends compte que j'ai fait une erreur dans ma proposition, essaie ceci.

strHTML = strHTML & "<IMG src=""http://www.scbc42/images/Logo_scbc_noir_3.JPG"">"
Le 11/10/2013 à 14:50

Rebonjour,

Non le logo ne s'affiche pas, désolé

Le 11/10/2013 à 18:16

désolé,

je n'ai pas d'autre idée. désolé

Le 11/10/2013 à 20:55

rebonsoir,

j'aurais dû commencer par ça ?

et essayant d'afficher l'image qui correspond à cette adresse dans mon browser inernet, je reçois une adresse invalide

http://www.scbc42/images/Logo_scbc_noir_3.JPG

et pour cause il manque quelque chose après www.sbc42

et y mettant .fr

je trouve bien une image

donc je suppose qu'en mettant

http://www.scbc42.fr/images/Logo_scbc_noir_3.JPG

cela devrait aller.

Le 14/10/2013 à 09:15

Bonjour,

Merci çà fonctionne. Effectivement l'adresse url n'était pas correcte . C'est vraiment une erreur très bête , merci de m'excuser pour çà.

Cordialement

J.J Martin

Le 17/10/2013 à 14:18

Bonjour,

Désolé de te resoliciter pour mon fichier, mais lors de l'envoi du mail avec fichier joint il y a des choses surprenantes.

Dans la liste des mails dans la boucle, le premier mail reçoit 1 fichier joint, le 2ème 2 fichiers joints et le 3ème 3 fichiers joints.

J'ai essayé de comprendre mais là je ne vois pas ?

Merci si tu avais une idée

Cordialement

J.J Martin

11envoi-mail-2-1.zip (22.69 Ko)
Rechercher des sujets similaires à "fichier joint mail"