Jump to content
marcelocardoso

cdosys locaweb

Recommended Posts

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By s3c0
      Prezados,
       
      Estou precisando consumir um JSON em ASP Classic, porém nunca me deparei com um resultado JSON desta maneira.
      {"Generation":{"@attributes":{"version":"3.3.0","timestamp":"1554501899"}},"Options":{"@attributes":{"tempFormat":"c","byteFormat":"auto_binary","datetimeFormat":"utc","refresh":"60000","threshold":"90"}},"Vitals":{"@attributes":{"Hostname":"WIN2K","IPAddr":"127.0.0.1","Kernel":"6.1.7600 (64-bit)","Distro":"Microsoft Windows Server 2008 R2 Enterprise","Distroicon":"WinVista.png","Uptime":"381618","Users":"0","LoadAvg":"","CPULoad":"0","SysLang":"Portuguese - Brazil (1046)","CodePage":"windows-1252","Processes":"58","OS":"WINNT"}},"Network":{},"Hardware":{"@attributes":{"Name":"VMware, Inc. VMware Virtual Platform"},"PCI":{"Device":[{"@attributes":{"Name":"PCI standard PCI-to-PCI bridge","Count":"2"}},{"@attributes":{"Name":"PCI Express standard Root Port","Count":"32"}},{"@attributes":{"Name":"Standard AHCI 1.0 Serial ATA Controller","Manufacturer":"Standard AHCI 1.0 Serial ATA Controller"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #2","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #3","Manufacturer":"Intel"}},{"@attributes":{"Name":"LSI Adapter, SAS 3000 series, 8-port with 1068","Manufacturer":"LSI"}},{"@attributes":{"Name":"Intel 82371AB\/EB PCI to ISA bridge (ISA mode)","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware SVGA 3D","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel(R) 82371AB\/EB PCI Bus Master IDE Controller","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware VMCI Bus Device","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel 82443BX Pentium(R) II Processor to PCI Bridge","Manufacturer":"Intel"}}]},"IDE":{"Device":{"@attributes":{"Name":"NECVMWar VMware SATA CD00 ATA Device"}}},"SCSI":{"Device":{"@attributes":{"Name":"VMware Virtual disk SCSI Disk Device","Capacity":"128849011200"}}},"CPU":{"CpuCore":[{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}}]}},"Memory":{"@attributes":{"Free":"1575329792","Used":"2719170560","Total":"4294500352","Percent":"63"},"Swap":{"@attributes":{"Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24"},"Mount":{"@attributes":{"MountPointID":"1","FSType":"swap","Name":"SWAP","Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24","MountPoint":"C:\\pagefile.sys"}}}},"FileSystem":{"Mount":[{"@attributes":{"MountPointID":"1","FSType":"","Name":"Removable Disk (3 1\/2 in.)","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"A:"}},{"@attributes":{"MountPointID":"2","FSType":"NTFS","Name":"Local Disk","Free":"16396288","Used":"128725663744","Total":"128742060032","Percent":"100","MountPoint":"C:"}},{"@attributes":{"MountPointID":"3","FSType":"","Name":"Compact Disc","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"D:"}}]},"MBInfo":{},"UPSInfo":{},"Plugins":{},"Errors":{}} Preciso pegar alguns valores desse resultado.
       
      Esses valores são CPULoad, Memory e Hard Disk.
       
      oJSON.loadJSON("http://127.0.0.1/xml.php?plugin=complete&json") 'Loop through collection For Each dados In oJSON.data("Vitals") Set this = oJSON.data("Vitals").item(dados) processador = this.item("CPULoad") Next For Each dados In oJSON.data("Memory") Set this = oJSON.data("Memory").item(dados) memoria = this.item("Total") Next For Each dados In oJSON.data("FileSystem") Set this = oJSON.data("FileSystem").item(dados) if this.item("MountPointID") = "2" then hd = this.item("Percent") end if Next  
      Tentei de algumas formas, mas sem sucesso.
       
      Alguém teria alguma idéia de como posso pegar esses valores?
       
      Agradeço a atenção de todos.
    • By s3c0
      Prezados,
       
      boa noite. Estou precisando de um help!
       
      possuo um script que retorna o seguinte XML:
       
      <tns:phpsysinfo xmlns:tns="http://phpsysinfo.sourceforge.net/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://phpsysinfo.sourceforge.net/ phpsysinfo3.xsd"> <Generation version="3.3.0" timestamp="1554324372"/> <Options tempFormat="c" byteFormat="auto_binary" datetimeFormat="utc" refresh="60000" threshold="90"/> <Vitals Hostname="WIN" IPAddr="127.0.0.1" Kernel="6.1.7600 (64-bit)" Distro="Microsoft Windows Server 2008 R2 Enterprise" Distroicon="WinVista.png" Uptime="204091" Users="0" LoadAvg="" CPULoad="0" SysLang="Portuguese - Brazil (1046)" CodePage="windows-1252" Processes="56" OS="WINNT"/> <Network/> <Hardware Name="VMware, Inc. VMware Virtual Platform"> <PCI> <Device Name="PCI standard PCI-to-PCI bridge" Count="2"/> <Device Name="PCI Express standard Root Port" Count="32"/> <Device Name="Standard AHCI 1.0 Serial ATA Controller" Manufacturer="Standard AHCI 1.0 Serial ATA Controller"/> <Device Name="Intel(R) PRO/1000 MT Network Connection" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #2" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #3" Manufacturer="Intel"/> <Device Name="LSI Adapter, SAS 3000 series, 8-port with 1068" Manufacturer="LSI"/> <Device Name="Intel 82371AB/EB PCI to ISA bridge (ISA mode)" Manufacturer="Intel"/> <Device Name="VMware SVGA 3D" Manufacturer="VMware, Inc."/> <Device Name="Intel(R) 82371AB/EB PCI Bus Master IDE Controller" Manufacturer="Intel"/> <Device Name="VMware VMCI Bus Device" Manufacturer="VMware, Inc."/> <Device Name="Intel 82443BX Pentium(R) II Processor to PCI Bridge" Manufacturer="Intel"/> </PCI> <IDE> <Device Name="NECVMWar VMware SATA CD00 ATA Device"/> </IDE> <SCSI> <Device Name="VMware Virtual disk SCSI Disk Device" Capacity="128849011200"/> </SCSI> <CPU> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> </CPU> </Hardware> <Memory Free="1720385536" Used="2574114816" Total="4294500352" Percent="60"> <Swap Free="3048210432" Used="685768704" Total="3733979136" Percent="18"> <Mount MountPointID="1" FSType="swap" Name="SWAP" Free="3048210432" Used="685768704" Total="3733979136" Percent="18" MountPoint="C:\pagefile.sys"/> </Swap> </Memory> <FileSystem> <Mount MountPointID="1" FSType="" Name="Removable Disk (3 1/2 in.)" Free="0" Used="0" Total="0" Percent="0" MountPoint="A:"/> <Mount MountPointID="2" FSType="NTFS" Name="Local Disk" Free="732983296" Used="128009076736" Total="128742060032" Percent="99" MountPoint="C:"/> <Mount MountPointID="3" FSType="" Name="Compact Disc" Free="0" Used="0" Total="0" Percent="0" MountPoint="D:"/> </FileSystem> <MBInfo/> <UPSInfo/> <Plugins/> <Errors/> </tns:phpsysinfo> tenho o seguinte código em ASP:
       
      <% url_server = "http://127.0.0.1/xml.php?plugin=complete" Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") Call xmlhttp.open("GET", url_server, false) Call xmlhttp.send() strRetorno = xmlhttp.responseText Set oXmlDom = Server.CreateObject("Msxml2.DOMDocument.3.0") oXmlDom.loadXML strRetorno Set oNodes = oXmlDom.selectNodes("tns:phpsysinfo/FileSystem/Mount") for each oNode in oNodes response.write "Cache " & oNode.selectSingleNode("Percent").Text next Set oXmlDom = Nothing %> ao tentar trazer alguns valores, sempre me retorna o seguinte erro:
       
      Erro de tempo de execução do Microsoft VBScript erro '800a01a8'
      Objeto necessário: 'oNode.selectSingleNode(...)'
       
      Preciso trazer os valores de:
      CPU
      Memory
      HD
       
      Alguém teria alguma dica de como consigo resolver?
       
      Agradeço a atenção de todos.
    • By laumello12
      Galera ajudinha
      Como faço para consumir um web service pronto em um projeto. Preciso só que ele busque no web service e traga na web 
      HELP
    • By alecarnero
      Eu fiz uma pagina de login SiteMaster.asp trabalha com uma pagina verify.asp , coloque ela como documento padrao , problema que sim
      o usuario ja tem gravada alguma pagina de antes ele consegue accesar sem pasar pela login page
       
      http://localhost/teste/barra.asp
       
      quem souber o nome das paginas consegue acceso direito  
       
      que tenho que agregar para somente accese qualquer pagina quem passo pelo login?
       
       
      Obrigado por qualquer orientaçao  
       
      Alejandro
       
       
       
       
       
       
       
       
       
       
    • By mmalainho
      Tenho um site em ASP nas línguas Português, Espanhol e Romeno.
      O serviço de hospedagem alterou o MYSQL ODBC para a versão 5.3 ANSI e agora não consigo fazer o update de texto em romeno (por exemplo Lecția 8 - Îmbunătățirea confortului mișcării corpului - Amortizarea )na base dados através de um formulário HTML.
       
      Tenho uma conexão para listar tudo sem problemas em todas as línguas mas fazer o insert/update não funciona em nenhuma das línguas com palavras acentuadas.
       
      conn.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3; charset=utf8; "

      Já experimentei retirar  charset=utf8; e assim consigo inserir/atualizar em português e espanhol, mas Romeno não.
      conniu.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3;"
         
       
      Versão do MySQL Versão do servidor: 5.1.73-community
      Charset: utf8_general_ci
      Tabela está também com utf8_general_ci
       
      Alguma sugestão ficaria muito grato
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.