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 |
Partager