Jump to content


  • Content Count

  • Joined

  • Last visited

Community Reputation

11 Good

Technical Information

  • Delphi-Version
    Delphi 10.3 Rio

Recent Profile Visitors

340 profile views
  1. sh17

    Sending email and compose via Outlook

    Yes, definitely in Office 365.
  2. sh17

    Sending email and compose via Outlook

    Not very different TMailOutlook = class(TObject) private const olMailItem = $00000000; private class function HaveActiveOleObject(const ClassName: string): boolean; public class procedure Execute(const _To,_ToCC,_ToBCC,_Subject,_Body,_Attachment : String); end; { TMailOutlook } class procedure TMailOutlook.Execute(const _To, _ToCC, _ToBCC, _Subject, _Body,_Attachment: String); var Outlook: OleVariant; MailV: Variant; begin if not HaveActiveOleObject('Outlook.Application') then Outlook := CreateOleObject('Outlook.Application') else Outlook:= GetActiveOleObject('Outlook.Application'); MailV := Outlook.CreateItem(olMailItem); if (_To <> '') then MailV.To := _To; if (_ToBCC <> '') then MailV.BCC:= _ToBCC; if (_ToCC <> '') then MailV.CC:= _ToCC; MailV.Subject := _Subject; MailV.Body := _Body; if _Attachment <> '' then if FileExists(_Attachment) then MailV.Attachments.Add(_Attachment); MailV.Display; end; //// Want to Bypass exception so we check this without using the activex unit class function TMailOutlook.HaveActiveOleObject( const ClassName: string): boolean; var ClassID: TCLSID; Unknown: IUnknown; oleresult: HResult; begin ClassID := ProgIDToClassID(ClassName); oleResult:= GetActiveObject(ClassID, nil, Unknown); result:= Succeeded(oleResult); end;
  3. sh17

    Drag and Drop Component Suite for Delphi 10.4 Sydney

    I updated the repository.
  4. sh17

    CalDavServer and Client

    I've been looking for a long time. There is no Delphi CalDAV server component. SabreDAV seems to be the best basis to develop your own server. Or as the basis for a port.
  5. sh17

    CalDavServer and Client

    There is no CalDAV server implementation for Delphi. A good base is https://sabre.io/dav/ I don't know how complex a port to Delphi is. CalDAV Clients come from https://www.tmssoftware.com/site/cloudpack.asp and https://www.sync-components.com/dav-delphi-components/caldav
  6. sh17

    Delphi 10.3.3 - Indy - could not load root certificate

    patch available http://blog.marcocantu.com/blog/2020-january-rad1033-indyssl-patch.html?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+marcocantublog+(marcocantu.blog)
  7. not very handy, to many clicks, sry
  8. Is there a way to place the button above? I have to scroll down each time to make the button visible. Very annoying on a big screen.
  9. https://www.facebook.com/groups/137012246341854/search/?query=delphipraxis&epa=SEARCH_BOX https://www.facebook.com/groups/DelphiDevelopers/search/?query=delphipraxis&epa=SEARCH_BOX
  10. Very constant, I hope these are not just passive users. 🙂
  11. sh17

    Git UI tools

  12. you should repair the github-link in your article https://github.com/DelphiPackageManager/PackageManagerRFC
  13. sh17

    IDE Fix pack for Rio

    This patch has no effect for me (win32 compiler)
  14. sh17

    Import .NET Assembly

    you can check this https://github.com/3F/DllExport