Visual dBase Example

---

Here's actual working code from Visual dBase that sends mail through VIM/MAPI/VINES/MHS:

idsMail = NEW OLEAUTOCLIENT ('IDSMailInterface.Server') 
idsMail.ObjectKey = "ABC123"   
idsMail.AddRecipientTo ("Jim Smith") 
idsMail.AddRecipientCc ("Mary Brown, Doug Williams") 
idsMail.Subject = "Meeting Agenda" 
idsMail.AddAttachment ("C:\MEETINGS\AGENDA.DOC") 
idsMail.Message = "Here is the agenda for the weekly meeting." 
idsMail.Send 

Note that we didn't need to specify the type of E-mail system we wished to use. IDSMail automatically determined the type of E-mail present on the workstation, and sent the message accordingly.

Here is a similar example for SMTP (Internet mail):

 
idsMail = NEW OLEAUTOCLIENT ('IDSMailInterface.Server') 
idsMail.ObjectKey = "ABC123"
idsMail.MailSystem =IDSM_SYS_SMTP_POP
idsMail.PostOffice = "myprovider.com"   
idsMail.AddRecipientTo ("Jim Smith ")
idsMail.AddRecipientCc ("Mary Brown , dougw@acme.com")
idsMail.Subject = "Meeting Agenda" 
idsMail.AddAttachment ("C:\MEETINGS\AGENDA.DOC") 
idsMail.Message = "Here is the agenda for the weekly meeting." 
idsMail.Send