XProfan

Español

Erasmus.Herold

¡Hola zusammen.

Immer otra vez benutzt Yo el Mail-Función en XProfan.
So correcto zufrieden bin Puedo usar el Möglichkeiten nie gewesen.
Aus diesem Grund Yo una Mail-Procedimiento gebaut,
el una unbegrenzte Anzahl a Dateianhängen erlaubt.

En Aufruf voluntad Sender, Empfänger, Betreff y mehrzeiliger Texto
mitgegeben, dazu todos Dateianhänge (auch con Pfad).

Kompilieren Marca Separación

declarar bereich#, len&, base64$
declarar dateianhang_name$[], dateianhang_base64$[], z%, anzahl_anhaenge%
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// PROZEDUREN

PROC MAIL_MIT_ANHAENGEN

    Parámetros from$, to$, subject$, texto$, attachment$
    declarar z%
    z% = 1
    anzahl_anhaenge% = 1

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

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

            INC anzahl_anhaenge%

        endif

        INC z%

    endwhile

    z% = 1

    mientras que (z% <= anzahl_anhaenge%)

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

    endwhile

    clearlist
    // Beginn des Headers
    addstring from$
    addstring to$
    addstring from$
    addstring to$
    addstring "Date: " + Date$(5)
    addstring "Subject: " + subject$
    addstring "Mime-Versión: 1.0"
    // boundary = el Verbindung zwischen Nachricht y Anhang
    addstring "Content-Type: multipart/mixed; boundary=\q22334466\q"
    addstring "--22334466"' Beginn el Nachricht
    addstring "Content-Type: texto/plain; charset=\qiso-8859-1\q"
    addstring "Content-Transfer-Encoding: quoted-printable"
    addstring ""
    addstring texto$
    // ANHANG
    z% = 1

    mientras que (z% <= anzahl_anhaenge%)

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

        mientras que len(base64$) > 72

            addstring left$(base64$,72)
            base64$ = del$(base64$,1,72)

        endwhile

        addstring base64$
        'imprimir "Dateiname: " + dateianhang_name$[z%]
        'imprimir "Base64: " + base64$
        'imprimir "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 con Anhängen", "Hallo ...\n\nHier kommt una\nMail con más\nAnhängen.\n\nEnde ...", "Emoji Smiley-05.png|Emoji Smiley-04.png|Emoji Smiley-01.png"
imprimir smtp("SendRaw", "mail-server.de", "", "")
end