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:

zusammenfalten · markieren

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

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

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

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

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

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

Christian