Enviar email de Resposta

[betobto 0]

Olá como faço para enviar email de resposta usando o CDO.Message

 

tpw o cliente entra no site manda um email pelo form ae o recebe um email de agradecimento...

 

Obrigado

[Vinicius Ianni 189]

No proprio sistema de envio do formulário para você, você cria a rotina que enviará para o usuário um e-mail com a mensagem que deseja.

Existem exemplos de envio de formulário no laboratório de scripts que podem servir para ti como pontapé incial.

[xanburzum 169]

use um auto-responder

[betobto 0]

Olá nao consegui encontrar nada referente...

[razs 0]

Boas eu faria assim mas admito que possa haver maneiras mais simples...

 

Dim actnow 
actnow = request.querystring("actnow")

if Request.querystring("actnow")="gonow" then

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

Set cdoConfig = Server.CreateObject("CDO.Configuration") 

cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpusessl") = True
cdoConfig.Fields.Item(sch & "smtpserverport") = 465
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" 
cdoConfig.Fields.Item(sch & "sendusername") = "xpto@gmail.com" 
cdoConfig.Fields.Item(sch & "sendpassword") = "password" 
cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = "xpto@gmail.com"
cdoMessage.To = sTo
cdoMessage.Subject = sSubject 
cdoMessage.TextBody = stxtBody

x = cdoMessage.Send 

if x > 0 then
call thanks
else
End if

sub thanks
cdoMessage.From = "xpto@gmail.com"
cdoMessage.To = request.form("mail do utilizador")
cdoMessage.Subject = "Obrigado"
cdoMessage.TextBody = "obrigado pelo seu contacto"
cdoMessage.Send 
end sub