1:
2:
3:
4:

uses ShellApi;
...
ShellExecute(Application.Handle, 'open',
PChar('mailto:name@email.de?subject=Betreff&body=irgendein Text'), nil, nil, sw_ShowNormal);                    

1:
2:
3:

<?php
mail('AN', 'BETREFF', 'TEXT', 'From: DEINEMAILADRESSE');
?>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //Jetzt soll der die Email senden...


  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone;
    1: SMTP.AuthenticationType := atLogin; {Simple Login}
  end;

  //Benutzerdaten für Authentifizierung
  SMTP.UserID := SmtpServerUser;
  SMTP.Password := SmtpServerPassword;

  //Server-Daten
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;

  SMTP.Connect;

  try
    SMTP.Send(Hallo);
  finally
    SMTP.Disconnect;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //Email senden...


  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone;
    1: SMTP.AuthenticationType := atLogin; {Simple Login}
  end;

  //Benutzerdaten für Authentifizierung
  SMTP.UserID := SmtpServerUser;
  SMTP.Password := SmtpServerPassword;

  //Server-Daten
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;

  SMTP.Connect;

  try
    SMTP.Send(MyIDMessage);
  finally
    SMTP.Disconnect;
  end;

  MID:='wh'+FormatDateTime('yymmddssnnhh', now)+'A3F4E4@local';
IdMessage := TIdMessage.Create(Nil);
IdMessage.Date := now;
idMessage.From.Name:='Name des Absänders';
idMessage.From.Address:='Hier hab ich die Email Adresse an die der senden soll';
idMessage.Recipients.EMailAddresses:='von der adresse';
idMessage.Subject:='Das ist eine Testnachricht';
idMessage.Body.Add('TEXT_1');
idMessage.Body.Add('Text_2');
idMessage.AddHeader('Message-ID: <' + MID + '>');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //Jetzt email senden...
    IdMessage := TIdMessage.Create(Nil);
IdMessage.Date := now;
idMessage.From.Name:='Programm';
idMessage.From.Address:='chaka@newsletter.de';
idMessage.Recipients.EMailAddresses:='**meine Email**@**die hab ich jetzt geändert**.de';
idMessage.Subject:='Das ist eine Testnachricht';
idMessage.Body.Add('TEXT_1');
idMessage.Body.Add('Text_2');
idMessage.AddHeader('Message-ID: <' + MID + '>');


  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone;
    1: SMTP.AuthenticationType := atLogin; {Simple Login}
  end;

  //Benutzerdaten für Authentifizierung
  SMTP.UserID := SmtpServerUser;
  SMTP.Password := SmtpServerPassword;

  //Server-Daten
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;

  SMTP.Connect;

  try
    SMTP.Send(idMessage);
  finally
    SMTP.Disconnect;
  end;                    

1:

s=''