XProfan

@Georg
Roland hat in seinen Subscriptions-Sendungen mal diesen Text mit geschickt. Denke, dass Du damit was anfangen kannst. Ich habe noch nicht getestet, weil ich das nicht brauche
Kompilieren Markieren Separieren

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
waitinput

Ich glaube es gibt keine einheitlich-funktionierende und mailclientübergreifende Syntax Dateianhänge per Mailto-Aufruf zu definieren.

Was spricht gegen ein Upload-Formular (im Web) oder gegen die XProfan-eigenen EMail-Funktionen (Benutzerdaten?) ?

Bilddateien per EMail senden ist leider sowieso ziemlich trafficintensiv weil die Daten zuvor Base64-Kodiert werden.

Georg
Bernhardt

Soll ein Programm für Computer Dummys sein, Digi Bilder zu komprimieren und gleich wegzuschicken, und sollte so funktionieren wie zip und Mail

XProfan 10