Entwickler-Ecke :: Thema anzeigen - Anhang zu einer Email hinzufügen

stigge - Mi 04.04.07 20:38
Titel: Anhang zu einer Email hinzufügen

Weiß jemand wie ich einer Email einen Anhang hinzufügen kann? Eine normale Email verschicken klappt schon, nur mit Anhang noch nicht.

Delphi-Quelltext

1:
2:
3:

var Nachricht: TIdMessage;

TIdAttachment.Create(nachricht.MessageParts, 'D:\next.jpg');

Und die Fehlermeldungen dazu:
[DCC Fehler] Unit1.pas(111): E2034 Zu viele Parameter
[DCC Warnung] Unit1.pas(111): W1020 Instanz von 'TIdAttachment' mit der abstrakten Methode 'TIdAttachment.OpenLoadStream' wird angelegt

Jetzt sollte ich nurnoch wissen was daran falsch ist...

Karlson - Mi 04.04.07 21:18

Schau mal hier [http://www.delphipraxis.net/topic74445_email+senden+mit+indy+9.html]. Da gibts ein Tutorial dazu wie man das mit Indy macht.

Edit: Sorry, nimm doch besser das hier: http://www.delphi-forum.de/viewtopic.php?t=70742&highlight=anhang%20email

Und btw. gibts eine Suchfunktion... Suche in: Delphi-Forum, Delphi-Library

EMAIL ANHANG hätte dir diesen Thread erspart.

stigge - Do 05.04.07 12:17

Karlson hat folgendes geschrieben:

EMAIL ANHANG hätte dir diesen Thread erspart.

Ich weiß schon, hab auch schon viele Methoden ausprobiert aber klappt irgendwie nicht...weiß auch nicht warum...er sagt immer, das ich zuviele Parameter angebe... :(

stigge - Do 05.04.07 13:29

Hiermit klappts auch nicht:

Delphi-Quelltext

1:
2:
3:

var Att: TIDAttachment;

Att:=TIDAttachment.Create(nachricht.MessageParts,'C:\k.bmp');

Aber warum nur? Das gibt's doch nicht! Immernoch:
[DCC Fehler] Unit1.pas(114): E2034 Zu viele Parameter

Karlson - Fr 06.04.07 16:18

Zitat:

*nächstes Schiebeposting*

@mod: Ich hab schon genug Kopien von der Email

Oh mann, das tut weh :roll:

Warum verwendest du nicht den Code?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    for i:=0 to lvFiles.Items.Count - 1 do  
    begin  
      Attachment:=lvFiles.Items[i].Caption;  
      TIdAttachment.Create(Msg.MessageParts, Attachment);  
    end;  
    try  
      IdSMTP1.Send(msg);  
    except  
      on E:Sysutils.Exception do  
      begin  
        ShowMessage(e.message);  
      end;  
    end;

(von

katjah )

stigge - Fr 06.04.07 16:34

Karlson hat folgendes geschrieben:

Zitat:

*nächstes Schiebeposting*

@mod: Ich hab schon genug Kopien von der Email

Oh mann, das tut weh :roll:

Warum verwendest du nicht den Code?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    for i:=0 to lvFiles.Items.Count - 1 do  
    begin  
      Attachment:=lvFiles.Items[i].Caption;  
      TIdAttachment.Create(Msg.MessageParts, Attachment); //Zu viele Parameter 
    end;  
    try  
      IdSMTP1.Send(msg);  
    except  
      on E:Sysutils.Exception do  
      begin  
        ShowMessage(e.message);  
      end;  
    end;

(von

katjah )

weil er immer und immer wieder sagt, das ich zu viele parameter verwende

Blackheart666 hat folgendes geschrieben:

Gelten für Dich die Forenregeln Nicht ! :!:

Ich warte eigentlich auch schon drauf, gekickt zu werden :wink:

Karlson - Fr 06.04.07 16:38

benutzt du das

Delphi-Quelltext

1:	Att:=TIDAttachment.Create(nachricht.MessageParts,'C:\k.bmp');

oder TIdAttachment.Create(Msg.MessageParts, Attachment); ?

Bei ersterem bezöge sich der Fehler nämlich wohl auf die Zuweisung auf Att.

Wenns bei zweiterem nicht klappt, poste mal deine Indy Version.

stigge - Fr 06.04.07 16:43

Ich verwende:

Delphi-Quelltext

1:
2:
3:
4:

var Nachricht: TIdMessage;
    Att: TIDAttachment;

Att := TIDAttachment.Create(nachricht.MessageParts,'C:\k.bmp');

Ich kann Nachricht auch problemlos versenden, halt eben ohne Anhang.
Mit Anhang immer und immer wieder:
Zu viele Parameter

stigge - Fr 06.04.07 16:48

Karlson hat folgendes geschrieben:

Dann probiers doch endlich mal mit TIdAttachment.Create(nachricht.MessageParts, FFilename);... :roll:

Hab ich schon vor 2 Tagen probiert:

Delphi-Quelltext

1:	TIdAttachment.Create(nachricht.MessageParts, 'D:\next.jpg');

Und die üblichen Fehler:

Delphi-Quelltext

1:
2:

[DCC Fehler] Unit1.pas(114): E2034 Zu viele Parameter
[DCC Warnung] Unit1.pas(114): W1020 Instanz von 'TIdAttachment' mit der abstrakten Methode 'TIdAttachment.OpenLoadStream' wird angelegt//Eigentlich ja eher eine Bemerkung

Karlson - Fr 06.04.07 16:52

Hm. Das komische ist das dies ja der übliche Weg zu sein scheint. Hab schon mehrere Beiträge gelesen in denen erwähnt wurde das es so klappt.

Poste mal deine komplette Routine zum versenden.

Und such mal die Deklaration von TIdAttachment auf der F1-Hilfe.

(Habe kein Indy installiert).

stigge - Fr 06.04.07 17:06

Karlson hat folgendes geschrieben:

Hab gerade noch was interesantes gefunden:
[DCC Fehler] Unit1.pas(117): E2010 Inkompatible Typen: 'TIdMessage' und 'TIdAttachment' :autsch:

Muss man eventuell irgendwas einbinden? (uses-liste)

stigge - Fr 06.04.07 17:17

Karlson hat folgendes geschrieben:

Nicht das ich wüsste...

Zitat:

Poste mal deine komplette Routine zum versenden.

Delphi-Quelltext

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:

   Nachricht := TIDMessage.Create(nil);
   SMTP := TidSMTP.create(nil);
   try

      try

         Nachricht.Subject := 'was weiß ich';

         Nachricht.From.Address := adresse;
         Nachricht.Recipients.Add.Address := adresse;
         Nachricht.Sender.Address := adresse;

         Nachricht.Body.Clear;
         Nachricht.Body.Add('irgendein text');
         Nachricht.Body.Add('noch ein text');
         SMTP.Host := hoster;
         SMTP.Port := platz;
         SMTP.Username := namen;
         SMTP.Password := passwort;

         SMTP.Connect;
         SMTP.Send(Nachricht);
         showmessage('Fertig!');
      except
         on E: Exception do
         begin
         showmessage('Fehler!');
         end;
      end;

   finally
SMTP.Disconnect;
smtp.Free;
Nachricht.Free;
end;

Die Email kommt immer an, also daran liegt's nicht.
Ich schicks immer an meinen Account bei web.de
Die Datei, die angehängt werden soll ist übrgens eine Textdatei

raziel - Sa 07.04.07 08:54

stigge hat folgendes geschrieben:

Blackheart666 hat folgendes geschrieben:

Gelten für Dich die Forenregeln Nicht ! :!:

Ich warte eigentlich auch schon drauf, gekickt zu werden :wink:

Ich hab das intern mal zur Diskussion gestellt, bis das geklärt ist mach ich hier erstmal dicht. Gut gemeinter Rat: Erstell aufgrund dessen nicht einfach noch ein Topic zu dem Thema.

Gruß,
raziel

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!