Postagens
Não informado
clovissistemas@terra.com.br
O code então ficaria do jeito abaixo?
Pergunto, pois não entendo nada de ASP:
<%
'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 = "xxxxxxxxxxxx@terra.com.br"
'assunto da mensagem
objCDOSYSMail.Subject = request.form("subject")
'conteúdo da mensagem
objCDOSYSMail.TextBody = request.form("body")
'Cria a Mensagem a Enviar
Msgs = "Nome: " & request.form("nome") & vbCrLf
Msgs = Msgs & "Endereço: " & request.form("endereco") & vbCrLf
Msgs = Msgs & "Telefone: " & request.form("telefone") & vbCrLf
Msgs = Msgs & "Nome do Grupo: " & request.form("grupo") & vbCrLf
Msgs = Msgs & "Quant. Pessoas: " & request.form("pessoas")
'conteúdo da mensagem
objCDOSYSMail.TextBody = Msgs
'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")& " ..."
%>
Mais uma vez obrigado
desculpa minha burrice
