Abfrage ob MAPI vorhanden und eingerichtet

[stalkingwolf]

Das löst das Problem nur halb.
Ich erhalte kein wirkliches Feedback.

In der Registry fange ich aber nicht an zu suchen. In der Vergangenheit hat es sich gezeigt, dass die verschiedenen Windows Versionen dafür zu unterschiedlich sind. Das soll ja nicht zu einer ABM verkommen

Auf Windows 2008 RC2 haben einige unsere Kunden oft keine Emailclient. Sie arbeiten per RDP darauf und haben die Clients Lokal installiert.
Für Kunden die das Programm auf Ihrem eigenen PC benutzen tritt das Problem auch nicht auf.

[arnof]

dazu würde ich sagen, wenns kein Terminalserver ist, ist ein Server nun mal kein Arbeitsplatz

[Union]

Jetzt mal andersherum gefragt: Was willst Du mit MAPI auf diesem Server anstellen? Automatisiert E-Mails versenden oder ...

[stalkingwolf]

Drag&Drop aus Outlook bzw. einlesen von .msg Dateien.
Ich habe die Problematik umgangen.

Ich wollte nur wissen ob es eine Möglichkeit gibt heraus zu bekommen, das eine funktionsfähige MAPI vorhanden ist.

[Harry Stahl]

Ja, es gibt eine Möglichkeit. Wenn mal als Hersteller eines Mailprogramms (ich bin so einer) seine Dienste im Betriebssystem zur Versendung mit Mails anbieten will, muss man sich dafür in der Registry eintragen (Anmerkung nur am Rande, dazu braucht man Adminrechte).

Ob sich ein E-Mail-Programm eingetragen hat, kannst Du mit dieser Funktion testen:

Delphi-Quellcode:

function GetStandardClient: String;
const
  cMailClient = '\SOFTWARE\Clients\Mail';
var
  reg: TRegistry;
  RegClientDefault: string;
  RegClientDefaultCurUser: string;
begin
  reg := TRegistry.Create;
  RegClientDefault := '';
  RegClientDefaultCurUser := '';

  try
    with reg do begin
      CloseKey;
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKeyReadOnly(cMailClient) then begin
        RegClientDefault := reg.ReadString('');
      end;
    end;
  finally
    reg.Free;
  end;

  reg := TRegistry.Create;
  try
    with reg do begin
      CloseKey;
      RootKey := HKEY_CURRENT_USER;
      if OpenKeyReadOnly(cMailClient) then begin
        RegClientDefaultCurUser := reg.ReadString('');
      end;
    end;
  finally
    reg.Free;
  end;

  if RegClientDefaultCurUser <> '' then begin
    if RegClientDefaultCurUser = RegClientDefault then begin
      Result := RegClientDefault;
    end else begin
       Result := RegClientDefault + ' in Registry HKEY_LOCAL_MACHINE und' + #13 +
                 RegClientDefaultCurUser + ' in HKEY_CURRENT_USER';
    end;
  end else begin
    Result := RegClientDefault;
  end;
end;

Damit kann man also den Namen des Programms rausfinden, dass im System die Mails bearbeitet (ich nutze es natürlich, um zu testen, ob sich unverschämterweise ein anderes Programm hier vorgedrängelt hat).

Wenn Du 100%-tig sichergehen willst, dass da nicht nur ein E-Mail-Spaßprogramm installiert ist, das nur "mailto-" Aufrufe abgreift, musst Du in der Registry auch noch den Eintrag DLLPath prüfen. Jedes MAPI-fähige Mailprogramm muss nämlich seine eigene MAPI-Implementation machen und eine DLL dafür ins System bringen. Die mapi32.dll ruft dann diese DLL vom Hersteller auf, die dann das E-Mail-Programm startet und dieses muss dann die Nachricht letztendlich bearbeiten.

Auch wenn Du Dein Problem schon gelöst hast, vielleicht stehst Du noch mal vor dieser Situation und hast keine Umgehungsmöglichkeit.

Ich habe Dir noch einen Screenshot angehängt, wo Du das mit dem Regitry-Eintrag mal optisch nachvollziehen kannst. Der stammt von meiner Entwicklungsmaschine, daher wundere Dich nicht über den Standort der MAPI-Dll, auf einer echten Installation wäre die im Programmverzeichnis von Safer Mail zu finden.

[stalkingwolf]

Hallo Harry,

ich hab einmal gerade auf meinem Testrechner und auf meinem Lokalen Rechner geschaut.

In beiden Rechnern steht in Local_Machine ein Eintrag.
Bei meinem lokalen Rechner Outlook und Thunderbird.
Beide haben einen DLLPATH Eintrag.

Auf dem Testrechner ist kein Emailclient eingerichtet, aber es steht in Local_Machine dennoch ein Eintrag. Und Zwar Hotmail mit einem DLLPath.
Dennoch erhalte ich auf diesem Rechner die Meldung, das kein Emailprogramm eingerichtet ist.

Scheint also nicht 100% zu funktionieren.

Gruß
Sven

[himitsu]

FileExist(DLLPath) hilft auch nichts?

[Harry Stahl]

Zitat von stalkingwolf:

Auf dem Testrechner ist kein Emailclient eingerichtet, aber es steht in Local_Machine dennoch ein Eintrag. Und Zwar Hotmail mit einem DLLPath.
Dennoch erhalte ich auf diesem Rechner die Meldung, das kein Emailprogramm eingerichtet ist.

Ja, Deine Konstellation ist natürlich etwas anders, als die, die ich mit meinem Programm vorfinde. Bei meiner Konstellation hat ja dann schon mal ein Anwender das vorhandene Programm (nämlich meines gestartet), der User ist also angemeldet und hat Zugriff auf ein E-Mail-Programm.

Bei Dir hat ein User per RDP Zugriff auf den Rechner. Hat dort auch ein Konto, aber für ihn ist kein E-Mail-Programm installiert. Das ist zwar da (deswegen der Eintrag in Lcal_Machine), aber nicht für ihn.

Wenn Du nur den Current-User-Eintrag bei bestehendem RDP-Zugriff auf dem Server-PC testest, ist dann dort auch ein Eintrag für ein E-Mail-Programm im Registry-Eintrag drin?