JOP-AL

Objects/Codeunits

Codeunit 5324 Exchange Service Setup

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
System.Integration
Versions
17-28

Procedures, 1

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/System/Exchange/ExchangeServiceSetup.Codeunit.al27 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.Integration;

using Microsoft.CRM.Outlook;

codeunit 5324 "Exchange Service Setup"
{

    trigger OnRun()
    begin
    end;

    procedure Store(ClientID: Guid; CertificateThumbprint: Text[40]; AuthenticationEndpoint: Text[250]; ExchangeEndpoint: Text[250]; ExchangeResourceUri: Text[250])
    var
        ExchangeServiceSetup: Record "Exchange Service Setup";
    begin
        ExchangeServiceSetup.Init();
        ExchangeServiceSetup."Azure AD App. ID" := ClientID;
        ExchangeServiceSetup."Azure AD App. Cert. Thumbprint" := CertificateThumbprint;
        ExchangeServiceSetup."Azure AD Auth. Endpoint" := AuthenticationEndpoint;
        ExchangeServiceSetup."Exchange Service Endpoint" := ExchangeEndpoint;
        ExchangeServiceSetup."Exchange Resource Uri" := ExchangeResourceUri;
        if not ExchangeServiceSetup.Insert() then
            ExchangeServiceSetup.Modify();
    end;
}