Criando seu próprio formail em CDontSys [ASP]

[Skayler]

Tutoriais de ASP - Criando seu próprio formail em CDontSys

==================================================================================================

 Olá galera, novamente estou aqui com mais um dos meus tutoriais.
Hoje vamos aprender a criar um formail ultilizando CDontsys, componente de e-mail ultizado no Windows Server 2003 para envio de e-mails.
Se você como eu também tem um site hospedado na 3t Soluções ou no The Planet este tutorial será de grande ajuda.

Vamos ao tutorial...


Iniciando

1. Para começar temos que criar o objeto CDONTSYS que irá enviar nosso e-mail. Para isso você vai usar está linha

Code Select Expand

Set objNewMail = Server.CreateObject("CDO.Message")
1.1. Agora vamos iniciar a configuração do objeto com um SET

Code Select Expand

Set Configuracao = iConf.Fields
Set iConf = Server.CreateObject ("CDO.Configuration")
Set Configuracao = iConf.Fields Set iConf = Server.CreateObject ("CDO.Configuration")

Configurando o objeto CDONTSYS

São duas linhas básicas para configuração do objeto Cdontsys, a linha de configuração da porta de e-mail e a linha de configuração do endereço de smtp do seu servidor de e-mail. Vamos a elas:

Code Select Expand

'Smtp do servidor de e-mails
Configuracao("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.SEUSITE.com"
Nesse exemplo o numero que a porta de smtp foi configurada foi 2, está configuração é para quem tem o site hospedado na 3t solucoes (the planet). Normalmente a porta smtp é a 25 em outros servidores.

obs: Não se importe com os endereços da microsoft na frente das configurações, deixe eles como estão, apenas configure o que está após o sinal de =

Existem mais três linhas para configuração, mas você só irá usar elas caso seu servidor de e-mail exiga auntenticação segura para smtp. São elas:

Code Select Expand

'Configuração de autenticação
Configuracao("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Nome do usuário
Configuracao("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nome"
'Senha
Configuracao("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
Agora vamos atualizar as configurações do componente. Para isto use está linha:

Code Select Expand

objNewMail.From = "REMETENTE@DOEMAIL.COM"
objNewMail.To = "PARAQUEM@VAIOEMAIL.COM"
objNewMail.Bcc = "PARAQUEM@VAIACOPIAOCULTA.COM"
objNewMail.Subject = "ASSUNTO DO EMAIL"
Agora vamos ao texto do e-mail:

Code Select Expand

objNewMail.TextBody = "TEXTO DO E-MAIL"
Agora vamos fechar o objeto:

Code Select Expand

objNewMail.Send
Set iConf = Nothing
No final nosso código ficará assim:



==================================================================================================

Autor/Fonte:    Norivan Oliveira
Fonte: Mr.Designers


[]'s


Skayler