FAQ e Tutoriais: Hospedagem de Sites > ASP
Como enviar E-mail através do AspSmartMail com SMTP Autenticado

Abaixo segue um exemplo, de como utilizar o componente aspSmartMail da AspSmart com SMTP Autenteticado:

<%
Dim Mail
'CRIA A INSTÂNCIA COM O OBJETO ASPSMARTMAIL
Set Mail = Server.CreateObject("aspSmartMail.SmartMail")

'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br
Mail.Server = "smtp.hostsys.com.br"

'NOME DO REMETENTE
Mail.SenderName = "HOSTSYS"

'E-MAIL DO REMETENTE
Mail.SenderAddress = "suporte@hostsys.com.br"

'E-MAIL DO DESINATÁRIO, NOME DO DESINATÁRIO
Mail.Recipients.Add "suporte@hostsys.com.br", "HOSTSYS"

'CONFIGURA O E-MAIL QUE RECEBERÁ A RESPOSTA DESTA MENSAGEM
Mail.ReplyTos.Add "suporte@hostsys.com.br", "HOSTSYS"

'ASSUNTO DA MENSAGEM
Mail.Subject = "Teste do componente AspSmarterMail"

'CORPO DA MENSAGEM
Mail.Body = "Teste do componente AspSmarterMail"

'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O ContentType PARA text/html
Mail.ContentType = "text/plain"
Mail.Charset = "iso-8859-1"

'USUÁRIO PARA SMTP AUTENTICADO
Mail.Username = "suporte@hostsys.com.br "

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
Maill.Password = "Senha do E-mail"

'PORTA DO SERVIDOR SMTP
Maill.ServerPort = 587

'ENVIA A MENSAGEM
Mail.SendMail

'DESTRÓI O OBJETO
Set Mail = Nothing

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


Comentários (0)
Postar um novo comentário
 
 
Nome:
E-mail:
Comentários: