Ist MAPI verfügbar?

[rollstuhlfahrer]

HI @all,

in meinem Programm soll eine Mail per MAPI verschickt werden (Klick auf Button). Das funktioniert auch soweit. Nun will ich noch erkennen, ob es überhaupt möglich ist, eine Mail per MAPI zu versenden. Leider schlagen meine Erkennungsversuche immer wieder fehl. Einfach den Wert in der Registry zu prüfen (wie das in der MAPI-Unit von Delphi passiert) reicht nicht aus, da in meiner VM kein Mail-Client installiert ist (auch nicht Outlook Express) und der Wert in der Registry trotzdem "1" ist. Was ich bis jetzt habe sieht so aus:

Delphi-Quellcode:

function IsMAPIEnabled: boolean;
var
  hkWMS: HKEY;
  MAPIValueSize: Longint;
  MAPIValueBuf: array[0..8] of char;
  rType: Longint;
  MAPISession: PLHANDLE;
begin
  Result := false;

  MAPIValueSize := sizeof(MAPIValueBuf);
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows Messaging Subsystem',
      0, KEY_READ, hkWMS) <> ERROR_SUCCESS then Exit;
  if RegQueryValueEx(hkWMS, 'MAPI', nil, @rType, @MAPIValueBuf,
      @MAPIValueSize) <> ERROR_SUCCESS then Exit;
  RegCloseKey(hkWMS);
  if not ((MAPIValueBuf[0] = '1') and (MAPIValueBuf[1] = #0)) then Exit;

  MAPISession := nil;
  if MapiLogOn(0, nil, nil, 0, 0, MAPISession) <> SUCCESS_SUCCESS then Exit; // Das scheint nicht zu funktionieren
  MapiLogOff(MAPISession^, 0, 0, 0);

  Result := true;
end;

Wie erkennt man jetzt zuverlässig (möglichst ohne Try&Error), ob MAPI jetzt geht oder nicht?

Bernhard

[chrisw]

Die Prerequsites für MAPI sind m.E. nach folgende:

1. Das Vorhandensein der MAPI32.dll/MAPI64.dll
2. Das Vorhandensein des genannten Registry Keys.


Ich würde auf MAPI32.DLL/MAPI64.DLL prüfen !


Christian

[rollstuhlfahrer]

Das reicht leider nicht aus. Sowohl in der VM (ohne Mail-Client) als auch auf einem Rechner mit Mail-Client existiert diese Datei (mapi32.dll).

Bernhard

[chrisw]

Aber, unabhängig ob ein Mailclient istalliert ist, oder nicht, sind das die Vorraussetzungen für das funktionieren der MAPI API . D.h. also, dass auch auf deiner VM Mapi funktionieren sollte !

Christian

[rollstuhlfahrer]

Nun ja, kommt darauf an, was man unter "funktionieren" versteht. MapiSendMail quittiert das mit E_FAIL und GetLastError weißt auf ERROR_PROC_NOT_FOUND hin (The specified procedure could not be found.). Ich würde halt nur gerne vorher wissen, ob das geht oder nicht.

Bernhard

[chrisw]

Hmm, dann vielleicht checken, ob Standard EMail Client definiert ist !
unter:
HKEY_CLASSES_ROOT\ mailto\ shell\ open\ command

Christian

[rapante]

Hy,
bei den Jedi-Kompos gibt's imho eine Komponente(JCLEmail?) mit der man u.a. abfragen kann ob mapi und ein Email-Client installiert sind.
Vielleicht kannst du da mal schauen, wie es dort gelöst wurde.

[rollstuhlfahrer]

Ich hab mir jetzt den entsprechenden Teil der Jedis besorgt und angeschaut. Außerdem hab ich mir die entspechenden Strukturen aus einer Registry besorgt, die einen MailTo- und MAPI-Handler hat. Jetzt muss ich mir nur noch aus der VM selbiges besorgen und vergleichen. Morgen mehr.

Bernhard

[rollstuhlfahrer]

So, nachdem ich mehr als die zuerst ausgelesenen Schlüssel aus der Registry abgearbeitet haben, habe ich mittlerweile Erfolg zu vermelden. Und zwar habe ich eine Funktion, die prüft, ob MAPI eingerichtet ist und ob MAPI konfiguriert ist. Erst wenn diese beiden Punkte erfüllt sind, gibt es grünes Licht.
Problem dabei: Jedes Windows XP hat einen mailto-Handler (und zwar zeigt der standardmäßig auf Outlook Express). Genauso ist Simple-MAPI überall installiert. Die Prüfung auf die DLL habe ich sein gelassen, weil die DLL (bei einem gepflegten System) dann existiert, wenn der Registry-Schlüssel das so sagt. Ich habe nicht vor, wie die JEDIs alle Export-Funktionen auf Existenz zu prüfen.

So, nun der Code:

Delphi-Quellcode:

function IsMAPIEnabled: boolean;
  function IsMAPIInstalled: boolean;
  var  // Ist MAPI auf dem System installiert und aktiv?
    hkWMS: HKEY;
    MAPIValueSize: Longint;
    MAPIValueBuf: array[0..8] of char;
    rType: Longint;
  begin
    Result := false;
    MAPIValueSize := sizeof(MAPIValueBuf);
    if RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows Messaging Subsystem',
        0, KEY_READ, hkWMS) <> ERROR_SUCCESS then Exit;
    if RegQueryValueEx(hkWMS, 'MAPI', nil, @rType, @MAPIValueBuf,
        @MAPIValueSize) <> ERROR_SUCCESS then Exit;
    RegCloseKey(hkWMS);
    if not ((MAPIValueBuf[0] = '1') and (MAPIValueBuf[1] = #0)) then Exit;
    Result := true;
  end;

  function IsMAPIConfigured: boolean;
  var // Ist MAPI für den aktuellen Benutzer eingerichtet/konfiguriert?
    hkWMS: HKEY;
    MAPIValueSize: Longint;
    MAPIValueBuf: array[0..MAX_PATH - 1] of AnsiChar;
    rType: Longint;
  begin
    Result := false;
    MAPIValueSize := sizeof(MAPIValueBuf);
    //  HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles
    if RegOpenKeyEx(HKEY_CURRENT_USER, 'Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles',
        0, KEY_READ, hkWMS) <> ERROR_SUCCESS then Exit;
    if RegQueryValueEx(hkWMS, 'DefaultProfile', nil, @rType, @MAPIValueBuf,
        @MAPIValueSize) <> ERROR_SUCCESS then Exit;
    RegCloseKey(hkWMS);

    if MAPIValueBuf[0] = #0 then Exit;
    Result := true;
  end;
begin
  Result := false;

  if not IsMAPIInstalled then Exit;
  if not IsMAPIConfigured then Exit;

  Result := true;
end;

Bernhard

[himitsu]

Warum machst du es dir nicht einfach so schwer?
das erinnert mich irgendwie an diese uralte Geschichte Wie kann ich prüfen, ob ich online bin?.

Selbst wenn MAPI vorhanden ist, muß das noch lange nicht bedeuten, daß es auch nutzbar ist.


Beim Prüfen der Registryeinträge können im schlimmsten Fall immernoch die nötigen Dateien fehlen.
(kennt man ja von dein Eintragsleichen schon deinstallierter Anwendungen)


Versuche einfach zu senden und wenn's nicht geht, dann reagiere entsprechend.
Alle möglichen Hindernisse kann man nur schwer prüfen, angefangen mit defekten Installationen, untersagten Rechten, nichtinstallierten Programmen, unterbundenen Verbindungen (Firewall), über Verbindungsprobleme, bis Sonstewas.