FiveTech Support Forums

function mailtest() 
   local oMail 
   local cHost          := 'mail.myhost.com' 
   local cPopServer     := cHost 
   local lNeedsAuth     := .f. 
   local nPriority      := 0 // Normal (Default) 
   local nSensitivity   := 0 // Normal (Default) 
   local nNotify        := 0 // None (Default) 
   local lSentOk 
   local cSubject 
   local cText 
   local cSendTo        := 'gale.ford@wwrowland.com,help.desk@wwrowland.com' 
   local cMailFrom      := 'me@myhost.com' 

   oMail := CreateObject("OSSMTP.SMTPSession") 
   oMail:Server := cHost 
   oMail:RaiseError := .f. 

   if lNeedsAuth 
      oMail:AuthenticationType := 2 
      oMail:Password    := 'password' 
      oMail:Username    := 'administrator@myhost.com' 
      oMail:ReplyTo     := 'me@myhost.com" 
      oMail:POPServer   := cPopServer 
   else 
      oMail:AuthenticationType := 0  // 0 = no authentication 
   endif 
   oMail:Importance  := nPriority 
   oMail:Sensitivity := nSensitivity 

   // Needs comma seperator so if someone used semicolon change them to commas 
   oMail:SendTo := trim(strtran( cSendTo, ';', ',' )) 
   oMail:MailFrom := cMailFrom 

   oMail:MessageSubject := 'My test subject' 
   oMail:MessageText := 'Body of email.' 

   // Attachements ********************************* 
   aFiles := { 'c:\autoexec.bat', 'c:\config.sys' } 

   for nCounter := 1 to len( aFiles ) 
      oAttachment := CreateObject("OSSMTP.Attachment") 
      oAttachment:FilePath = aFiles[ nCounter ] 
      oAttachment:AttachmentName = cFileNoPath( aFiles[ nCounter ] ) 
      if file( aFiles[ nCounter ] ) 
         oMail:Attachments:add( oAttachment ) 
      endif 
   next 
   // Attachements ********************************* 

   oMail:SendEmail() 
   if upper( oMail:Status ) = 'ERROR' 
      lSentOk := .t. 
   else 
      lSentOk := .f. 
   endif 
   oMail := nil 
return( lSentOk )