eMail - Versand

[lord.paddington]

Hallo!

Habe unter Delphi eMails mit NMSMTP versenden können.

Ist das auch unter Lazarus möglich?
Was muss ich nachträglich installieren und wie komme ich an die Packages heran?


Gruß Eure Lordschaft

[theo]

Immer schön Synapse benutzen
http://synapse.ararat.cz/" onclick="window.open(this.href);return false;

[lord.paddington]

Habe Synapse installiert und alle erforderlichen Units in mein Projekt eingebunden.

Gibt es einen Bsp.Code, wie ich

- den Absender
- den Empfänger
- den Benutzer
- den Server
- und den Port

über Synapse definieren kann?

Mit NMSMTP war es ein bietje leichter...

[Christian]

Ja, ist dabei

[theo]

Dafür gibt's ne vorgefertige Funktion namens SentTo:
http://synapse.ararat.cz/docs/help/smtpsend.html" onclick="window.open(this.href);return false;

[lord.paddington]

Hallo!

Ich hoffe, dass ich kurz vorm Durchbruch bin...
Leider bekomme ich noch keine eMail versendet.
Vielleicht erkennt ihr einen Fehler:

In der folgenden Prozedur werden die erforderlichen Variablen beschrieben und an die SendTo Funktion übergeben....danach passiert aber nichts!!!

Aus Unit 1 werden Daten an Unit smtpsend übergeben

Code: Alles auswählen

procedure TForm1.Alarm; 
begin 
  //eMail - Versand 
  //=> Mailinhalt generieren 
  body := TStringList.Create; 
  body.text := 'Trallaliundtrallala';
 
  //Absender laden 
  absender := Form2.Edit2.Text; 
  //Empfänger laden 
 
 empfaenger := Form2.Edit1.Text; 
  //smtp - Server laden 
  server := Form2.Edit3.Text; 
  //Daten übergeben 
  smtpsend.SendTo(absender, empfaenger, 'Betreff', server, body); 
  Timer1.Enabled:= true; 
end;

hier geht es in die Unit smtpsend

Code: Alles auswählen

function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string; 
  const MailData: TStrings): Boolean; 
begin 
  Result := SendToEx(MailFrom, MailTo, Subject, SMTPHost, MailData, '', '');
 
end;

...und nun warte ich auf eine Mail

[af0815]

Result ? true/false ?

[lord.paddington]

schiet


Result = false


und nu??? Wo steckt der Wurm???

[af0815]

Bau die Maildata mal Normkonform auf.

Ev. Hilfe: Mach einmal eine Session mit einem SMTP Server auf der Konsole mit deinem Daten.

Dann weisst du was ich unter Normkonformer Maildata meine.

[lord.paddington]

hier brauch ich einen Anstoss...wie kann ich das mit der Konsole herausfinden?

[af0815]

Telnet auf port 25 vom Mailserver und sowas durchspielen.

Code: Alles auswählen

S: MAIL FROM:<hugo@irgendwo.com>
      R: 250 OK
      S: RCPT TO:<boby@irgendwann.com>
      R: 250 OK
      S: DATA
      R: 354 Start mail input; end with <CRLF>.<CRLF>
      S: From: "hugo" <hugo@irgendwo.com>
      S: Message-Id: <19971112344.MAA18447@irgendwo.com>
      S: Subject: Siehst du ich?
      S: To: boby@irgendwann.org (Boby)
      S: Date: Thu, 13 Nov 2000 11:04:05 -0500 (EST)
      S: Content-Type: text
      S: 
      S: Ich packe es nicht, das ist zuviel
      S: -- 
      S:                                                 gruesse AF
      S: .
      R: 250 OK

S: Bist Du
R: Ist der Mailserver

[af0815]

Hint: In Zeile 6 steckt etwas, das könnte wichtig sein. Ob es das wirklich ist, weis ich nicht. Es ist eine Vermutung.

[lord.paddington]

Das habe ich noch auf der Synapse Seite gefunden!
Der Hänger scheint nach einigen Versuchen wirklich die Maildata zu sein.

Muss passen...wie hat die Maildata auszusehen???

function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string; const MailData: TStrings): Boolean;

A very useful function and example of its use would be found in the TSMTPsend object. Send "Maildata" (text of e-mail without any SMTP headers!) from "MailFrom" e-mail address to "MailTo" e-mail address with "Subject". (If you need more then one receiver, then separate their addresses by comma).

This function constructs all needed SMTP headers (with DATE header) and sends the e-mail to the SMTP server defined in the "SMTPhost" parameter. If the e-mail message is successfully sent, the result will be True.

If you need use different port number then standard, then add this port number to SMTPhost after colon. (i.e. '127.0.0.1:1025')

[Christian]

Braucht dein SMTP Server wirklich keinen login ? Sowas gibts meines wissens nicht mehr.

[lord.paddington]

Hallo!

Nein, das will ich ausschließen!
Mit meiner alten DELPHI - Applikation haben auch nur diese Daten ausgereicht!

Es handelt sich um den smtp - Server meines Arbeitsgebers!

Bei einem Login müsste ich dann ja auch zyklisch mein Passwort auf dem Rechner ändern, auf dem die Applikation läuft.


Gruß Eure Lordschaft