send emails

[Otto]

Hello friends,
What do you use to send emails when selfhosting from mod harbour?
Best regards,
Otto

[Otto]

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: Select all  Expand view

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.