Tópico - Substituindo o componente CDONTS pelo Persits.MailSender

   
    Entrar       Download        
ITM NETWORKS - Forum - Índice » Formulários, Componentes ASP, Fuções PHP e muito mais » Substituindo o componente CDONTS pelo Persits.MailSender
Novo tópico  Responder tópico Exibir tópico anterior :: Exibir próximo tópico 
Substituindo o componente CDONTS pelo Persits.MailSender
MensagemEnviada: Sex Abr 07, 2006 12:39 am Responder com citação
rodrigo
Administrador
Administrador
 
Registrado: 28/08/05
Mensagens: 368
Localização: São Vicente/SP


Substituindo o componente CDONTS pelo Persits.MailSender

O componente CDONTS é um dos componentes responsáveis pelo envio de e-mails e/ou formulários para uma determinada conta de e-mail utilizando a linguagem ASP. Este componente foi desenvolvido para trabalhar com o Windows 2000 mas com algumas configuracoes adicionais ele tambem funciona nos servidores Windows 2003 que é a versão que utilizamos nos servidores da ITM NETWORKS.

Com o crescimento dos SPAMMERS, os melhores servidores da internet estão desinstalando este componente porque ele não oferece o recurso de autenticacao de SMTP (envio de e-mails autenticados).

A ITM NETWORKS também utiliza servidores de e-mail com SMTP autenticado.

Servidores de E-Mail com SMTP não autenticados são considerados Open Relays, ou seja, qualquer um pode enviar qualquer e-mail na quantidade que desejar sendo SPAM ou não, sendo cliente ou não da empresa que tem este servidor não autenticado.

Até 02/04/2006 a ITM NETWORKS além de ter os servidores autenticados, mantinhamos um pequeno servidor não autenticado somente para o uso da função mail() do php e o componente CDONTS, após essa data desativamos totalmente este servidor não autenticado, evitando assim problemas de SPAM, de clonagem de e-mails entre outros problemas.

Sendo assim a função mail() do php e o CDONTS do ASP não funcionam mais em nossos servidores.

Isso nao significa que seu script nao vai funcionar mais, temos o codigo substituto tanto para a funcao mail() quanto para o CDONTS.

Alguns scripts feitos em ASP já tem a opção de utilizar servidores de SMTP autenticados sem a necessidade de alterar o script, apenas acesse a area administrativa de seu script e configure o servidor smtp "mail.seudominio.com.br" , email "seuemail@seudominio.com.br" e senha "senhadoseuemail".

Segue abaixo o codigo necessario para voce substituir o componente CDONTS de seu script pelo Persits.MailSender:

Exemplo do codigo que vc deve estar utilizando com o CDONTS em seu Script:
Código:
<%
Dim cMail
Set cMail = Server.CreateObject("CDONTS.NewMail")
cMail.From = "emailorigem@dominioorigem.com.br"
cMail.To = "emaildestino@dominiodestino.com.br"
cMail.Subject = "Assunto"
cMail.BodyFormat = 0
cMail.MailFormat = 0
cMail.Body = "Mensagem"
cMail.Send
Set cMail = Nothing
%>


Alteração necessaria para substituir o CDONTS pelo componente Persits.MailSender:
Código:
<%
Dim cMail
Set cMail = Server.CreateObject("Persits.MailSender")
cMail.IsHTML = True
' dados para autenticacao no servidor SMTP
cMail.Host = "mail.seudominio.com.br"
cMail.Username = "seuemail@seudominio.com.br"
cMai.Password = "senhadoseuemail"

' email de origem
cMail.From = "emailorigem@dominioorigem.com.br"
cMail.FromName = "Nome do dono do email"

' email de destino
cMail.AddAddress "emaildestino@dominiodestino.com.br"

' assunto da mensagem
cMail.Subject = "Assunto"

' conteudo da mensagem mensagem
cMail.Body = "Mensagem"

On Error Resume Next
' enviar email
cMail.Send

' codigo opcional para exibir mensagem de sucesso ou nao ao enviar o email
If Err <> 0 Then
   Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>"
End If

If Err = 0 Then
   Response.Write("<H2>Obrigado, seu e-mail foi enviado com sucesso!</H2>")
End If

Set Mail = Nothing
%>


Basicamente é isso.

Lembre-se também das regras antispam dos servidores da ITM NETWORKS:

- Quando o email de ORIGEM (FROM) for de fora do nosso servidor, o email de DESTINO (AddAddress) deve ser obrigatoriamente de dentro do nosso servidor;

- Quanto o email de DESTINO (AddAddress) for de fora do nosso servidor, o email de ORIGEM (FROM) deve ser obrigatoriamente de dentro do nosso servidor.

QQ duvida estamos a disposição EXCLUSIVAMENTE para os clientes da ITM NETWORKS em qualquer um dos meios de comunicação disponíveis no endereço http://itm.guru/suporte


Editado pela última vez por rodrigo em Qui Nov 05, 2015 3:33 pm; num total de 2 vezes

_________________
Atendimento

http://www.itmnetworks.com.br
Exibir perfil de usuários Enviar mensagem privada Visitar o website do usuário
Adaptando a Loja VirtuaStore para uso de SMTP Autenticado
MensagemEnviada: Ter Out 03, 2006 4:30 pm Responder com citação
rodrigo
Administrador
Administrador
 
Registrado: 28/08/05
Mensagens: 368
Localização: São Vicente/SP


Olá,

Segue abaixo as alterações necessárias para fazer a loja virtual VirtuaStore funcionar em servidores de SMTP autenticados utilizando o componente Persits.MailSender:

