#DEFINE MAILITEM 0  
#DEFINE IMPORTANCELOW 0  
#DEFINE IMPORTANCEMORMAL 1  
#DEFINE IMPORTANCEHIGH 2  
    
oOutLookObject = CreateObject("Outlook.Application")  
oEmailItem = oOutLookObject.CreateItem(MAILITEM)  
    
WITH oEmailItem  
  .To = "''.phorum_html_encode('exp100@mail.local').''"
  .Subject = "Test"
  .Importance = IMPORTANCEMORMAL
  .Body = ""  
  .Attachments.Add(fullpath("c:\test.zip"))   
  .Save && Saves email to the outbox  
  .Send && Sends the email  
ENDWITH  
    
RELEASE oEmailItem  
RELEASE oOutLookObject