.
 
    Entrar       Download        
ITM NETWORKS - Forum - Índice » Formulários, Componentes ASP, Fuções PHP e muito mais » Usando o componente CDOSYS com o SMTP autenticado
Novo tópico  Responder tópico Exibir tópico anterior :: Exibir próximo tópico 
Usando o componente CDOSYS com o SMTP autenticado
MensagemEnviada: Sex Set 22, 2006 3:37 pm Responder com citação
rodrigo
Administrador
Administrador
 
Registrado: 28/08/05
Mensagens: 326
Localização: São Vicente/SP


UTILIZANDO O CDOSYS PARA ENVIAR MENSAGENS COM SERVIDORES DE SMTP AUTENTICADO

O CDOSYS é a relação nova e melhorada do Microsoft CDONTS para envio de e-mail, oferecendo todas as mesma funcionalidades acrescentando-se a opção de autenticar no servidor de SMTP.

Segue abaixo um exemplo:

Código:
<%
Dim objCDOSYSMail
Dim objCDOSYSCon
'CRIA A INSTÂNCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seudominio.com.br"

'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'PORTA DO CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "seuemail@seudominio.com.br"

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Senha do seu E-mail"

'TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon

'NOME DO REMETENTE, E-MAIL DO REMETENTE
objCDOSYSMail.From = "SEU NOME <seuemail@seudominio.com.br>"

'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = "NOME DO DESTINO <emaildestino@dominiodestino.com.br>"

'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = "Teste do CDOSYS"

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Teste do componente CDOSYS"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
'objCDOSYSMail.HtmlBody = "<h1>Teste do componente CDOSYS</h1>"

'ENVIA A MENSAGEM
objCDOSYSMail.Send

'DESTRÓI OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.write "Mensagem Enviada..."
%>


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

_________________
Atendimento

http://www.itmnetworks.com.br
Exibir perfil de usuários Enviar mensagem privada Visitar o website do usuário
Usando o componente CDOSYS com o SMTP autenticado
  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 Windows e Revenda de Hospedagem Windows
phpBB versão em português traduzida por Gustavo Montes e corrigida por Rodrigo Adr. Araujo

Powered by phpBB © phpBB Group