jm1213
dummy mioche
Inscrit le: 12 Fév 2006
Messages: 1
|
 Posté le: Dim Fév 12, 2006 11:42 am Sujet du message: PB mail avec piéce jointe en vb |
 |
|
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.
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 |
|
