Outlook starten aber nicht den Eingabedialog für emails

[Schodn]

Outlook starten aber nicht den Eingabedialog für emails sondern nur das outlook

seh den wald vor lauter bäumen nicht mehr

[Schodn]

push

[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

[Baeuerle]

Hi,

ok hab mich verlesen sorry

[Schodn]

DAnke das hilft mir sehr weiter

Mit findwindow kann ich dann abfragen ob es schon mal offen ist oder? Er soll es nur aufmachen wenn es noch nicht offen ist.

[Schodn]

Abfragen obs outlook offen ist. wenn nicht -> öffnen

Delphi-Quellcode:

procedure Tfrm_main.RzBmpButton23Click(Sender: TObject);
var 
    reg: TRegistry;
    value, cmd: string;
    pac: PAnsiChar;
    Window : hWnd;
begin
    Window := FindWindow(nil, 'Microsoft Outlook');
    if Window = 0 then
    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;
end;

[marabu]

Hi Schodn,

Zitat von Schodn:

Abfragen obs outlook offen ist. wenn nicht -> öffnen

wenn du mehrere Instanzen des Standard Mail Programms vermeiden willst, dann darfst du nicht einfach nach Outlook Ausschau halten (pun intended). Meine Routine ermittelt ja den Pfad der zugehörigen Echse. Professionell wäre jetzt eine Prüfung, ob genau dieses Reptil sich schon im Hauptspeicher bewegt - hint: CreateToolHelp32Snapshot.

Grüße vom marabu