Ir para conteúdo

POWERED BY:

Arquivado

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

Marcos Coelho2

Tem como enviar email CDOSYS sem precisar email e senha?

Recommended Posts

Quero enviar um email em CODOSYS sem precisar desses dois campos

 

cdoConfig.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="usuario@servidor.com.br"

cdoConfig.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha"

 

 

tem como?

 

oq poderia colocar no lugar?

Compartilhar este post


Link para o post
Compartilhar em outros sites

to enviando localmente...

irei passar o codigo completo para que voces possam me ajudar..

<%
    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set cdoConfig = Server.CreateObject("CDO.Configuration")
    
    cdoConfig.Fields.Item(sch & "sendusing") = 2
    cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
    cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teste.com.br"
    cdoConfig.Fields.Item(sch & "smtpserverport") = 25
    cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
    cdoConfig.Fields.Item(sch & "sendusername") = "teste@teste.com.br" 'conta@seu_dominio
    cdoConfig.Fields.Item(sch & "sendpassword") = "teste"
    cdoConfig.fields.update
    Set cdoMessage = Server.CreateObject("CDO.Message")
    Set cdoMessage.Configuration = cdoConfig
    
    cdoMessage.From = "teste@teste.com.br" 'ENDEREÇO DE E-MAIL QUE SERÁ EXIBIDO NO FROM DA MENSAGEM
    cdoMessage.To = "teste@teste.com.br" 'ex: conta@seu_dominio, conta@uol.com.br, conta@hotmail
    cdoMessage.Subject = "Fale Conosco"
    
    strBody = "<B><FONT COLOR=BLUE>DADOS</FONT></B><BR><BR>" & _
                  "<B>Nome: </B>" & Request("nomerem") & "<BR>" & _
                  "<B>Email: </B>" & Request("emailrem") & "<BR>" & _
                  "<B>Assunto: </B>" & Request("assunto") & "<BR>" & _
                  "<B>Mensagem: </B>" & Request("recado") & "<BR>"
    
    
    cdoMessage.HTMLBody = strBody
    
    cdoMessage.Send
    
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
    
    'response.write "O e-mail foi processado e enviado com sucesso"
    %>

como ficaria esse codigo sem os dois campos que colokei no primeiro post

Compartilhar este post


Link para o post
Compartilhar em outros sites

o smtp ja esta funcionando

so colokei outro nome aki porque uso o do meu dominio

meu problema eh so o codigo mesmo

conseguir passar sem usar a senha e o email...

Compartilhar este post


Link para o post
Compartilhar em outros sites

ele gera algum erro ????

Compartilhar este post


Link para o post
Compartilhar em outros sites

na verdade nao consegui ainda oq estou querendo

dakele jeito q eu colokei funciona certo

so que eu quero colocar sem akeles campos de email e de senha

mas isso eh pra outro site

o codigo q eu colokei funciona

oq tenho que mudar no codigo que colokei que ja funciona pra tira esses dois campos

cdoConfig.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="usuario@servidor.com.br"

cdoConfig.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha"

e continuar funcionando???

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você também tem que remover a linha

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

 

Pois ela exige autenticação do SMTP.

 

Você tem que configurar seu servidor SMTP para não exigir autenticação, caso ele exija.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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