eMail an mehrere Adressen schicken (Indy 10)

[Svenkan]

Ich habe bei meinem Programm nun eine Funktion eingebaut, dass man, nachdem festgelegte Dateien hochgeladen wurden, eine eMail an eine bestimmte Adresse verschickt werden kann.
Gibt es eine Möglichkeit, diese auch direkt an mehrere Adressen zu verschicken?

[mkinzler]

Grunsätzlich ja, indem man mehere cc-Adressen angibt.

[Svenkan]

Also ich habe das Ganze über eine ListBox konfiguriert und den Inhalt in der email.rec (ganz normale Textdatei; Endung nur zur besseren Unterscheidung) gespeichert.
Wie bekomm ich diese nun also CC-Adressen richtig ins Programm?

[mkinzler]

Wie verschickst du die Email?

[Svenkan]

Per Indy10. Ich hatte hier in der CodeLibrary ein Codebeispiel dafür gefunden. (http://www.delphipraxis.net/internal...ct.php?t=74445).

[raffo]

Gehts denn nicht mit dem EINFACHSTEN, einfach mehrere eMails hintereinander schreiben [e-mail];[e-mail] - also bei mir gehts!

Nachteil ist nur, das die Leute den Verteiler sehen. Sonst müsstest Du halt das BCC Tag benutzen.

[Svenkan]

Mhm..
Kann man denn die Zeilen der txt-Datei so einlesen, dass sie durch ein Semikolon abgetrennt gelistet werden?

Dass sie dies sehen, wird in dem Fall keinen Nachteil darstellen, da es sich um ein Programm für HTML-Stundenpläne handelt und sich die Empfänger - sprich Lehrerkollegen - eigtl sowieso kennen sollten. ^^

[raffo]

Delphi-Quellcode:

function TForm1.GetEmailString(myFile: String): String;
var 
  meineEmails: String;  // temp. String zum Zusammenbasteln des "results"
  s: String; //temp
  f: Textfile;
begin

  AssignFile(f,myFile);
  Reset(f);

  while not eof(f) do
    begin
    ReadLn(f,s);
    meineEmails:=meineEmails + ';' + s;
    end; //eof

  CloseFile(f); //myFile

  Result:=meineEmails;

end;

code is "handwritten", nix getestet. Über die Funktion liest Du also Deine Datei ein und erhälst halt [e-mail];[e-mail]

[RXR-Max]

ich bin zwar noch neu in dem gebiet, aber ich find das irgndwie lustig, wenn es auch so gehen würde. wenn das programm das genau so einliest wie es in dem textfile an genau die angegebene stelle dann müsste es doch aber eigentlich funzen!?

[Svenkan]

Zitat:

[Error] Unit1.pas(196): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

while not eof(f) do begin
s:=ReadLn(f,s);
meineEmails:=meineEmails + ';' + s;
end; //eof

Der Fehler tritt in der fettmarkierten Zeile auf.

Bisher muss ich dir aber schonmal danken. :)