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:
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).
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); From.Text := UserEmail; ReplyTo.EMailAddresses := UserEmail; Recipients.EMailAddresses := Edit6.Text; Subject := Edit7.Text; ReceiptRecipient.Text := From.Text; end;
IdSMTP1.Username := SmtpServerUser; IdSMTP1.Password := SmtpServerPassword; IdSMTP1.Host := SmtpServerName; IdSMTP1.Port := SmtpServerPort; IdSMTP1.Connect; try IdSMTP1.Send(IdMessage1); finally IdSMTP1.Disconnect; end; end; |
Das wars!
Moderiert von Narses: Beitrag überarbeitet.[meta]SMTP Email Mail Message Nachricht[/meta]