Datentransfer mit E-mail

eddyp · Beiträge: 58

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.

_________________
Grüsse, eddyp

Arakis · Beiträge: 344

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

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

Klabautermann · Verfasst: Fr 28.06.02 01:12

Hi,

hier ein vereinfachter (und umgestellter) Auszug aus meinem Mail Programm. Das ganze funktioniert mit den Indy 8 Komponenten:

markieren

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 · Beiträge: 635

Also ich mache das so !

markieren

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*

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme