erro '8004020f' na linha do ".Send"
todos os exemplos q ja testei é sempre o mesmo erro!
o codigo q eu usei por ultimo foi esse:
<%
'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") = "smtp.dominio.com.br"
'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 = "email@dominio.com"
'e-mail do destinatário
objCDOSYSMail.To = "email@dominio.com.br"
'assunto da mensagem
objCDOSYSMail.Subject = "Contato pelo Site"
'conteúdo da mensagem
strBody = "Dados" & vbCrLf & vbCrLf & _
"Nome: "& Request("remetente") & vbCrLf & _
"E-Mail: "& Request("email") & vbCrLf & _
"Idade: "& Request("idade") & vbCrLf & _
"Telefone: "& Request("telefone") & vbCrLf & _
"Mensagem: "& Request("mensagem")
strBody = strBody & "."
objCDOSYSMail.TextBody = strBody
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = strBody
'envia o e-mail
objCDOSYSMail.Send
'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write ("<font color='#FF0000'>'E-mail enviado com suceso!'</font>" )
%>
