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

[PierreB]

Zitat:

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

Natürlich, besorg dir erst das Handle von Outlook (per FindWindow glaub ich), dann brauchst du noch das Handle von dem Button und dann drück ihn. Mit der Forensuche (nach Button fremde anwendung suchen) solltest du schnell fündig werden. ;)

Btw: Is deine Frage so dringend das du sie in 2 Foren gleichzeitig posten musst ? :gruebel:

[AndreT]

Zitat:

Zitat von PierreB

Zitat:

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

Natürlich, besorg dir erst das Handle von Outlook (per FindWindow glaub ich), dann brauchst du noch das Handle von dem Button und dann drück ihn. Mit der Forensuche (nach Button fremde anwendung suchen) solltest du schnell fündig werden. ;)

Danke,
werd es mal versuchen, weiß zwar noch nicht genau, wo ich ansetzen soll, auch die Suche brachte mich nicht weiter, aber das schaff ich irgendwie noch.

Zitat:

Btw: Is deine Frage so dringend das du sie in 2 Foren gleichzeitig posten musst ? :gruebel:

Ich les ja auch nicht nur eine Tageszeitung ;)



EDIT:

Ist erledigt, hab eine andere Möglichkeit gefunden.
Danke an alle, die sich Gedanken gemacht haben.