Outlook starten aber nicht den Eingabedialog für emails

[marabu]

Hi Schodn,

dein Standard-E-Mail-Programm kannst du vom Prinzip her so starten:

Delphi-Quellcode:

uses
  Windows,
  SysUtils,
  ShellApi,
  Registry;

procedure StartEmail;
var
  reg: TRegistry;
  value, cmd: string;
  pac: PAnsiChar;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CLASSES_ROOT;
  if reg.OpenKeyReadOnly('\mailto\shell\open\command') then begin
    value := reg.ReadString('');
    reg.CloseKey;
  end else value := '';
  reg.Free;
  if value = '' then
    raise Exception.Create('no standard e-mail handler');
  pac := PAnsiChar(value);
  if value[1] = '"' then
    cmd := AnsiExtractQuotedStr(pac, '"')
  else if Pos(' ', value) = 0 then
    cmd := value
  else
    cmd := Copy(value, 1, Pred(Pos(' ', value)));
  ShellExecute(0, 'open', PAnsiChar(cmd), nil, nil, SW_SHOW);
end;

Grüße vom marabu