Envio de e-mail com CDOSYS

[Davide Ricardo 0]

viva pessoal.

 

tnho um site em que queria por a funcionar o sistema de envio de mails.

 

eu tou a utilizar o forum Web Wiz Forum, e o sistema deles está a funcionar perfeitamente consoantes as configurações que lhe dei.

 

Agora, se eu tiver um formulario na pagina (por: contactos), que quero que seja enviado por mail, não consigo por a funcionar..alguem me pode ajudar..

 

ja agora os dados de config do forum WWF:

- CDOSYS - SMTP Server Authentication supported

- Email Component to use: CDOSYS

- Outgoing SMTP Mail Server (NOT needed for CDONTS): localhost

- Outgoing SMTP Mail Server Username: meuuser

- Outgoing SMTP Mail Server Password : minhapass..

 

Agora eu utilizo este sistema para enviar o outro form:

 

o username: é só uma palavra..nao nada do tipo username@kkcoisa.com

 

<% Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

' Servidor SMTP de Saída
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuuser"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhsenha"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

' Altere a configuração do CDOSYS
Set objCDO.Configuration = objCDOSYSCon
objCDO.To = meu@meumail.com
objCDO.From = outro@outromail.com
objCDO.Subject = "Teste CDOSYS"
bodyHTML = "O CDOSYS Funcionou!"
objCDO.HTMLBody = bodyHTML
objCDO.Send
Set objCDO = Nothing
Set objCDOSYSCon = Nothing
%>

Ja agora coloco aqui o erro que dá

 

O Web site não consegue apresentar a página 
 HTTP 500  
   Causas mais prováveis:
O Web site está em manutenção. 
O Web site contém um erro de programação.

Ajudem sff..Obrigado

[jrcardozo 4]

começe desabilitando as mensagens de erro amigaveis do seu browser. Se isso não resolver desabilite as mensagens no painel da hospedagem e volte a testar para exibir o erro exato

[Davide Ricardo 0]

error '8004020f'

/tunadao/tunos/teste2.asp, line 22

a linha 22 é: objCDO.Send

[Régis Corrêa 0]

para poder analisar melhor e descobrirmos o erro que o componente cdosys está retornando coloque o seguinte no seu código:

 

após a declaração das variáveis:

 

on error resume next

abaixo da destruicao dos objetos:

 

if err.number <> 0 then response.write err.description

apos cole aqui o erro detalhado.

 

 

Att.

[Davide Ricardo 0]

entao o codigo é akele que esta no primeiro topico

[Davide Ricardo 0]

estranho

 

fiz o que me disseste..e deu-me isto

 

Fixe! funciona

The server rejected one or more recipient addresses. The server response was: 550 5.7.1 Unable to relay for davide_ricardo@iol.pt

o Fixe funciona ker dizer que foi enviado com sucesso..mas nao recebo nada no mail... :S