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-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure TForm1.Button3Click(Sender: TObject);
var variant_Outlook, variant_mailitem : variant;
integer_i: integer;
begin
try
variant_Outlook := CreateOLEObject('Outlook.Application');
variant_mailitem := variant_Outlook.CreateItem(0);
variant_mailitem.Subject := 'Filename '+DateToStr(date);
variant_mailitem.To := 'anschrift@provider.com';
variant_mailitem.Body := 'test';
variant_mailitem.Attachments.Add('z:\test.txt');
variant_mailitem.Send;
except
end;
end; |
Danke Gruss Andre
