Postagens
Não informado
clovissistemas@terra.com.br
O meu provedor de hospedagem (Terra) aceita somente formulários ""
Recebi como modelo de formulário o seguinte code:
<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "mail-fwd"
'porta do SMTP
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
'porta do CDO
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
'timeout
objCDOSYSCon.Fields("http://schemas.micro...nectiontimeout") = 30
objCDOSYSCon.Fields.update
'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon
'e-mail do remetente
objCDOSYSMail.From = request.form("from")
'e-mail do destinatário
objCDOSYSMail.To = "xxxxxxxxxxx@gmail.com"
'assunto da mensagem
objCDOSYSMail.Subject = request.form("subject")
'conteúdo da mensagem
objCDOSYSMail.TextBody = request.form("body")
'objCDOSYSMail.fields.update
'envia o e-mail
objCDOSYSMail.Send
'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "E-mail enviado com sucesso! " &request.form("to")& " ..."
%>
Acontece que este formulário envia somente o texto da mensagem. Eu gostaria de utilizar um formulário com campos (mas CDO [CDOSys] único aceito no provedor):
Nome
Endereço
Telefone
Nome do Grupo
Quant. Pessoas
Etc...
E que essas informações dos campos acima sejam incluídas no corpo do e-mail.
Como posso fazer?
Muito obrigado,
Clovis Tavares
