Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Envio de e-mail com CDOSYS...

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

Boa tarde comunidade,

 

Tenho um formail para envio de msg com CDOSYS, porém quando envio o form não é exibida a msg informando que o e-mail foi enviado e o email tb não chega ao email determinado. Não é exibida nenhuma msg de ERRO, oq pode está ocorrendo?

 

Já configurei o SMTP do IIS no meu micro mas as msg não são enviadas... Alguem poderia me ajudar?

 

Abaixo segue os cods:

 

form.asp

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Micro Quality</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><meta name="Description" content="Micro Quality"><meta name="Keywords" content="Micro Quality, Envio de Email", "Envie sua mensagem"><style type="text/css"><!--.style1 {font-family: Arial, Helvetica, sans-serif;font-size: 16px;}.style4 {font-family: Arial, Helvetica, sans-serif; font-size: 14px; }.style5 {font-family: Arial, Helvetica, sans-serif;font-size: 12px;}--></style></head><body background="mq_arquivos/bg_fundo.gif" leftmargin="0" topmargin="0"><form method="POST" action="envia1.asp"> <table border="0" width="43%"> <tr><td> </td><td> </td><td> </td></tr><tr><td colspan="3"><div align="center" class="style1">Envie sua mensagem </div></td></tr><tr><td width="14%"> </td> <td width="24%"><div align="left"><span class="style4">Seu Email </span></div></td> <td width="62%"><div align="right"><input name="from" type="text" id="from" size="43" maxlength="40"></div></td> </tr> <tr><td width="14%"> </td> <td width="24%"><div align="left"><span class="style4">Assunto</span></div></td> <td width="62%"><div align="right"><input name="subject" type="text" size="43" maxlength="40"></div></td> </tr> <tr><td width="14%"> </td> <td width="24%"><div align="left"><span class="style4">Mensagem</span></div></td> <td width="62%"><div align="right"><textarea rows="5" name="body" cols="40"> </textarea></div></td></tr><tr><td> </td><td> </td><td><div align="right" class="style5">meuemail@provedor.com.br</div></td></tr><tr><td> </td><td> </td><td><label><input name="Enviar" type="submit" id="Enviar" value="Enviar"></label></td></tr></table></form></body></html>

 

envia1.asp

 

<% if request("botao") = "enviar" then 'Create the mail object Set objMail = 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") = 25objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objMail.Configuration = objCDOSYSCon'Set key properties objMail.From = request.form("from")objMail.To = "igor.fv@gmail.com"objMail.Subject= request.form("subject") objMail.TextBody = request.form("body") objMail.Send 'Send the email return = objMail.Send 'Notify user if return <> 0 then response.write "Erro: " & return else response.write "Mensagem enviada com sucesso." end if 'Clean-up mail object Set objMail = Nothing Set objCDOSYSCon = Nothing end if %>

Vlw...

 

Att;

Igor

Compartilhar este post

Link para o post
Compartilhar em outros sites

Davide Ricardo    0

Davide Ricardo
Postado

olha eu tambem estou a ter uns probelmas nisso..

o meu está assim

 

'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.microsoft.com/cdo/configuration/smtpserver") = "localhost"'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 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 = "eu@MeuDominio.com.br"'e-mail do destinatário objCDOSYSMail.To = "destinatario@dominio.com.br"'assunto da mensagem objCDOSYSMail.Subject = "Teste do CDOSYS"'conteúdo da mensagem objCDOSYSMail.TextBody = "Teste do componente CDOSYS"'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = "<b>Teste do componente CDOSYS</b>"'objCDOSYSMail.fields.update'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "<script>history.back(1);alert('E-mail enviado para destinatario@dominio.com.br ...');</script>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Igor, beleza?

 

No envia1.asp faça assim só para testar...

Apague tudo e faça isso:

 

if request("botao") = "enviar" then Response.Write("AEEE")ElseResponse.Write("zuou")End IF
e me fale o que retornou!

 

 

Abraços

 

Davide,

o que esta acontecendo com o Seu?

Algum erro?

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor FV    0

Igor FV
Postado

Amigo SHUMI, beleza?Ai essa condição ta retornando ZUOU....hehehe.......... isso quer dizer que não tá retornando a ação do BT do form.... e com isso não executa as rotinas da pag ENVIA1.ASP........ Ai só uma pergunta... o componente CDOSYS funciona no Windows XP PRO?, pois que eu saiba é que ele é do Win 2003 e 2000....Vlw...

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Se escreveu zuou é que o valor de request("botao") esta diferente que ENVIAR.Verifique o valor que está vindo do request("botao").e o CDOSYS é um componente CDO (Collaboration Data Objects) usado para envio de e-mails no Windows Server 2003. Ele é parte integrante do IIS6, e foi criado para substituir o antigo componente Cdonts, para envio de e-mails através do SMTP do novo IIS. Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Davide Ricardo    0

Davide Ricardo
Postado

não eu estou a trabalhar directamente com o servidor..mas o administrador do servidor disse-me que é assim.. LOCALHOST..Porque eu por exemplo na página tenho a funcionar o do WEB WIZ FORUMS...e ele envia mails para a conta do pessoal registado.. e eu no server colokei so localhost..dá para entender??

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito