Hi. In einem meiner Programm will ich den Benutzern die Möglichkeit geben, mir E-Mails zu senden. Meine Vorstellung ist, daß dafür ein Fenster existiert mit zwei Textfeldern. Deren Werte sollen mir auf Knopfdruck zugesandt werden können (an meine Yahoo-E-Mail-Adresse). Hat jemand so etwas schon mal gemacht? Wie kann ich dies erreichen?

Mit einer brauchbaren SMTP Komponente und den Zugangsdaten, oder per Outlook mit den üblichen Warnmeldungen die der Benutzer bestätigen muss.

Kommt Delphi (in meinem Fall die Version 7) mit eigenen SMTP-Komponenten daher? Ich habe mich mal in dessen "Internet"-Registerkarte umgesehen, aber nichts gefunden, was direkt "SMTP" im Namen hat.

Ansonsten wäre meine resultierende Frage, ob Du mir bestimmte SMTP-Komponenten anderer Entwickler nennen kannst, falls Du da etwas wissen solltest. Vorzugsweise FreeWare. Ich werde mich auch noch mal im Internet umschauen, aber direkte Hinweise sind mir auch ganz Recht.

-INDY
-Synapse
-ICS

Hier mal ein Tutorial...

Indy

Viel Spaß und Gruß Jens

Eine Alternative zu SMTP und oder Outlook wäre, dass du das Ganze über ein PHP-Script auf einem Webspace machst. Kostenlosen Webspace gibt es zum Beispiel bei funpic.de (oder vielleicht hast du schon einen)

An das kleine PHP-Script sendest du mittels TIdHTTP.Post (hier) die Daten.

Im PHP-Script werden die Daten dann mit $_POST['...'] eingelesen und mit der mail(...)-Methode als E-Mail verschickt.

Das Ganze hat den Vorteil, dass du kein extra E-Mail Konto angeben musst, wie bei SMTP, aber den Nachteil, dass, wenn du den Webspace nicht mehr haben willst, es nicht mehr funktioniert.

Weitere Hilfe durchaus nicht wenig willkommen.

Hi erneut.

Ich habe jetzt folgenden Code zum Senden einer E-Mail, doch mein Programm "erstarrt" beim Betätigen des Versandknopfes.

zusammenfalten · markieren

Delphi-Quellcode:

uses
  ... IdBaseComponent, IdComponent, IdTCPServer, IdSMTPServer, Gradient,
  IdMessage, IdUDPBase, IdUDPClient, IdSNMP, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, idreplysmtp, IdExplicitTLSClientServerBase,
  IdSMTPBase;

...

procedure TEpsilon.ButtonMailClick(Sender: TObject);
begin
 idSMTP.Host:='smtp.googlemail.com';
 idSMTP.Port:=465; //smtp service usually runs on this port 25 but GMail wants 465
 idSMTP.Password:='MyPassword';
 //setup idmessage parameters
 idmessage.From.address:=EditEMail.Text;
 idmessage.Recipients.EMailAddresses:='MeinComputerProgram@gmail.com';
 idmessage.CCList.EMailAddresses:='';
 idmessage.BccList.EMailAddresses:='';
 idmessage.Subject:='Mein Computer Program';
 idmessage.Body.Text:=EditMailEra.Text+EditMailOld.Text+EditmailAmount.Text+EditMailModern.Text;
 idmessage.Body.Text:=idmessage.Body.Text+MemoMail.Lines.Text;
 //send the message
 try
  try
   idSMTP.Connect;
   LabelStatus.Caption:='Connecting...'; //…then show the message
   LabelStatus.Hint:='Connecting...'; //…then show the message
   idSMTP.send(idmessage);
   LabelStatus.Caption:='Sending...'; //…then show the message
   LabelStatus.Hint:='Sending...'; //…then show the message
  //if an exception occurs…
  except
   on E: EIdSMTPReplyError do
   begin
    LabelStatus.Caption:=E.Message; //…then show the message
    LabelStatus.Hint:=E.Message; //…then show the message
   end;
  end;
 finally
  //disconnect from server
  if IdSMTP.Connected then
  begin
   IdSMTP.Disconnect;
   LabelStatus.Caption:='Disconnecting...'; //…then show the message
   LabelStatus.Hint:='Disconnecting...'; //…then show the message
  end;
 end;
end;

Außerdem benutze ich die Indy-Komponenten "IDMessage" und "IDSMTP".

- GMail will aber auch "My Server requires authentication" haben. Liegt es vieleicht daran?
- Und wenn, wie baue ich dies ein?
- Was sonst ist eventuell falsch oder Schuld am Erstarren des Programmes?
- Wie kann ich laufend die Caption vom StatusLabel den Status anzeigen lassen (beim Erstarren ist es leer)?

First step:
Check your authentication settings and verify that your gmail account is set up for external sending.

Second step:
Program example
http://www.marcocantu.com/tips/oct06_gmail.html

Otherwise:
I upload a sample GMailSend-Application.