bonjours,
je cree une page où un formulaire pour l'envoi d'un email (3 champs : 1-A: 2-Sujet: 3-message )
le code ke j'ai utilsé sa march bien
<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\Inetpub\mailroot\pickup"
.Update
End With
With iMsg
Set .Configuration = iConf
.From = "<VOTRE_EMAIL>" 'A MODIFIER
.Subject = "SUJET DU MESSAGE" 'A MODIFIER
.To = "<EMAIL_DESTINATAIRE>" 'A MODIFIER
.cc = ""
' .bcc = ""
' .TextBody = "POUR ENVOYER DU TEXTE"
.HTMLBody = "POUR ENVOYER DU HTML."
.send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>avec ce code j'envoie mes message.mais le proble pour moi c'est lorsque mes navigateurs tapent un message je veux que touts les messages acompagnent avec un lien (ex: visiter notre site). je sais pas comment integrer le lien dan le message envoyé
merci davance