XProfan

@Georg
Roland ha en seinen Subscriptions-Sendungen veces esta Texto con geschickt. Denke, dass Usted así qué anfangen kannst. Yo habe todavía no getestet, porque Yo el no brauche
Kompilieren Marca Separación

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

Yo glaube lo son no einheitlich-funktionierende y mailclientübergreifende Syntax Dateianhänge por Mailto-Aufruf a definieren.

Was spricht gegen una Upload-Formular (en el Web) oder gegen el XProfan-eigenen EMail-Características (Benutzerdaten?) ?

Bilddateien por EMail senden es desafortunadamente sowieso bastante trafficintensiv porque el Daten zuvor Base64-Kodiert voluntad.

Georg
Bernhardt

Soll una Programa para Computer Dummys ser, Digi Bilder a komprimieren y igual wegzuschicken, y debería así trabajo como zip y Mail

XProfan 10