CryptoEx in Mail via Delphi aktivieren. wie?

[AndreT]

Hallo zusammen,

ich muss täglich Files kopieren, bearbeiten, zippen und per mail verschlüsselt verschicken.
Deshalb hab ich mir ein Tool geschrieben, was dieses für mich erledigt.
Es klappt alles, auch das vollständig automatische Verschicken der Mail via Outlook.

Problem ist nun, das ich die Mails verschlüsseln muss.
Bei uns in der Firma ist CryptoEx installiert. Die Funktion standardmäßig alles Mails zu verschlüsseln ist deaktiviert und nicht aktivierbar (warum auch immer ?? / Änderung der Policy nicht möglich für mich als "Einzelfall").

Gibt es eine Möglichkeit, das ich den "Knopf" zum verschlüsseln in Outlook aus Delphi betätige ?
Oder eine andere Möglichkeit?

Die Mail verschicke ich über diesen Code:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var variant_Outlook, variant_mailitem : variant;
    integer_i: integer;
begin
    try
    //Verweist eine Variant Variable auf ein OLE-Object ('Outlock'),
    //kann auf Methoden und Klassen des OLE-Objectes zugegriffen weden.
    //Instanz des Outlook-objektes wird erstellt
     variant_Outlook := CreateOLEObject('Outlook.Application');
     variant_mailitem  := variant_Outlook.CreateItem(0);
    //Zugriff auf Subject des OLE-Objectes
     variant_mailitem.Subject := 'Filename '+DateToStr(date);
    //Zugriff auf  to (Empfänger) des OLE-Objektes
     variant_mailitem.To      := '[e-mail]';
     //Zugriff auf Body (Mailinhalt) des OLE-Objektes
     variant_mailitem.Body    := 'test';

          variant_mailitem.Attachments.Add('z:\test.txt');

          variant_mailitem.Send;
     except
     end;
  end;

Danke Gruss Andre