Suporte - Componentes ASP - ASPMail
http://www.mco2.com.br/suporte_componentes_aspmail.asp
Site: www.mco2.com.br
E-mail: atendimento@mco2.com.br
Telefone: (11) 2239-1442
11/03/2010 12:20
Fabricante: ServerObjects Inc (www.serverobjects.com)
Documentação: http://www.serverobjects.com/products.htm
Exemplo de implementação:
Dim objMail
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.RemoteHost = "smtp.dominio.com.br"
objMail.FromName = "Nome do Remetente"
objMail.FromAddress = "remetente@dominio.com.br"
objMail.AddRecipient "Nome do Destinatário", "destinatario@dominio.com.br"
objMail.Subject = "Assunto da mensagem"
objMail.BodyText = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."
If objMail.SendMail Then
Response.Write "E-mail enviado..."
Else
Response.Write "Erro no envio de e-mail: " & objMail.Response
End If
Set objMail = Nothing