-
Conteúdo Similar
-
.thumb.jpg.6d2448400c07192c7587b7e6a08fa29a.jpg)
Por marcelocardoso
Fala galera.
Não sei onde postar CDOSYS, então, postei aqui.
Vamos lá...
Quem já teve problemas para enviar email pelo CDOSYS no servidor LOCAWEB.
Utilizo sempre o mesmo script para diversos trabalhos e clientes... mas sempre quando tem algum hospedado lá, o erro é sempre no CDOSYS.
O script que fornecem, funciona em TEXTBODY, mas quando você coloca HTMLBODY, ele já não envia.
Já entrei em contato com o suporte, mas não consegui ainda.
No script, ele não dá erro, diz mensagem enviada, mas o email nunca chega...
CODE:
SET objCDOSYSMail = Server.CreateObject("CDO.Message") SET objCDOSYSCon = Server.CreateObject("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.teste.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 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") = "atendimento@teste.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "testesenha" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update cdoDE = campo_nome & " <"& campo_email &">" cdoPARA = campo_setor cdoASSUNTO = cdoASS cdoOCULTO = "teste@teste.com.br" cdoHTML = HTMLBODY SET objCDOSYSMail.Configuration = objCDOSYSCon 'objCDOSYSMail.BodyPart.Charset = "UTF-8" objCDOSYSMail.From = "atendimento@teste.com.br" objCDOSYSMail.ReplyTo = cdoDE objCDOSYSMail.To = cdoPARA objCDOSYSMail.Subject = cdoASSUNTO objCDOSYSMail.BCc = cdoOCULTO objCDOSYSMail.Cc = "" objCDOSYSMail.AddAttachment "" objCDOSYSMail.HtmlBody = cdoHTML objCDOSYSMail.Send ON ERROR RESUME NEXT IF NOT Err = "0" THEN Response.Write "Erro: " & Err ELSE Response.Write "Mensagem enviada com sucesso para: <strong>" & campo_email & "</strong>" END IF SET objCDOSYSMail = Nothing SET objCDOSYSCon = Nothing Alguém já teve problemas assim e resolver com HTMLBODY.
Utilizo este em outros servidores autenticados, mas lá não vai... em outros sim....
Obrigado.
-
Por fabiestiga
Olá tudo bem? Preciso de ajuda com um script. É para lembrar a senha para um usuário, via email, pegando a informação de um banco de dados em asp.
Retorna o seguinte erro:
CDO.Message.1 erro '80040220'
O valor de configuração "SendUsing" é inválido.
/lembrar_pass.asp, linha 75
Abaixo, em negrito a linha que está dando problema.
Sub SendPW(email, password)
Set cdomessage = Server.CreateObject("CDO.message")
cdomessage.From = "web@agilitybr.com.br"
cdomessage.To = email
cdomessage.Subject = "Lembrete de senha."
cdomessage.textBody = password & vbcrlf & vbcrlf & vbcrlf _
& "*** Mensagem Automatica ***"
cdoMessage.Send
Set cdoMessage = Nothing
End Sub
%>
-
