Informações adicionais: Site www.serverobjects.com
Exemplo de utilização:
<%
On Error Resume Next
Dim Mailer
err.clear
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
If Err.number <> 0 Then
Response.Write "Erro encontrado: " & Err.Description
Response.End
End If
Mailer.FromName = "Teste do site" ' Nome Remetente
Mailer.FromAddress= "seunome@seudomino.com.br" ' E-Mail Remetente
Mailer.RemoteHost = "127.0.0.1" '
Mailer.AddRecipient "Nome 1", "alguem1@seudomino.com.br" ' Nome e E-mail do destinatário
Mailer.AddCC "Nome 2", "alguem2@seudomino.com.br" ' Nome e E-mail para Cópia
Mailer.AddBCC "Nome 3", "alguem3@seudomino.com.br" ' Nome e E-Mail para Cópia Oculta
Mailer.Subject = "Teste de envio" 'Assunto do e-mail
Mailer.BodyText = "Mensagem de Teste !!!!" 'Corpo da mensagem
if Mailer.SendMail then
Response.Write "Mail enviado !!!"
else
Response.Write "Houve falha no envio. O erro foi " & Mailer.Response
end if
Set Mailer = Nothing
%>

Last Modified: 2004-12-06         Number of views: 2970

Print This

Save This

E-mail This

Talk About This ( 2008 )

Was this article helpful?   Yes No