logimann Geschrieben 27. November 2001 Geschrieben 27. November 2001 hi ich hab da mal ne frage, was muss ich machen damit ein ausgefüllte formular zu meiner email schicken? (nicht die methode mit dem aufrufen von Outlook, sonder über ne cgi oder perl datei) mfg Logimann Zitieren
leech Geschrieben 28. November 2001 Geschrieben 28. November 2001 Im Internet gibt es ne ganze Reihe von guten cgi/perl Mailscripts. Du kannst aber auch PHP verwenden, wie das genau geht, weiss ich zwar nicht, soll aber ziemlich simpel sein... Zitieren
dipesh Geschrieben 28. November 2001 Geschrieben 28. November 2001 sowas im dreh von... $SendMailCommand='/usr/lib/sendmail -t'; $SendFrom="meinemail@bla.de"; $readMail="zudiesermail@bla.de"; $readName="der name des empfängers, unwichtig"; $SendSubject="das subjekt"; $SendBody="und der bodytext"; open (MAIL,"|$SendMailCommand") || die "nix open"; print MAIL "From: $SendFrom\n". "To: $readMail ($readName)\n". "Subject: $SendSubject\n\n". "$SendBody\n\n"; close (MAIL) || die "nix close"; ...funzelt auf meinem linuxsystem :-) Zitieren
logimann Geschrieben 28. November 2001 Autor Geschrieben 28. November 2001 hab sich jetzt erledigt. hab was bei selfhtml gefunden. #!/usr/bin/perl # -------> SMTP-Programm zum Versenden der Mail: $Sendmail_Prog = "/usr/sbin/sendmail"; # -------> Modul für CGI-Scripts einbinden: use CGI; # -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden: $query = new CGI; @names = $query->param; # -------> interne Daten aus den erwarteten hidden-Feldern auslesen: $delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value $mailto = $query->param('mailto'); # ---> Empfängeradresse $returnhtml = $query->param('return'); # ---> URL für Dankeseite $subject = $query->param('subject'); # ---> E-Mail-Subject # -------> Text der E-Mail aus den Formulardaten ermitteln: $mailtext = ""; foreach(@names) { $name = $_; @values = ""; @values = $query->param($name); if($name ne "mailto" && $name ne "return" && $name ne "subject" && $name ne "delimiter") { foreach $value (@values) { $mailtext = $mailtext.$name; $mailtext = $mailtext.$delimiter; $mailtext = $mailtext.$value."\n"; } } } # -------> E-Mail versenden: open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n"; print MAIL "To: $mailto\n"; print MAIL "Subject: $subject\n\n"; print MAIL "$mailtext\n"; close(MAIL); # -------> Dankeseite an Browser senden: print "Location: $returnhtml\n\n"; Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.