AnsiString erzeugen

[Fridolin Walther]

Zitat von Berni68:

Die Funktion String2AnsiString hab ich 'dazugebastelt' (offensichtlich nicht wirklich verstanden)
geht aber bei den Datei-Anängen nicht Der Rest ist ok. Den Unterschied sehe ich nicht.

Wozu die String2AnsiString Funktion? Letztlich willst Du ja ohnehin einen WideString zu einem AnsiString casten. Entsprechend tuts auch AnsiString(). Dadurch ersparst Du Dir übrigens auch die Hilfsvariablen.

Delphi-Quellcode:

// uses MAPI
function SendEMail(Handle:THandle; Mail:TStrings):Cardinal;
type
  TAttachAccessArray= array [0..0] of TMapiFileDesc;
  PAttachAccessArray= ^TAttachAccessArray;
var
  MapiMessage: TMapiMessage;
  Receip: TMapiRecipDesc;
  Attachments: PAttachAccessArray;
  AttachCount: Integer;
  i1: integer;
  FileName: string;
  dwRet: Cardinal;
  MAPI_Session: Cardinal;
  WndList: Pointer;
  h1,h2: AnsiString;
begin
Result:= MAPI_E_FAILURE;
  dwRet:= MapiLogon(Handle, PAnsiChar(''), PAnsiChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session);

  if (dwRet<>SUCCESS_SUCCESS) then
    begin
      MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK);
    end
  else
    begin
      FillChar(MapiMessage, SizeOf(MapiMessage), #0);
      Attachments:= nil;
      FillChar(Receip, SizeOf(Receip), #0);

      if Mail.Values['to']<>'' then begin
        Receip.ulReserved:= 0;
        Receip.ulRecipClass:= MAPI_TO;
        Receip.lpszName:= PAnsiChar(AnsiString(Mail.Values['to']));
        Receip.lpszAddress:= PAnsiChar(AnsiString('SMTP:' + Mail.Values['to']));
        Receip.ulEIDSize:= 0;
        MapiMessage.nRecipCount:= 1;
        MapiMessage.lpRecips:= @Receip;
      end;

      AttachCount:=0;
      for i1:=0 to MaxInt do begin
        if Mail.Values['attachment' + IntToStr(i1)] = '' then break;
        Inc(AttachCount);
      end;
      if AttachCount>0 then begin
        GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount);

        for i1:=0 to AttachCount-1 do begin
          FileName:= Mail.Values['attachment' + IntToStr(i1)];
          Attachments[i1].ulReserved:= 0;
          Attachments[i1].flFlags:= 0;
          Attachments[i1].nPosition:= ULONG($FFFFFFFF);
          Attachments[i1].lpszPathName:= PAnsiChar(AnsiString(FileName));
          Attachments[i1].lpszFileName:= PAnsiChar(AnsiString(ExtractFileName(FileName)));
          Attachments[i1].lpFileType:= nil;
        end;
        MapiMessage.nFileCount := AttachCount;
        MapiMessage.lpFiles := @Attachments^;
      end;

      if Mail.Values['subject']<>'' then MapiMessage.lpszSubject:= PAnsiChar(AnsiString(Mail.Values['subject']));
      if Mail.Values['body']<>'' then MapiMessage.lpszNoteText:= PAnsiChar(AnsiString(Mail.Values['body']));

      WndList := DisableTaskWindows(0);
      try
        Result:= MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0);
      finally
        EnableTaskWindows(WndList);
      end;
      MapiLogOff(MAPI_Session, Handle, 0, 0);
    end;
end;

Beim Debuggen wurden die Records übrigens korrekt gefüllt. Also sollte es funktionieren. Testen kann ichs allerdings nicht, da ich keinen MAPI fähigen Email Client installiert hab. Von MAPI im Allgemeinen würde ich übrigens abraten. Die Schnittstelle gilt als veraltet und soll "demnächst" komplett entfernt werden.