Email direkt aus Program mraus

[marabu]

Zwei bugs habe ich gefunden:

Delphi-Quellcode:

if Recipients.Count > 0 then
begin
  SetLength(recips, Recipients.Count);
  ZeroMemory(@recips[0], SizeOf(MapiRecipDesc) * Recipients.Count);
  for i := Low(recips) to High(recips) do
    with recips[i] do
    begin
      ulRecipClass := MAPI_TO;
      lpszName := PChar(Recipients[i]);
    end;
  lpRecips := @recips[0];  // bug #1: @recips ist was anderes 
  nRecipCount := Recipients.Count;  // bug #2: hat gefehlt ... 
end;

marabu