Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

test_smtp_sendmail.bas

Uploader:MitgliedThePuppetMaster
Datum/Zeit:27.01.2009 01:24:18
Hinweis: Dieser Quelltext ist Bestandteil des Projekts TSNEX V2/V3 (Extension), zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

'##############################################################################################################
'SMTP_SendMail TEST-CLIENT für TSNE_V3 und TSNEX_V3
'##############################################################################################################



'##############################################################################################################
#include once "TSNEX_V3.bi"             'Wir binden die TSNE-X Version 3 ein. Sie beinhaltet bereits die TSNE_V3



'##############################################################################################################
'Die Geben wir einige Daten an, die zum Senden von E-Mails nötig sind.

'Der RelayServer ist ein Server, der unsere E-Mail entgegen nimmt, und entsprechend Weiterleitet
'Wird kein RelayServer angegeben, dann versucht die Funktion die E-Mail direkt zum Empfänger zu senden
'Das Funktioniert jedoch nicht immer. GMX z.B. Verweigert die entgegennahme von E-Mail, welche nicht
'von einem "offiziellem" E-Mail Ralay stammen.
'T-Online kunden bietet seinen Kunden einen Kostenlosen Server an, der ausschliesslich von einem
'T-Online Internet-Anschluss genutzt werden kann.
'Steht einem Dieser Server nichtzur verfüfung kann hier auch ein E-Mail Hoster angegeben werden. z.B. GMX
'selbst. Dann Versucht die Funktion diesen Server zu kontaktieren (Benutzername und Passwort sind dabei
'erfoderlich), und sendet diese E-Mail über diesen Server, falls die Anmeldung erfolgreich war.
'Einige Hoster benötigen hier eine Aktivierung dieses Dienstes in den Einstellungen des entsprechenden
'Benutzer Kontos. Wie die Server-Adresse lautet, kann man bei seinem E-Mail Hoster erfragen.
'Ein Yahoo SMTP-Relay ist: "smtp.mail.yahoo.de", benötigt jedoch Benutzername und Passwort
Dim XRelayServer as String = "smtprelay.t-online.de"

'Der StandardPort für einen SMTP-Server
Dim XRelayPort as UShort = 25

'Wird ein Relay-Server verwendet, der Benutzername und Passwort erfodern tragen wir diese hier ein.
Dim XUsername as String = ""
Dim XPassword as String = ""

'Die Absender E-Mail andresse (Wenn Benutzername und Passwort erfoderlich sind, kann hier meist nur
'die E-Mailadresse eingetragen werden, die auch zum Benutzerkonto past!)
Dim XMailFrom as String = "Foobar@TSNEX.de"

'Die E-Mail Adresse des Empfängers
Dim XMailTo as String = "Barfoo@TSNEX.de"

'Ein Betreff für die EMail
Dim XSubject as String = "A short test mail"

'Der eigentliche Text der E-Mail. Dieser txt darf für diesen Funktionsaufruf eine gesammtlänge von 100KiloByte nicht überschreiten
'Theoretisch wäre ein grösserer Text möglich, da diese Funktion jedoch eher für kleine Kompakte E-Mails die von einem
'Programm generiert werden, vorgesehen ist, reicht das massig aus.
Dim XMessage as String = "Hello!" & Chr(13, 10) & "This is a short testmail sending by TSNEX" & Chr(13, 10) & Chr(13, 10) & "Greetings"


'Hier rufen wir die SMTP 'E-Mail senden' Funktion auf und übergeben alle Parameter an die Funktion.
'Als XRelayServer parameter kann auch eine URL angegeben werden, die folgenden Aufbau besitzen muss:
'SMTP://[<Username>[:<Password>]@]<RelayServer>[:<RelayPort>]
Dim RV as Integer = TSNEX_SMTP_SendMail(XRelayServer, XRelayPort, XUsername, XPassword, XMailFrom, XMailTo, XSubject, XMessage)

If RV <> TSNEX_Const_NoError Then         'Prüfen, ob die Abfrage erfolgreich war. Wenn nicht
    Print TSNEX_GetGURUCode(RV)             'dann geben wir den Fehlercodezurück
    End -1                                  'Und beenden das Programm
End If



End 0                                       'Zum schluss das Programm sauber beenden