send mail mit Delphi 5

[eknori]

Hi,

hat da jemand eine kleine Funktion für mich, mit der ich aus einer Delphi Appl. eine Mail versenden kann ??

Hab schon gegoogled finde aber nichts brauchbares...

eknori

[Pavel]

Hallo,

falls Du Delphi 5 Prof. zur Hand hast, ist es ganz einfach.
Dazu muß man nur die Komponente TNMSMTP verwenden und sich durch die Delphi-Hilfe kämpfen. Kleines Bsp., funktioniert auch, allerdings müßte man bei gmx vorher einen pop3 aufruf machen, habe ich vorher händisch per outlook gemacht, nur zum testen.
Ich hoffe es hilft weiter.



unit smtptestunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Psock, NMsmtp, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    NMSMTP1: TNMSMTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host:='mail.gmx.net';
  NMSMTP1.UserID:='XXXUser';
  NMSMTP1.Connect;
  if nmsmtp1.Connected then
  begin
    NMSMTP1.SubType := mtPlain;
    NMSMTP1.PostMessage.FromAddress:='hallo@gmx.de';
    NMSMTP1.PostMessage.FromName:='Testername';
    NMSMTP1.PostMessage.ToAddress.Text:='dummdiedumm@web.de';
    NMSMTP1.PostMessage.Body.Text:='Testmail';
    NMSMTP1.SendMail;
  end
  else
  begin
    showmessage('keine verbindung');
  end;
  NMSMTP1.Disconnect;
end;

end.

[eknori]

@Pavel:

wie du wahrscheinlich vermuten wirst, geht es um die usb Geschichte; statt net send soll eine Mail an die admins verschickt werden.
Und bevor ich mich jetzt auch noch in Delphi einarbeiten muss  , dachte ich, ich frag mal.
Hatte mir schon die Indy Sachen installiert, in der Hoffnung, das geht dann leichter, aber war nicht.

Also, danke dir für die Hilfe...

Ulrich

[Pavel]

Hallo,

ich werde das mal demnächst einbauen, am besten noch mit ner kleinen config-datei zur konfiguration des mail-servers und der mail-empfänger.
es kann aber ein weilchen dauern. irgendwie bin ich damals von der weiterentwicklung abgekommen.

bis dann

[eknori]

mal ne Frage zum Handling.

wie ist deine Erfahrung mit den Usern; fummeln die dann auch gerne mal an der Config rum ?? Man könnte ja die Werte auch in die Registry schreiben

kleine MOD:

Ich habe statt des "harten" Logout einfach nur den Arbeitsbereich gesperrt ( Aufruf von LockWorkStation ).

[Pavel]

Hallo,

da die config-datei in einem unterverzeichnis windows-verzeichnis liegt, gilt dort die Regel, dass der normale User die datei nicht ändern kann. ist von den zugriffsrechten bei winxp standardmäßig so eingestellt.