Ir para conteúdo

POWERED BY:

Arquivado

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

EduardoFonseca

CDO.Message

Por , em ASP Clássico

Recommended Posts

EduardoFonseca    0

EduardoFonseca
Postado

Bom dia, Ja estou dois dias tentando fazer isto funcionar e não consigo, este script abaixo ja foi mudificado varias vezes e sem solução, e o pior que quem passou este exemplo foi o provedor. Vocês podem me ajudar ? Muito obrigado mesmo.Eduardo<% 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") = "mail.choicecomunic.com.br"objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.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 = "meuemail@provedor.com.br"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 %> <!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="cdosys.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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

está dando algum erro???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ratu    0

Ratu
Postado

troque istoobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 por objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1agora naum me pergunte pq, mas pra mim soh funciona assim!!

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