arduno
Anmeldungsdatum: 12.05.2011 Beiträge: 252
|
Verfasst am: 28.11.2015, 12:47 Titel: Betreff im Mail : kein betreff |
|
|
Hallo, guten Tag.
In der Zeile Betreff steht "kein Betreff" im Mail, welches ankommt.
Ich finde den Fehler nicht in diesem Demo-Programm von Freebasic:
Code: |
##############################################################################################################
'TEST-SMTP-Sender für TSNE_V3
'##############################################################################################################
'##############################################################################################################
#INCLUDE ONCE "TSNE_V3.bi" 'Die TCP Netzwerkbibliotek integrieren
'##############################################################################################################
DIM SHARED G_Client AS UINTEGER 'Eine Variable für den Client-Handel erstellen
DIM SHARED G_Data AS STRING 'Variable zum speichern der Eingehenden Daten
DIM SHARED G_State AS UINTEGER 'Variable die den aktuellen Status der Ãœbermittlung speichert
'Variablen für die E-Mail Daten
DIM SHARED XServer AS STRING
DIM SHARED XFrom AS STRING
DIM SHARED XTo AS STRING
DIM SHARED XBetreff AS STRING
DIM SHARED XNachricht AS STRING
'##############################################################################################################
' Deklarationen für die Empfänger Sub Routinen erstellen
' Nur dann nötig, wenn die Sub's unterhalb des aufrufs stehen.
DECLARE SUB TSNE_Disconnected (BYVAL V_TSNEID AS UINTEGER)
DECLARE SUB TSNE_Connected (BYVAL V_TSNEID AS UINTEGER)
DECLARE SUB TSNE_NewData (BYVAL V_TSNEID AS UINTEGER, BYREF V_Data AS STRING)
'##############################################################################################################
PRINT "[INIT] Client..." 'Programm beginnen
DIM BV AS INTEGER 'Variable für Statusrückgabe erstellen
DIM D AS STRING
XServer = "mail.arcor.de"
XFrom = "hallo@arcor.de"
XTo = "hallo@arcor.de"
XBetreff = "von freebasic"
XNachricht = "28.11.15"
IF XServer = "" THEN
PRINT "Kein Server angegeben! Versuche E-Mail direkt zu senden!"
DIM XPos AS UINTEGER = INSTR(1, XTo, "@")
IF XPos > 0 THEN XServer = MID(XTo, XPos + 1)
END IF
PRINT "[Verbindungsaufbau zum Server]" 'Verbindungsaufbau
BV = TSNE_Create_Client(G_Client, XServer, 25, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData, 60)
' Statusrückgabe auswerten
IF BV <> TSNE_Const_NoError THEN
PRINT "[FEHLER] " & TSNE_GetGURUCode(BV) 'Fehler ausgeben
END -1 'Programmbeenden
END IF
PRINT "[Verbindung hergestellt]"
TSNE_WaitClose(G_Client) 'Wir warten solange bis die Verbindung beendet wurde
PRINT "[Fertig]"
END 'Anschliessend beenden wir unser Programm
'##############################################################################################################
SUB TSNE_Disconnected(BYVAL V_TSNEID AS UINTEGER)
PRINT "[Verbindung Beendet]"
END SUB
'##############################################################################################################
SUB TSNE_Connected(BYVAL V_TSNEID AS UINTEGER)
PRINT "[Verbindung besteht]" 'Verbindung wurde erfolgreich hergestellt.
END SUB
'##############################################################################################################
SUB TSNE_NewData (BYVAL V_TSNEID AS UINTEGER, BYREF V_Data AS STRING)
G_Data += V_Data
DIM XPos AS UINTEGER
DIM T AS STRING
DO
XPos = INSTR(1, G_Data, CHR(13, 10))
IF XPos = 0 THEN EXIT DO
T = MID(G_Data, 1, XPos - 1)
G_Data = MID(G_Data, XPos + 2)
SELECT CASE VALUINT(LEFT(T, 3))
CASE 220
TSNE_Data_Send(V_TSNEID, "HELO Direkt_Mailer" & CHR(13, 10))
CASE 221
TSNE_Disconnect(V_TSNEID)
PRINT "E-Mail Erfolgreich versand!"
CASE 250
SELECT CASE G_State
CASE 0: TSNE_Data_Send(V_TSNEID, "MAIL FROM:<" & XFrom & ">" & CHR(13, 10))
CASE 1: TSNE_Data_Send(V_TSNEID, "RCPT TO:<" & XTo & ">" & CHR(13, 10))
CASE 2: TSNE_Data_Send(V_TSNEID, "DATA" & CHR(13, 10))
CASE 3: TSNE_Data_Send(V_TSNEID, "QUIT" & CHR(13, 10))
END SELECT
G_State += 1
CASE 354
TSNE_Data_Send(V_TSNEID, "From: <" & XFrom & ">" & CHR(13, 10) & "To: <" & XTo & ">" & CHR(13, 10) & "Subjekt: " & XBetreff & CHR(13, 10) & CHR(13, 10) & XNachricht & CHR(13, 10) & "." & CHR(13, 10))
CASE ELSE
TSNE_Disconnect(V_TSNEID)
PRINT "Fehler beim Senden der E-Mail!"
END SELECT
LOOP
END SUB
|
Danke.
Gruss |
|