Enviar uma mensagem de correio eletrónico utilizando ASP (alternativa ao Jmail)

Procédure

Porquê ter uma alternativa ao componente Jmail?

O Jmail é um componente antigo que pode não funcionar corretamente com as versões mais recentes do painel Plesk, pelo que se recomenda que tenha uma alternativa a este componente.
No nosso caso, o componente CDO é uma boa alternativa ao Jmail.

Como enviar uma mensagem de correio eletrónico a partir do componente CDO?

Eis um exemplo de código que pode utilizar

<%

'declaration variable formulaire'
z01 = " Nom : " & Request.Form("nom")
z02 = " Prenom : " & Request.Form("prenom")
z03 = " Email : " & Request.Form("zmail")
z04 = " Pays : " & Request.Form("pays")
z05 = " Objet : " & Request.Form("sujet")
z06 = " Message : " & Request.Form("message")

corps= z01 & vbCrLf & z02 & vbCrLf & z03 & vbCrLf & z04 & vbCrLf & z05 & vbCrLf & z06 

schema = "http://schemas.microsoft.com/cdo/configuration/"

Set msg = CreateObject("CDO.Message")
msg.Subject  = "le sujet de votre formulaire"
msg.From     = "l'adresse email d'envoi de ce formulaire"
msg.To       = "l'adresse qui receptionnera ce formulaire"
msg.TextBody = "This is some sample message text."

With msg.Configuration.Fields
  .Item(schema & "sendusing")      = 2
  .Item(schema & "smtpserver")     = "mailler21.lws-hosting.com"
  .Item(schema & "smtpserverport") = 26
  .Update
End With

msg.Send
%>

Terá de substituir as seguintes variáveis :

o assunto do seu formulário

pelo assunto da sua mensagem de correio eletrónico

o endereço de correio eletrónico utilizado para enviar o seu formulário

pelo endereço que envia este formulário, recomendo que indique um endereço associado ao seu domínio

o endereço que irá receber o seu formulário

pelo endereço de correio eletrónico que deve receber esta mensagem