Outlook: E-Mail "Blatt" öffnen

[Die Muhkuh]

Huhu :hi:

ihr kennt doch alle, wenn man auf ein Mailto klickt das sich so ein Outlooks dingens öffnet und man kann ne neue Nachricht schreiben. Wie mach ich das?

[s14]

Hallo Spider,

die Unit ShellAPI in die Uses - Klausel und

Delphi-Quellcode:

ShellExecute(handle, 'open', 'mailto:[e-mail]?Subject=Mail von Spider ', nil, nil, SW_SHOWNORMAL);

ausführen.

Gruß
s14

[Die Muhkuh]

Gut Thanks!


Aber geht das auch wenn einer kein Outlook hat? Firmen z.B. haben meist Lotus

[s14]

Es müsste eigentlich auch dann funktionieren, kann es aber nicht sicher sagen.
Vielleicht weiß ja noch jemand anders mehr darüber. :roll:

[Treffnix]

Ja, über Shellexecute isses egal. Das öffnet das Programm, das mit E-Mails verknüpft ist. Wenn du auf dem Rechner nen E-Mail-Link im IExplorer klicken kannst ( und sich das Programm öffnet ) gehts über Shellexecute auch.

[Die Muhkuh]

Dann ist ja gut.

Aber was noch fehlt...

Wie kann ich schon einen Text hineinschreiben?

An: Wird ausgefüllt
Betreff: Wird auch ausgefüllt
Text: Wie kann ich den ausfüllen?

[Lefko]

Hi,
das fügst du ganz einfach wie das subject mit in den string!

also:

Delphi-Quellcode:

ShellExecute(handle, 'open', 'mailto:[e-mail] ?Subject=Mail von Spider &Body=Jetzt steht schon was in der Mail drin! :)', nil, nil, SW_SHOWNORMAL);

alles klar?

MfG Lefko.

[s14]

Delphi-Quellcode:

const { Zeilenvorschub für ShellExecute MailTo } emailCR = '%0D%0A'; 

procedure SendMailTest
var S: string;
begin
S := 'mailto:[e-mail]?subject=von spider&Body=Eine Zeile'+emailCR+'und die Zweite'+emailCR+'geht auch.';
ShellExecute(0,'open', PChar(S), nil, nil, 0);
end;

[Die Muhkuh]

@s14,

kannst wohl hellsehen? Das wäre meine nächste Frage gewesen!

@Lefko

Jupp, jetzt is oalles kloar

[s14]

@Spider,
hat mit Hellsehen nichts zu tun ich hatte mal den selben Gedankengang.
Frag jetzt aber nicht wie man ein Attachment einfügt. :shock: