Marcos,
You can use our IDSMail component to send mail through any mail system
(SMTP/POP3, MAPI, VIM, MHS, and Banyan VINES) code like this:
Dim idsMail as Object
Set idsMail = CreateObject("IDSMailInterface.Server")
idsMail.ObjectKey = "ABC123"
idsMail.MailSystem =IDSM_SYS_SMTP_POP
idsMail.SMTPServer = "myprovider.com"
idsMail.NewMessage
idsMail.Subject = "Meeting Agenda"
idsMail.Message = "Here is the agenda for the weekly meeting."
idsMail.AddAttachment "C:\MEETINGS\AGENDA.DOC"
idsMail.Send
Info at http://www.intuitive-data.com
--
Regards,
Eric June
Intuitive Data Solutions
--------- We Make OLE Servers Intuitive --------------
Intuitive Data Solutions fax: (408) 776-1267
Send/Rcv Email *EASILY* through SMTP/POP, VIM, MAPI,
MHS & VINES http://www.intuitive-data.com/idsmail.htm
------------------------------------------------------