[Resolvido] Envio de email com CDONTS (CDOSYS)

[AndreLuizWeb 0]

Olá!

 

Seguinte, esse componente de envio de email dá erro quando o email possui "-" no meio?

 

Por exemplo:

andre-luiz@gmail.com (dá erro no envio)

 

Pelo menos aqui no servidor está assim, alguém poderia me esclarecer se isso é problema no componente?

 

O código:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
            Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aiec.br"
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
            objCDOSYSCon.Fields.update

            Set objCDOSYSMail.Configuration = objCDOSYSCon

            objCDOSYSMail.From = "andre-rodrigues@aiec.br"
            objCDOSYSMail.To = "secretaria@aiec.br"
            objCDOSYSMail.Subject = "Obrigado"
            objCDOSYSMail.HtmlBody = "bla bla bla"

            objCDOSYSMail.Send

            Set objCDOSYSMail = Nothing
            Set objCDOSYSCon = Nothing

Segundo o código a cima, diz que "objCDOSYSMail.From" está com formato inválido. Quando eu coloco "andrerodrigues@aiec.br", (Sem o traço), funciona perfeitamente, independente se o email existe ou não.

 

Fico no aguardo.

Abraços!

[Patrique 0]

Veja aqui

 

http://forum.imasters.com.br/index.php?/topic/348935-envio-de-email-com-gmail/

 

esse vai certinho.

 

 

Para o gmail aceitar tem que especificar portas e outras configs, veja no link ai que tem tudo.

[xanburzum 169]

e este email com traço realmente existe !?!,

e só para teste faça assim

 

strFrom  = "andre-rodrigues@aiec.br"
'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado
'para envio de Spam
aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
objCDOSYSMail.From = strFrom 

[hargon 64]

Informe dessa forma e poste o resultado:

objCDOSYSMail.From = "Andre <andre-rodrigues@aiec.br>"

objCDOSYSMail.To = "Secretaria <secretaria@aiec.br>"

[LostSoul 0]

Informe dessa forma e poste o resultado:

objCDOSYSMail.From = "Andre <andre-rodrigues@aiec.br>"

objCDOSYSMail.To = "Secretaria <secretaria@aiec.br>"

 

Cara eu tbm estou com problema no form, eu uso o componente CDOSYS e quando clico para enviar o e-mail, aparece uma tela com o símbolo do meu HOST dizendo que não permitido esse método.

[xanburzum 169]

verifique se as configurações no server esteja correta

[Patrique 0]

Gente, tem que verificar tb se a porta do smtp esta correta, entre tb em contato com a hospedagem e solicite os dados como endereço smtp e porta.

[xanburzum 169]

deixa ele padrão

 

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Nome ou endereço IP do servidor SMTP remoto
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
' porta do Server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update

[LostSoul 0]

deixa ele padrão

 

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Nome ou endereço IP do servidor SMTP remoto
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
' porta do Server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update

Eu só fiz o preenchimento conforme mostrava no script, veja só, só substituí.

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino


meuservidorsmtp = "smtp.nordesteaventura.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "contato@nordesteaventura.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "minhasenha" ' senha da conta de e-mail
emailorigem = "contato@nordesteaventura.com.br" ' e-mail que indica de onde partiu a mensagem
emaildestino = "querosaber@nordesteaventura.com.br" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("campoEmail")

strBody = "Dados <br> <br>" & _
"Nome:"& Request("campoNome")& "<br>" & _
"E-Mail:"& Request("campoEmail")& "<br>" & _
"Assunto:"& Request("campoAssunto")& "<br>" & _
"Mensagem:"& Request("campoMensagem")

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.redirect("teste.html?msg=Enviado com Sucesso!")
%>

[xanburzum 169]

e agora esta funcionando ???

[LostSoul 0]

e agora esta funcionando ???

 

Então... Este código que postei eu já estava utilizando, não mudei nada! E mesmo assim não funciona!

[LostSoul 0]

 

e agora esta funcionando ???

 

Então... Este código que postei eu já estava utilizando, não mudei nada! E mesmo assim não funciona!

 

[RESOLVIDO] O problema estava em meu HOST.