Email direkt aus Program mraus

[marabu]

Hallo René,

erstmal zu deinem Problem mit mehreren Empfängern - so stelle ich mir das vor - ungetestet:

Delphi-Quellcode:

var
  MapiMessage: TMapiMessage;
  recips: array of MapiRecipDesc;
  rl: TStrings;
  i: integer;
begin
  rl := TStringList.Create;
  rl.LoadFromFile('ListOfRecipientNames');
  SetLength(recips, rl.Count);
  ZeroMemory(@recips[0], SizeOf(MapiRecipDesc) * rl.Count);
  for i := Low(recips) to High(recips) do
    with recips[i] do
    begin
      ulRecipClass := MAPI_TO;
      lpszName := PChar(rl[i]);
    end;
  rl.Free;

  with MapiMessage do
  begin
    // siehe W2K Logo App
    nRecipCount := rl.Count;
    lpRecips := recips;
  end;

Grüße vom marabu