 | Usando o componente CDOSYS com o SMTP autenticado |  |
 Enviada: Sex Set 22, 2006 3:37 pm |
 |
|
| rodrigo |
| Administrador |
|
| |
| Registrado: 28/08/05 |
| Mensagens: 372 |
| 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 |
|
|
|
|
|
|
