Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
27.11.2006, 20:54 Uhr
~Namron
Gast

Nabend

Habe da ein Problem bei dem ich nicht vorwaerts komme.

Code:

      _emailadress := Msg.From.Text;

      Msg.Clear;
      Msg.Recipients.Clear;
      Msg.Recipients.Add.Address := _emailadress;
      Msg.From.Address := 'meinemail@XXX.de';
      Msg.Subject := 'Analyse';
      Msg.Body.text := 'Ihre Analyse';
      Msg.ReplyTo.EMailAddresses := 'mainemail@XXX.de';
      Msg.CharSet := 'iso-8859-1';
      Msg.ContentTransferEncoding := 'quoted-printable';
      Msg.ContentType := 'text/plain';

      Att := TIdAttachment.Create(Msg.MessageParts);
      Att.FileName := globalfilename;
      IdSMTP1.SendMsg(Msg);

Ich bekomme lediglich in der letzten Zeile die Fehlermeldung

'Abstract Error'

Weiß vielleicht jemand was ich dort falsch mache?
Ich benutze die Komponenten TIdMessage,TIdPOP3, TIdSMTP, TIdAttachment.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
28.11.2006, 09:45 Uhr
~Namron
Gast

Hi also mein Problem habe ich nun selber behoben.

Aber hier die Loesung fuer die die es interessiert.

Code:

   _emailadress := Msg.From.Text;

      Msg.Clear;
      Msg.From.text := 'meineemailadresse@XXX.de';
      Msg.Recipients.Add.Address := _emailadress;
      Msg.Subject := 'Analyse';
      Msg.Body.Add('Ihre Analyse');

      if (globalfilename <> '') and (FileExists(globalfilename)) then
      begin
      Att := TIdAttachmentFile.Create(Msg.MessageParts, globalfilename);
      end else ShowMessage('Die Datei zum versenden existiert nicht');

      try
      IdSMTP1.Send(Msg);
      finally
      IdSMTP1.Disconnect;
      end;

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Delphi / Kylix / Turbo Pascal ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: