Oliver März: Mailform mit Fileattachment

SELF-Forum

Mailform mit Fileattachment

Oliver März
– Informationen zu den Bewertungsregeln

Hallihallo,

ich suche dringend ein solches Mailform mit Fileattachment Möglichkeit.

Leider habe ich keine Ahnung, wie ich sowas bewerkstelligen kann :o(

Ich habe ein fertiges Script gefunden, was leider Kommerziell war und daher für mich nicht in Frage käme.

Vielleicht kann mir ja einer helfen.

Gruß

Oliver

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Mailform mit Fileattachment

    Reiner
    – Informationen zu den Bewertungsregeln

    Vielleicht kann mir ja einer helfen.

    Gruß

    Oliver

    Gerne!

    Alles Gute,
    Reiner

    ---------------------------------------------------------

    #!/usr/bin/perl

    $recipient = 'reiner.rusch@ctrl-de.de';
    $attachedFile = "daten.zip";

    &mailIt;

    print "Content-type: text/html\n\n";
    print <<ENDE;
    <html>
    <body>
    Vielen Dank für Ihre Mühe!
    </body></html>

    ENDE
    ########################################################
    sub mailIt
    {
    use MIME::Lite;

    $mailprog = '/usr/lib/sendmail';

    $object = MIME::Lite->new(
        From        =>'SERVER',
        To          =>"$recipient",
        Subject     =>'aktuelle AKZ-Tabelle',
        Type        =>'application/x-tar',
        Encoding    =>'base64',
        Path        =>"$attachedFile");

    open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
      $object->print (\*MAIL);
      close MAIL;
    }

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln

    1. Mailform mit Fileattachment

      CK1
      – Informationen zu den Bewertungsregeln

      Hi,

      $object = MIME::Lite->new(

      »»     From        =>'SERVER',
      »»     To          =>"$recipient",
      »»     Subject     =>'aktuelle AKZ-Tabelle',
      »»     Type        =>'application/x-tar',
      »»     Encoding    =>'base64',
      »»     Path        =>"$attachedFile");
      »»

      Wie würde $object aussehen, wenn noch ein Text hinzu käme?

      »»   $object->print (\*MAIL);

      Warum *Mail? ,)

      Thx,
      CK1

      Beitrag melden
      –
      Informationen zu den Bewertungsregeln

      1. Mailform mit Fileattachment

        Reiner
        – Informationen zu den Bewertungsregeln

        Hi,

        $object = MIME::Lite->new(
        »»     From        =>'SERVER',
        »»     To          =>"$recipient",
        »»     Subject     =>'aktuelle AKZ-Tabelle',
        »»     Type        =>'application/x-tar',
        »»     Encoding    =>'base64',
        »»     Path        =>"$attachedFile");
        »»

        Wie würde $object aussehen, wenn noch ein Text hinzu käme?

        »»   $object->print (\*MAIL);

        Warum *Mail? ,)

        Thx,
        CK1

        Habe ich aus dem Buch "Perlmodule". Was der "*" genau bedeutet, aber es funktioniert einwandfrei.
        Bei mehreren Aktionen (mehrere Dateien bzw. zusätzlich Text) muß man das Encoding aufsplitten. Weiß ich nicht auswendig, steht aber auch in der Beschreibung irgendwo. bei www.cpan.org dürfte eine Kopie sein. Such mal unter Module-> Mime::light

        Wenn Du absolut nichts findest, mail mir, ich mache mir dann mal die Mühe, Dir die Beschreibung auszugsweise zu mailen.

        Reiner

        Beitrag melden
        –
        Informationen zu den Bewertungsregeln

    2. Mailform mit Fileattachment

      Oliver März
      – Informationen zu den Bewertungsregeln

      Thx, für die schnelle Hilfe, aber ich meinte einen vom user bestimmten File :o(

      Cgis mit einem festgelegten File hätte ich schon. Sorry, dass ich so unpräzise war :o(

      #!/usr/bin/perl

      $recipient = 'reiner.rusch@ctrl-de.de';
      $attachedFile = "daten.zip";

      &mailIt;

      print "Content-type: text/html\n\n";
      print <<ENDE;
      <html>
      <body>
      Vielen Dank für Ihre Mühe!
      </body></html>

      ENDE
      ########################################################
      sub mailIt
      {
      use MIME::Lite;

      $mailprog = '/usr/lib/sendmail';

      $object = MIME::Lite->new(
          From        =>'SERVER',
          To          =>"$recipient",
          Subject     =>'aktuelle AKZ-Tabelle',
          Type        =>'application/x-tar',
          Encoding    =>'base64',
          Path        =>"$attachedFile");

      open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
        $object->print (\*MAIL);
        close MAIL;
      }

      Beitrag melden
      –
      Informationen zu den Bewertungsregeln

      1. Mailform mit Fileattachment

        Reiner
        – Informationen zu den Bewertungsregeln

        Tja, splitte dann das Problem in mehrere Teilprobleme!
        Das was ich Dir gesagt hatte, war sicher schon eines, das andere war "Fileupload per CGI". Such' mal im Archiv!!!

        Reiner

        Thx, für die schnelle Hilfe, aber ich meinte einen vom user bestimmten File :o(

        Cgis mit einem festgelegten File hätte ich schon. Sorry, dass ich so unpräzise war :o(

        »»

        #!/usr/bin/perl

        $recipient = 'reiner.rusch@ctrl-de.de';
        $attachedFile = "daten.zip";

        &mailIt;

        print "Content-type: text/html\n\n";
        print <<ENDE;
        <html>
        <body>
        Vielen Dank für Ihre Mühe!
        </body></html>

        ENDE
        ########################################################
        sub mailIt
        {
        use MIME::Lite;

        $mailprog = '/usr/lib/sendmail';

        $object = MIME::Lite->new(
            From        =>'SERVER',
            To          =>"$recipient",
            Subject     =>'aktuelle AKZ-Tabelle',
            Type        =>'application/x-tar',
            Encoding    =>'base64',
            Path        =>"$attachedFile");

        open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
          $object->print (\*MAIL);
          close MAIL;
        }

        Beitrag melden
        –
        Informationen zu den Bewertungsregeln