Shellexecute und E-Mail - Fehlersuche

[Grolle]

Hi,
ich versuche eine neue E-Mail mit ShellExecute zu erstellen. Dies geschieht aber nicht mit dem Standardmailprogramm:

Delphi-Quellcode:

s := ab.ReadString('kommunikation','mailpfad','');
Shellexecute(Handle,'Open' ,PChar(s) ,PChar('mailto:' + DBEdit13.Text),nil , SW_ShowNormal);

Das Programm wird aber nur geöffnet. Eigentlich sollte es eine neue E-Mail erstellen?!?
Viele Grüße...

[DocE]

Hallo Stefan,

probier mal:

Shellexecute(Handle,'Open' ,PChar('mailto:' + DBEdit13.Text) , nil, nil , SW_ShowNormal); Das sollte dann funktionieren.


Grüsse
...Doc

[Grolle]

Hi,
ich glaube ich habe es nicht so verständlich geschrieben:
Der User soll das Mail-Programm selber auswählen. Es soll also nicht unbedingt das Standardmailprogramm genutzt werden. Deswegen der Pfad zu der jeweiligen exe aus ner ini!
Viele Grüße...

[DocE]

Dann ist das davon abghängig, ob und wie das angegebene Mailprogramm die "Neue eMail"-Übergabe per Parameter unterstützt. Das müsstest Du im Zweifel also für jedes erdenkliche Programm rausfinden und entsprechend programmieren.

[Grolle]

Hi,
dann unterstützt Outlook Express das anscheinend nicht.
Vielen Dank...

[DocE]

Doch, das tut es.

Der Befehl für das aktuelle Mailprogramm steht jeweils unter:

Code:

HKEY_CLASSES_ROOT\mailto\shell\open\command

und lautet für Outlook Express z.B.

Code:

"%ProgramFiles%\Outlook Express\msimn.exe" /mailurl:%1

Aufruf z.B. durch

Code:

"%ProgramFiles%\Outlook Express\msimn.exe" /mailurl:mailto:[e-mail]

Grüsse
...Doc

[Grolle]

Alles klar. Danke!