• 0
Sign in to follow this  
Vagner Nunes

Envio de E-mail

Question

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
%>

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

você tem que ver se o componente de envio de email esta instalado..!!

e também preencher estes campos

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this