XProfan

Français

Erasmus.Herold

allô zusammen.

toujours wieder benutzt je qui Mail-Funktion dans XProfan.
So richtig zufrieden suis je avec den Opportunités nie gewesen.
Aus diesem Grund habe je une Mail-Procédure gebaut,
qui une unbegrenzte Anzahl à Dateianhängen erlaubt.

chez Aufruf volonté Sender, Empfänger, Betreff et mehrzeiliger Text
mitgegeben, en supplément alle Dateianhänge (aussi avec Pfad).

Kompilieren Marque Séparation

declare bereich#, len&, la cousine64$
declare dateianhang_name$[], dateianhang_base64$[], z%, anzahl_anhaenge%
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// PROZEDUREN

PROC MAIL_MIT_ANHAENGEN

    Paramètres à partir de$, to$, subject$, text$, attachment$
    declare z%
    z% = 1
    anzahl_anhaenge% = 1

    tandis que (z% <= len(attachment$))

        si (mid$(attachment$,z%,1) = "|")

            INC anzahl_anhaenge%

        endif

        INC z%

    endwhile

    z% = 1

    tandis que (z% <= anzahl_anhaenge%)

        dateianhang_name$[z%] = substr$(attachment$,z%,"|")
        INC z%

    endwhile

    clearlist
    // Beginn des Headers
    addstring à partir de$
    addstring to$
    addstring à partir de$
    addstring to$
    addstring "Date: " + Date$(5)
    addstring "Subject: " + subject$
    addstring "Mime-Version: 1.0"
    // boundary = qui liaison entre nouvelle et Anhang
    addstring "Content-Type: multipart/mixed; boundary=\q22334466\q"
    addstring "--22334466"' Beginn qui nouvelle
    addstring "Content-Type: text/plain; charset=\qiso-8859-1\q"
    addstring "Content-Transfer-Encoding: quoted-printable"
    addstring »
    addstring text$
    // ANHANG
    z% = 1

    tandis que (z% <= anzahl_anhaenge%)

        addstring "--22334466"
        addstring "Content-Type: file/unknown; name=\q" + dateianhang_name$[z%] + "\q"
        addstring "Content-Transfer-Encoding: la cousine64"
        addstring "Content-Disposition: attachment; filename=\q" + substr$(dateianhang_name$[z%],-1,"\") + "\q"
        addstring »
        // la cousine64-String häppchenweise (je 72 marque) anfügen
        len& = FileSize(dateianhang_name$[z%])
        Faible bereich#, len&
        BlockRead(dateianhang_name$[z%], bereich#, 0, len&)
        la cousine64$ = encode64(char$(bereich#, 0, len&))

        tandis que len(la cousine64$) > 72

            addstring left$(la cousine64$,72)
            la cousine64$ = del$(la cousine64$,1,72)

        endwhile

        addstring la cousine64$
        'imprimer "Dateiname: " + dateianhang_name$[z%]
        'imprimer "Base64: " + la cousine64$
        'imprimer "Länge: " + str$(len&)
        INC z%

    endwhile

    addstring »
    addstring "--22334466--"

ENDPROC

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// MAIL-VERSAND
// SYNTAX: MAIL_MIT_ANHAENGEN VON, AN, BETREFF, MAILTEXT_MIT_UMBRÜCHEN, DATEIANHÄNGE_MEHRERE_DURCH_PIPE_GETRENNT
MAIL_MIT_ANHAENGEN "absender@server.de", "empfänger@server.de", "Mail avec Anhängen", "Hallo ...\n\nHier venez une\nMail avec mehreren\nAnhängen.\n\nEnde ...", "Emoji Smiley-05.png|Emoji Smiley-04.png|Emoji Smiley-01.png"
imprimer smtp("SendRaw", "mail-server.de", », »)
end