XProfan

@Georg
Roland has in its Subscriptions-Sendungen time this Text with skillful. think, that You so what begin can. I have not yet tested, because I not need
Compile Mark Separation

declare datei$, base64$, bereich#, len&
cls
Datei einlesen und in einen Base64-String umwandeln
datei$ = loadfile$(Datei laden:,*.jpg)

if datei$ >

    len& = FileSize(datei$)
    Dim bereich#, len&
    @BlockRead(datei$, bereich#, 0, len&)
    base64$ = encode64(char$(bereich#, 0, len&))

endif

Möglichkeit A: Datei mit dem neuen SendFile-Befehl verschicken
print smtp(SendFile, rgh-soft@t-online.de, roland@huelsmann.net,
Neue SendFile-Funktion,
popmail.t-online.de, username@t-online.de, passwort,
Das ist der Text der Mail!
Gruß Roland, datei$)
Dateinamen ohne Pfad ermitteln
datei$ = substr$(datei$,-1,\)
Möglichkeit B: Datei mit dem SendRaw-Befehl verschicken
clearlist
Beginn des Headers
addstring roland@huelsmann.net                  Bitte Anpassen
addstring rgh-soft@t-online.de                  Bitte Anpassen
addstring From: roland@huelsmann.net            Bitte Anpassen
addstring To: rgh-soft@t-online.de              Bitte Anpassen
addstring Date:  + Date$(5)
addstring Subject: Dateiversand mit SendRaw
addstring Mime-Version: 1.0
boundary = die Verbindung zwischen Nachricht und Anhang
addstring Content-Type: multipart/mixed; boundary=q22334466q
addstring --22334466  Beginn der Nachricht
addstring Content-Type: text/plain; charset=qiso-8859-1q
addstring Content-Transfer-Encoding: quoted-printable
addstring
addstring Eine Nachricht mit Datei-Anhang.
addstring
addstring Es wird in diesem Beispiel eine beliebige Datei als Anhang mitgegeben.
addstring
addstring
addstring Und Tschuess...
addstring --22334466  Jetzt kommt der Anhang
addstring Content-Type: file/unknown; name=q+datei$+q
addstring Content-Transfer-Encoding: base64
addstring Content-Disposition: attachment; filename=q+datei$+q
addstring
Base64-String häppchenweise (je 72 Zeichen) anfügen

while len(base64$) > 72

    addstring left$(base64$,72)
    base64$ = del$(base64$,1,72)

endwhile

addstring base64$
addstring
addstring --22334466--  Ende
print smtp(SendRaw, popmail.t-online.de, username@t-online.de, passwort) Bitte Anpassen
../Function-References/XProfan/waitinput/'>waitinput

I faith there's no uniform-working and mailclientübergreifende Syntax Dateianhänge by Mailto-appeal To define.

what speaks against one Upload-form (on the Web) or against The XProfan-own EMail-functions (Benutzerdaten?) ?

Bilddateien by EMail Send is unfortunately anyhow quite trafficintensiv because the data before Base64-Kodiert go.

Georg
Bernhardt

should one Program for computer Dummys his, Digi Images To telescope and same wegzuschicken, and ought to so functions How zipper and Mail

XProfan 10