all html : Le portail des webmaster

liste des forums liste des discussions Participer à la discussion

Message publié le lundi 04 septembre 2006 à 16 h 38 par mtcreations.

Bonjour à tous,

Je cherche à traduire le dev ci-dessous en ASP :

<?php
$TO = "mtcreations@voila.fr";

$h = "From: " . $TO;

$message = "";

while (list($key, $val) = each($HTTP_POST_VARS)) {
$message .= "$key : $val\n";
}

mail($TO, $subject, $message, $h);

Header("Location: http://monsite.com");

?>

Pourriez vous m'aider svp ?

• participer

Message publié le jeudi 28 septembre 2006 à 20 h 04 par Magiconception.

Bonjour,
Pour envoyer un message avec CDO ( integré avec win ) :

<%
Dim objMail
set objMail = Server.CreateObject("CDO.Message")

objMail.From="Expediteur@moi.fr"
objMail.To="Destinataire@moi.ca"
objMail.Subject="Sujet du message"
objMail.HTMLBody="Texte du Message en HTML"

objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.com"
objMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMail.Configuration.Fields.Update
On Error Resume Next
objMail.Send
If Err Then
Response.Write"Le message n'a pas pu être expédié.<br>"
Else
Response.Write "Message envoyé"
End if
%>

Sinon vous pouvez utilisez un compostant que vous pouvez installer sur votre serveur : exemple : jmail ( téléchargeable gratuitement sur : http://www.dimac.net/default3.asp?M=FreeDownloads/Menu.asp&P=FreeDownloads/FreeDownloadsstart.asp )

Set JMail = Server.CreateObject("JMail.SMTPMail")
' Adresse du serveur SMTP
JMail.ServerAddress = "smtp.server.com:25"
' adresse de l'expéditeur
JMail.Sender = "Exp@server.ca"
' sujet
JMail.Subject = "Message avec Jmail"
'codage type html
JMail.ContentType = "text/html"
'définition du corp du texte
JMail.Body = "Vous pouvez utilisez du HTML "
'Définition de l'importance du message
JMail.Priority = 3
' adresse des destinataires
JMail.AddRecipient "Destinataire@moi.ca"
'Envoi du message
JMail.Execute
Set Jmail = Nothing 'destruction de l'objet JMAIL
response.Write"Envoi via Jmail"


Bonne chance

• participer

liste des forums liste des discussions Participer à la discussion

Vous devez obligatoirement vous identifier en tant que membre pour participer à cette discussion.