Entwickler-Ecke

Internet / Netzwerk - Datentransfer mit E-mail


eddyp - Fr 28.06.02 00:34
Titel: Datentransfer mit E-mail
Schön, das es das Forum noch-wieder gibt !
Leider habe ich noch immer keine Ahnung wie ich eine bestimmte Datei (warscheinlich als Anhang) an eine (immer gleiche) Adresse sende. Kann da jemand helfen.


Arakis - Fr 28.06.02 01:00
Titel: Falsche Sparte?
Ich vermute, dass du dich hier mit der Sparte vertan hast, es war sicherlich "Internet / Netzwerk" gemeint. :wink:
Hier ist das FAQ dieser Sparte.

Bis dann
user defined image


Klabautermann - Fr 28.06.02 01:12

Hi,

hier ein vereinfachter (und umgestellter) Auszug aus meinem Mail Programm. Das ganze funktioniert mit den Indy 8 [http://www.nevrona.com/Indy/download80.html] Komponenten:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
  // Nachricht vorbereiten (msg : TIdMessage)
  msg.Clear;
  msg.Body.AddStrings('Nachrichtentext');
  msg.From.Address := 'mir@hier.de';
  msg.Recipients.EMailAddresses := 'du@da.de';
  msg.Subject := 'Betreff';
  tIdAttachment.Create(msg.MessageParts, 'C:\Autoexec.Bat');
  // Server Vorbereiten (smtp : TIdSMTP)
  smtp.Host := 'smtp.hier.de';
  smtp.UserId := 'ich@hier.de';
  smtp.Password := '';
  smtp.Port := 25;
  // Am Server Anmelden und abschicken
  SMTP.Connect;
  SMTP.Send(Msg);


Gruß
Klabautermann


Jagg - Fr 19.07.02 10:34

Also ich mache das so !

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.PostMessage.FromAddress    := Edit1.Text;
  NMSMTP1.PostMessage.ToAddress.Text := Edit2.Text;
  NMSMTP1.PostMessage.Subject        := Edit3.Text;
  NMSMTP1.PostMessage.Body.Text      := Memo1.Text;
  NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items);
  NMSMTP1.SendMail;
end;




Jetzt hast du die Wahl ! *hehe*

Aber wen du kein Indy hast dann ist ....glaub ich besser !
*hehe*