Autor Beitrag
superchatti
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 296

Win XP, Red Hat Linux 7.3
Delphi 6 PE
BeitragVerfasst: Mi 23.04.03 14:34 
Wir brauchen:
  • 7 Edits
  • 1 Memo
  • 1 OpenDialog
  • 1 IdSMTP (Indy Clients)
  • 1 IdMessage (Indy Misc)
  • 1 Buttons
So dann fangen wir mal an!Wie ihr die einzelnen Kompos nennt ist euch überlassen!

Hier das fügt ihr erstmal bei var ein:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
   SmtpServerName: String;
   SmtpServerPort: Integer;
   SmtpServerUser: String;
   SmtpServerPassword: String;
   SmtpAuthType: Integer;
   UserEmail: String;

Jetzt konfigurieren wir das Senden(Button1).
ausblenden volle Höhe 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:
procedure TMessageForm.Button1Click(Sender: TObject);
begin
  Edit1.Text := SmtpServerName;
  Edit2.Text := IntToStr(SmtpServerPort);
  Edit3.Text := SmtpServerUser;
  Edit4.Text := SmtpServerPassword;
  Edit5.Text := UserEmail; 
 with IdMessage1 do
      begin
         Body.Assign(Memo1.Lines);//Was soll ich senden?
         From.Text := UserEmail;//Von wem ist die Nachricht?
         ReplyTo.EMailAddresses := UserEmail;
         Recipients.EMailAddresses := Edit6.Text;//Wem soll ich die Msg senden?
         Subject := Edit7.Text; //Wie lautet der Betreff?
         ReceiptRecipient.Text := From.Text;//Von wem?
      end;

   IdSMTP1.Username := SmtpServerUser;//Welcher Benutzer?
   IdSMTP1.Password := SmtpServerPassword;//Welches Passwort??

//Generelles Setup
   IdSMTP1.Host := SmtpServerName;//Welchen Host soll ich benutzen?
   IdSMTP1.Port := SmtpServerPort;//Welchen Port soll ich benutzen?

//Hier wird die Nachricht gesendet und die Verbindung aufgebaut!
   IdSMTP1.Connect;//Stelle Verbindung her
   try
      IdSMTP1.Send(IdMessage1);//Versuche die Nachrich zu senden
   finally
      IdSMTP1.Disconnect;//Wenn du es geschafft hast, dann trenne die Verbindung
   end;
end;

Das wars!

Moderiert von user profile iconNarses: Beitrag überarbeitet.[meta]SMTP Email Mail Message Nachricht[/meta]


Zuletzt bearbeitet von superchatti am Fr 25.04.03 16:52, insgesamt 1-mal bearbeitet