Das deutsche QBasic- und FreeBASIC-Forum

[amsel]

hallo,
ich habe ein programm geschrieben, wo bei einem bestimmten ereigniss eine mail versand werden soll.

ich habe im monster faq die beiden links mir angeschaut. doch der eine geht nicht und das uka_PPP (soweit ich das verstanden habe ist ja dazu da um mails zu holen und zu versenden) oder??

könnt ihr mir einen tip geben

dankeschön

viele grüße amsel
_________________
Sei so frei
das es dir egal ist,
wie andere über dich denken.
Du wirst glücklicher sein,
wenn du dir gefällst.

[Thomas Antoni]

Dazu habe ich mir für die QB-MonsterFAQ vorgemerkt...

-------------------------------------------------------------------------------------

Frage deutsch
~~~~~~~~~~~~~~~~
Wie greift mein Programm auf E-Mail-Funktionen zu?

Antwort 1
~~~~~~~~~~~~~~~~
[ von Andreas Meile ( qbasicde@dreael.ch) im QB-Forum, 25.4.2004 ]

Zum Aufrufen von E-Mail-Funktionen mit Qbasic gibt es u.a. folgende Ansätze:


*** Ansatz 1: mit Sockets.
Probiere einmal ein Telnet auf Port 25 Deines Providers machen. Gib dort

telnet smtp.meinisp.de 25
220 smtp.meinisp.de SMTP Sendmail ready.
HELO qbasic.de
250 Pleased meet you
MAIL From: absender@darkangel.de
250 Sender ok
RCPT To: darkangel@darkangel.de
250 Recipient ok
DATA
354 Enter mail, and end with "." on a line by itself
From: "Dark Angel" <absender@darkangel.de>
To: darkangel@darkangel.de
Subject: Test

Dies wird direkt mit handerzeugtem SMTP-Protokoll
versendet.
.
250 Message accepted for delievery
QUIT
221 closing connection

ein. Dieses einfache Protokoll solltest Du wie unter

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/InternetMitQuickBASIC.html

beschrieben umsetzen können. Details siehe RFC 2821, also

http://www.ietf.org/rfc/rfc2821.txt

Diese Methode eignet sich in einer reinen MS-DOS 6.22-Umgebung am besten.

...::: Tipp:
SMTP ist ein dialogorientiertes Protokoll, wo man immer die Rückantwort
abwarten muss, bevor man zum nächsten Schritt übergeht. Speziell diese
-stelligen Codes der Rückmeldungen muss man auswerten. Für weitere Details
siehe

http://www.ietf.org/rfc/rfc2821.txt


*** Ansatz 2: Zuhilfenahme von VBScript und SHELL
Falls ein Windows NT Option Pack mit dem SMTP-Dienst drauf ist, solltest Du über
das "CDONTS.NewMail"-Automatisierungsobjekt eine E-Mail scriptgesteuert absetzen
können. Jeder ASP-Programmierer (ASP = Active Server Pages vom Internet
Information Server von Microsoft) kennt dies.

In QBasic sieht dies etwa wie folgt aus:

[amsel]

dankeschön für die schnelle antwort.

bis jetzt hab ich es noch nicht hinbekommen aber ich probier morgen weiter.

viele grüße amsel
_________________
Sei so frei
das es dir egal ist,
wie andere über dich denken.
Du wirst glücklicher sein,
wenn du dir gefällst.