Envio de E-mail

Vagner Nunes · Outubro 2, 2010

Prezados,

Bom dia. Estou fazendo uma ficha de agendamento de prova, onde existe um form e quando clicar em enviar carrega uma outra página com o código abaixo, nesta página de confirmação, aparece os dados, do candidato, com os dados, para imprimir, um comprovante, e esta ficha é enviado para um e-mail responsavel pelo processo seletivo, porém ele está apresentando o seguinte erro:

CDO.Message.1 error '8004020d'
At least one of the From or Sender fields is required, and neither was found.
/portal/seletivo_inscricao_pos.asp, line 274

Código de Envio:

<%
                
nome = Request.Form("nome")
session("nome")= nome
endereco = Request.Form("endereco")
bairro = Request.Form("bairro")
cidade = Request.Form("cidade")
telefone = Request.Form("telefone")
email = Request.Form("email")
nascimento = Request.Form("nascimento")
sexo = Request.Form("sexo")
rg = Request.Form("rg")
session("rg")= rg
cpf = Request.Form("cpf")
session("cpf")= cpf
estadocivil = Request.Form("estadocivil")
escolaconcluiu = Request.Form("escolaconcluiu")
anoconclusao = Request.Form("anoconclusao")
curso = Request.Form("curso") 
session("curso")= curso
agendamento = Request.Form("agendamento")
session("agendamento")= agendamento
fonte = Request.Form("fonte")
email_contato = Request.Form("email_contato")

%>
                <%
b1="<html><body>"
b1=b1 & "<font face = tahoma size=2>"
b1=b1 & "<font color = #003399><b>.:: AGENDAMENTO DE PROVA ::.</b></font> <br>"
b1=b1 & " ----------------------------------------------------------------------------------- <br>"
b1=b1 & "<font color = #CC0000> Subject </font> <br><br>"
b1=b1 & "<b>Nome:</b> " & nome &" <br><br>"
b1=b1 & "<b>Endereço:</b> " & endereco &"<br><br>"
b1=b1 & "<b>Bairro:</b> " & bairro &" <br><br>"
b1=b1 & "<b>Cidade:</b> " & cidade &" <br><br>"
b1=b1 & "<b>Telefone:</b> " & telefone &" <br><br>"
b1=b1 & "<b>E-mail:</b> " & email &" <br><br>"
b1=b1 & "<b>Dt. de Nascimento:</b> " & nascimento &" <br><br>"
b1=b1 & "<b>Sexo:</b> " & sexo &" <br><br>"
b1=b1 & "<b>RG:</b> " & rg &" <br><br>"
b1=b1 & "<b>CPF:</b> " & cpf &" <br><br>"
b1=b1 & "<b>Estado Civil:</b> " & estadocivil &" <br><br>"
b1=b1 & "<b>Escola onde concluiu o Ensino Medio:</b> " & escolaconcluiu &" <br><br>"
b1=b1 & "<b>Ano de Conclusao:</b> " & anoconclusao &" <br><br>"
b1=b1 & "<b>Curso Escolhido:</b> " & curso &" <br><br>"
b1=b1 & "<b>Prova Agendada para:</b> " & agendamento &" <br><br>"
b1=b1 & "<b>Fonte de Informacao:</b> " & fonte &" <br><br>"
b1=b1 & "<b>www.site.com.br</b></font></a>"
b1=b1 & "</font>"
b1=b1 & "</body></html>"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xx 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = xx 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = xx
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon 
objCDOSYSMail.From = email 
objCDOSYSMail.To = email_contato
objCDOSYSMail.Subject = "AGENDAMENTO DE PROVA" 
objCDOSYSMail.HtmlBody = b1 
objCDOSYSMail.Send 
set objCDOSYSMail = nothing 
set objCDOSYSCon = nothing 
'response.redirect "isira_pagina.html" 'redireciona para pagina que desejar
%>