Abra o arquivo: config.asp

Localize as linhas:
Citação:
'## Escolha o componente e desmarque o comentário
'Componente_usado = "AspEmail"
'Componente_usado = "AspMail"
'Componente_usado = "AspQmail"
'Componente_usado = "CDONTS"
'Componente_usado = "JMail"


Altere para:
Citação:
'## Escolha o componente e desmarque o comentário
Componente_usado = "AspEmail" 'Este é o componente Persits.MailSender
'Componente_usado = "AspMail"
'Componente_usado = "AspQmail"
'Componente_usado = "CDONTS"
'Componente_usado = "JMail"


Veja q nas linhas acima, desmarcamos a linha Componente_usado = "AspEmail"

Agora vamos para o próximo arquivo.

Abra o arquivo: email.asp

Localize as linhas:
Citação:
Case "AspEmail"
on error resume next
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = Host
eObjMail.From = Email
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem
eObjMail.Send
Set eObjMail = nothing


Acrescente no lugar das linhas acima descritas o seguinte código:
Citação:
Case "AspEmail" 'Componente Persits.MailSender
on error resume next
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = "mail.seusite.com.br" 'tem que ser de dentro da itmnetworks
eObjMail.Username = "seuemail@seusite.com.br" 'tem que ser de dentro da itmnetworks
eObjMail.Password = "senhadoseuemail" 'tem que ser de dentro da itmnetworks
eObjMail.From = Email 'Se o From for de dentro da ITM NETWORKS o AddAddress pode ser externo
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail 'Se o From for de fora da ITM NETWORKS o AddAddress tem que ser de dentro da itmnetworks
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem
eObjMail.Send
Set eObjMail = nothing


Pronto, só isso Smile

_________________
Atendimento

http://www.itmnetworks.com.br
Exibir perfil de usuários Enviar mensagem privada Visitar o website do usuário
Adaptando o Newsletter MailerFree p/SMTP autenticado
MensagemEnviada: Qui Dez 14, 2006 3:54 pm Responder com citação
rodrigo
Administrador
Administrador
 
Registrado: 28/08/05
Mensagens: 368
Localização: São Vicente/SP


Olá,

Nosso painel de controles HELM oferece a autoinstalação do script Mailer Free, que é muito útil para o envio de newsletters.

Para instalar:

1o. crie via FTP ou via Gerenciador de Arquivos uma pasta dentro do WWWROOT do seu site para instalar o script, exemplo: newsletter
2o. acesse o painel HELM
3o. clique em Dominios
4o. clique em cima do nome do seu site
5o. clique em Scripts & Aplicações
6o. escolha Mailer Free
7o. escolha o diretorio onde sera instalado
8o. clique em Instalar

Depois siga as instruções do próprio script.


Contudo, para ele funcionar em nossos servidores, é necessário efetuar uma alteração no código, pois trabalhamos apenas com servidores de SMTP com autenticação.

Segue abaixo as alterações necessárias para fazer o gerenciador de NewsLetter Mailer Free funcionar em servidores de SMTP autenticados utilizando o componente Persits.MailSender:

Dentro das configurações do Mailer Free escolha o componente ASPemail no lugar de CDONTS.

Depois abra o arquivo email_list_function.asp que esta dentro do diretorio includes.

Localize neste arquivo as linhas:
Código:
Set objASPemail = Server.CreateObject("Persits.MailSender")

With objASPemail

   .Host = session("mail_server")
   .Port = session("mail_server_port")


Adicione as linhas:
Código:
   .Username = "seuemail@seudominio.com.br"
   .Password = "senhadoseuemail"




Depois de alterado o código entao ficará assim:
Código:
Set objASPemail = Server.CreateObject("Persits.MailSender")

With objASPemail

   .Host = session("mail_server")
   .Port = session("mail_server_port")
   .Username = "seuemail@seudominio.com.br"
   .Password = "senhadoseuemail"


Basicamente é isso.

Lembre-se de enviar newsletter com responsabilidade.

Para clientes Revenda, lembre-se de habilitar este recurso no plano de hospedagem do seu cliente:
1o. No menu principal da revenda clique em Planos de Hospedagem
2o. clique em cima do plano que deseja habilitar
3o. clique em limites do plano
4o. clique em Application Pack Resources
5o. procure Mailer Free e coloque o número de instalações q vc vai permitir para o cliente q tiver este plano de hospedagem
6o. clique em gravar

Agora vc ou seu cliente pode instalar diretamente do painel de controles HELM.

QQ dúvida entre em contato com o suporte técnico: http://itm.guru/suporte

_________________
Atendimento

http://www.itmnetworks.com.br
Exibir perfil de usuários Enviar mensagem privada Visitar o website do usuário
Substituindo o componente CDONTS pelo Persits.MailSender
  ITM NETWORKS - Forum - Índice » Formulários, Componentes ASP, Fuções PHP e muito mais
Você não pode enviar msgs novas neste fórum
Você não pode responder msgs neste fórum
você não pode editar suas msgs neste fórum
Você não pode excluir suas msgs neste fórum
Você não pode votar em enquetes neste fórum
Todos os horários são GMT - 3 Horas  
Página 1 de 1  

  
  
 Novo tópico  Responder tópico  

ITM NETWORKS - Hospedagem de Sites Linux cPanel e Revenda de Hospedagem de Sites Linux cPanel
phpBB versão em português traduzida por Gustavo Montes e corrigida por Rodrigo Adr. Araujo

Powered by phpBB © phpBB Group