Mail mit Anhang versenden

Georg B., 15.03.2008 18:47: Hallo
möchte gerne aus einem Profan Programm eine Mail über den Standart Mail Client versenden, möglichst mit mehreren Anhängen.

shellexec("mailto:name@domain.de?subject=Ein Test-Betreff&body=sie erhalten Bilder&attach='C:\Profan\bildbetrachter\bild.jpg'","open",1)
funktioniert nicht. Das heisst alles andere funzt aber die Dateien werden nicht angehängt:
Gibt es eine andere Lösung?

Horst Horn, 15.03.2008 19:05: @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

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! \nGruss 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=\q22334466\q"
addstring "--22334466"' Beginn der Nachricht
addstring "Content-Type: text/plain; charset=\qiso-8859-1\q"
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

David Strutz, 15.03.2008 19:06: 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 B., 15.03.2008 19:40: Soll ein Programm für Computer Dummys sein, Digi Bilder zu komprimieren und gleich wegzuschicken, und sollte so funktionieren wie "zip und Mail"

Dies ist die Offlinevariante vom Thread [Mail mit Anhang versenden].