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]