Send Email components

Så jeg kan sende e-mails til andre computere

/Peter

Jeg ved ikke noget om hvor du kan få et komponent, men jeg ved noget andet du kan gøre, nemlig blande lidt PHP med ind i det.

Hvis du fx. har en side, der hedder

sendEmail.php?to=email@email.com&subject=Hej%20Peter&body=Whattup

Så kan du have 2 TEdits i dit delphi program, email og subject kan du fx. kalde dem, + en RichEdit og en knap.

RichEdit kan du kalde body og knappen kan du kalde hvad du vil.

Når man så trykker på knappen generer du den samlede adresse som jeg gav et eksempel på med IE (tjek shellExecute()) og så sender du bare mailen med php ud fra de oplysninger, delphi gav.

Hvis du ikke kan php, så kender jeg et godt sted som hedder Udvikleren

Prøv det her:

Delphi:

procedure TForm1.sendEmail;
var
  Til, Emne, Besked, Side: string;
begin
  Til := Til.Text;
  Emne := Emne.Text;
  Besked := Besked.Text;
  Side := 'http://www.side.dk/fil.php?to='+Til+'&subject='+Emne+'&body='+Besked;
  ShellExecute(pChar(Side), 'c:\\program_til_fx_internet_explorer.exe', nil, nil, SW_NORMAL);
end;

PHP:

<?
extract($_GET);
if (mail($to, $subject, $body))
  print 'Mailen er sendt';
else
  print 'Der opstod en fejl';
?>

Og i din uses list i Delphi tilføjer du: ShellApi.
Jeg har ikke skrevet hele Delphi koden, jeg går ud fra du kan klare resten selv