bonjours
j'ai un programme qui me permet d'envoyer des message, voici le script:
<%
Option Explicit
dim sName, sEmail, sMessage, sFact
if Request.Form("Action") <> "" then
sName = Request.Form("Name")
sEmail = Request.Form("Email")
sMessage = Request.Form("Message")
sFact = Request.Form("Facture")
dim oJMail
Set oJMail = Server.CreateObject("JMail.SMTPMail")
with oJMail
.Sender = "xxxxxxxx@wanadoo.fr"
.SenderName = "nom"
.AddRecipient sEmail
.Subject = "nom de sujet au choix"
.Body = sMessage
.ServerAddress = "smtp.wanadoo.fr:25"
.Execute
end with
Set oJMail = Nothing
response.write "merci pour votre message"
else
%>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<p>Name:<br /><input type="text" name="Name" /></p>
<p>E-mail:<br /><input type="text" name="Email" /></p>
<p>Message:<br /><textarea name="Message"></textarea></p>
<p><input type="submit" name="Action" value="Envoyer" /></p>
</form>
<%
end if
%>
Maintenant la question est comment insérer un pièce jointe pour l'envoyer?????????
Merci d'avance