Email mit Indy verschicken

[emsländer]

Zitat von Chrissi91:

So ... die Indykomonente funktioniert ja überhaut nicht ... Die kann ich erstmal vergessen

Delphi-Quellcode:

var
 Email: TIdMessage;
 s: integer;
begin
 s := 0;
 Email := TIdMessage.Create(nil);
 Email.Recipients.Clear;                       //?
 Email.Recipients.Add.Address := edit4.text;  //email des empfängers
 Email.BccList.Add.Address := bccedit1.text; //email des empfängers
 Email.from.Text := edit3.text;         //Text der Email
 Email.From.Name := edit2.Text;        //Name dem die Email gehört, also mein Name
 Email.From.Address:=edit1.text;      //Absender
 Email.Subject:=edit2.text;          //Betreff
 Email.Date := Now;
  with (**TIdText**).Create(email.MessageParts, nil) do
   begin
    (**Body.Text**) := mailbody.Text;
    (**CharSet**) := 'iso-8859-1';
    (**ContentTransfer**) := 'quoted-printable';
    (**ContentType**) := 'text/plain';
    (**ParentPart**) := -1;
   end;
  with TIdText.Create(email.MessageParts, nil) do
   begin
    Body.Text := mailbody.asansistring('html');
    CharSet := 'iso-8859-1';
    ContentTransfer := 'quoted-printable';
    ContentType := 'text/html';
    ParentPart := -1;
   end;
  if trim(gdateiname) <> '' then TIdAttachmentfile.Create(email.MessageParts, gdateiname);
  idsmtp.Connect;
  try
   idsmtp.Send(Email);
   idsmtp.Disconnect;
  except
  idsmtp.Disconnect;
 end;
 showmessage('Mail wurde verschickt');
end;

das am Anfang mit //kommentierte: ich bin mir nicht sicher, was was ist ... habe ich recht mit dem, was ich daneben geschrieben habe?

später habe ich mit (** **) Wörter kommentiert. Das ist ein Teil von denen, die Delphi nicht kennt. Habe ich irgendwas vergessen?

Danke schon im Vorraus.

P.S.: Weitere Fehler folgen noch

Könnte TIdText evtl. eine Komponente sein?
with (**TIdText**). ....

dann machst Du einfach ein USES IdText ... und fertig.

Gruss

EL