XProfan

@Georg
Roland hat dans seinen Subscriptions-Sendungen la fois cette Text avec envoyé. Denke, dass Du avec cela quoi anfangen peux. j'ai encore pas getestet, weil je cela pas brauche
Kompilieren Marque Séparation

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
../funktionsreferenzen/XProfan/waitinput/'>waitinput

je crois il y a aucun unique-funktionierende et mailclientübergreifende Syntax Dateianhänge per Mailto-Aufruf trop définir.

quoi spricht vers un Upload-formulaire (im Web) ou bien vers qui XProfan-eigenen EMail-Funktionen (Benutzerdaten?) ?

Bilddateien per EMail senden ist malheureusement sowieso assez trafficintensiv weil qui données zuvor la cousine64-Kodiert volonté.

Georg
Bernhardt

Soll un Programme pour ordinateur Dummys son, Digi Bilder trop komprimieren et juste wegzuschicken, et sollte so marcher comment zip et Mail

XProfan 10