Discussion :

[jm1213]

Bonjour,

J'essaye d'envoyer un mail en visual basic avec comme pièce jointe un fichier exel,le mail est bien envoyer avec pas la pièce jointe : le non du fichier reçu correspond bien, mais celui ci est vide. Je pense qu'il ne trouve pas le fichier. Ou doit t'on indiquer le chemin du fichier dans le code?
Ci quelqu'un à une idée?
Merci.

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
Commande = GenerateMessageID(Mid("toto@wanadoo.fr", InStr(1, "toto@wanadoo.fr", "@") + 1, Len("toto@wanadoo.fr"))) 
Mailer.SendData (Commande) 
 
'Formatage de la date 
Commande = "DATE: " & Format(Now, "h:mm:ss") 
'Envoi de la comande DATE 
Mailer.SendData Commande & vbCrLf 
MessagesWindow.Text = vbCrLf + MessagesWindow.Text + Commande 
 
'Envoi de la commande FROM 
Commande = "FROM: " + "toto" + " <" + "toto@wanadoo.fr" + ">" & vbCrLf 
Mailer.SendData Commande 
 
Mailer.SendData "TO: " + "toto" + " <" + "toto@wanadoo.fr" + ">" & vbCrLf 
Mailer.SendData "Reply-to: <" + "toto@wanadoo.fr" + ">" & vbCrLf 
Mailer.SendData "SUBJECT: " + "sauvegarde" & vbCrLf 
Mailer.SendData "MIME-Version:1.0" & vbCrLf 
Mailer.SendData "Content-Type:application/vnd.ms-excel; name=Heures sup2006.xls" & "Heures sup2006.xls" & vbCrLf 
Mailer.SendData "Content-Transfert-Encoding:base64" & vbCrLf 
Mailer.SendData "Content-disposition:attachment;filename=" & "Heures sup2006.xls" & vbCrLf & vbCrLf 
Mailer.SendData vbCrLf & "." & vbCrLf 
Mailer.SendData "QUIT" & vbCrLf

[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

[SfJ5Rpw8]

je comprends pas tout dans ta maniére d'nevoyer un mail avec piéce jointe... mais ce que je vois c'est que nulle part tu n'envoi le contenu du fichier.. n'as tu pas oublier quelque chose... ? d'ou viens ce code ?

dans la FAQ il y as un code pour decoder un fichier en voyé en base 64 ...
http://vb.developpez.com/faq/?page=Reseau#base64
pour envoyer un fichier il doit falloir utiliser la méthode invers de codage..;

[jm1213]

Merci bbil pour tes infos, mais d'après ce que j'ai pu lire sur différent forum
c'est les instruction SMPT "Content-Type:application/vnd.ms-excel; name=non du Fichier"
, "Content-Transfert-Encoding:base64" et "Content-disposition:attachment;filename=" qui permette d’envoyer et de coder le fichier, puis c’est Outlook qui le décode en base64.
Il doit effectivement manquer une instruction mais laquelle ?

[SfJ5Rpw8]

c'est peu être aussi un histoire de guillemets....

Code :

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

Mailer.SendData "Content-disposition:attachment;filename= ""Heures sup2006.xls""" & vbCrLf & vbCrLf

:

[jm1213]

Ca ne marche pas non plus !