Email direkt aus Program mraus

[marabu]

Entschuldige René,

Delphi-Quellcode:

lpszName := PChar(Trim(Before(Recipients[i], '<'))); 
lpszAddress := PChar(Trim(Between(Recipients[i], '<', '>')));

mit den beiden Funktionen zerlege ich das von mir gewählte Eingabeformat für die mail recipients - sie tun genau das was ihr Name suggeriert:

Delphi-Quellcode:

const
  sRecipient = 'Nachname, Vorname <[e-mail]>';
begin
  if Before(sRecipient, '<') = 'Nachname, Vorname ' then
    ShowMessage('na also');
  if Between(sRecipient, '<', '>') = '[e-mail]' then
    ShowMessage('geht doch');
end;

marabu