[VB]Bp envoie mail avec piéce jointe

Version imprimable

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:

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]

16/02/2006, 21h17
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..; :!:
17/02/2006, 18h38
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 ?
17/02/2006, 19h04
SfJ5Rpw8

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

Code:

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

:?:
17/02/2006, 20h55
jm1213

Ca ne marche pas non plus !