FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour send emails
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
send emails
Posted: Mon Apr 24, 2023 06:42 AM

Hello friends,

What do you use to send emails when selfhosting from mod harbour?

Best regards,

Otto

Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: send emails
Posted: Mon Apr 24, 2023 12:43 PM
Hello,
Sometimes you can't see the forest for the trees. I can use the localhostsrv. which monitors a directory and executes the bat files that are placed in that directory.

I then send the emails with a Fivewin programme:
Best regards,
Otto
Code (fw): Select all Collapse
oOutlook = CREATEOBJECT( "Outlook.Application" )
oNameSpace := oOutlook:GetNameSpace( "MAPI" )

 oMail = oOutlook:CreateItem( olMailItem )

  oMail:Subject := cSubject+" - "+time()
   //oMail:Body := cText
   oMail:BodyFormat = olFormatHTML
   oMail:HTMLBody = memoread( cSaveAsFile )   
//oMail:Attachments:Add( AllTrim(cZip1) )
   oMail:To := cMailTo
   oMail:Display = .F.

Continue the discussion