Create Folder and Manage Folder using IMAP4/Exchange Web Service (EWS)/WebDAV in Delphi¶

unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, EAGetMailObjLib_TLB; // Add EAGetMail unit

type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

const
    MailServerPop3 = 0;
    MailServerImap4 = 1;
    MailServerEWS = 2;
    MailServerDAV = 3;
    MailServerMsGraph = 4;


var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    oClient: TMailClient;
    oServer: TMailServer;
    folders: IFolderCollection;
    i: integer;
    fd, folder: IImap4Folder;
begin
    try

        // To create folder with Exchange Web Service, please change
        // MailServerImap4 to MailServerEWS to MailServer.Protocol

        // To create folder email with Exchange WebDAV, please change
        // MailServerImap4 to MailServerDAV to MailServer.Protocol

        // Exchange Server supports POP3/IMAP4 protocol as well, but in Exchange 2007
        // or later version, POP3/IMAP4 service is disabled by default. If you don't want to use POP3/IMAP4
        // to download email from Exchange Server, you can use Exchange Web Service(Exchange 2007/2010 or
        // later version) or WebDAV(Exchange 2000/2003) protocol.

        // For Exchange Web Service/WebDAV, please ignore
        // Port property. But for Exchange Web Service, please set SSLConnection to True

        oServer := TMailServer.Create(Application);
        oServer.Server := 'imap4.emailarchitect.net';
        oServer.User := 'test@emailarchitect.net';
        oServer.Password := 'testpassword';
        oServer.Protocol := MailServerImap4;

        // Enable SSL/TLS Connection, most modern email server require SSL/TLS connection by default.
        oServer.SSLConnection := true;
        // Set 993 SSL IMAP4 port
        oServer.Port := 993;

        // If your IMAP doesn't deploy SSL connection
        // Please use
        // oServer.SSLConnection := false;
        // oServer.Port := 143;

        oClient := TMailClient.Create(Application);
        oClient.LicenseCode := 'TryIt';

        oClient.Connect1(oServer.DefaultInterface);
        ShowMessage('Connected!');

        folder := oClient.CreateFolder(nil, 'Test Folder');
        folders := oClient.GetFolderList();
        for i := 0 to folders.Count - 1 do
        begin
            fd := folders.Item[i];
            ShowMessage('Folder: ' + fd.FullPath);
        end;

        oClient.DeleteFolder(folder);
        oClient.Logout;

    except
        on ep:Exception do
            ShowMessage('Error: ' + ep.Message);
    end;
end;

end.