<%
Dim objMailer 'Mailer control
'create instance of Mailer control
Set objMailer = Server.CreateObject("Dundas.Mailer")
'set Mailer control properties and collection items
objMailer.TOs.Add "mignoni@seromtel.com.br"
objMailer.FromAddress = "vendas@credilon.com.br"
objMailer.Priority = 1
objMailer.Subject = "PROPOSTA"
objMailer.SMTPRelayServers.Add "mail.ldnet.com.br"
objMailer.HTMLBody = " | CONTRATO |
| De: | PropComp | | Para: | Credilon | | Data de Envio: | 26/10/1978 | | O contrato foi preenchido. | |
| |
CREDILON - Socidade de Crédito ao Microempreendedor
Email: credilon@credilon.com.br
"
objMailer.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here
Set objMailer = Nothing
%>