integrer un lien

Question

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 = "" 'A MODIFIER .Subject = "SUJET DU MESSAGE" 'A MODIFIER .To = "" '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

nhervagault · Answer

Salut, 

Il suffit d'ecrire le html dans le HTMLBody 

.HTMLBody = "[ Venez visiter mon site]POUR ENVOYER DU HTML." 


Bon courage

Integrer un lien

1 réponse

Votre réponse

Discussions similaires