Email senden an nicht sichtbare Empfänger
Volker
- perl
0 Stefan Muenz
Hallo,
in http://www.teamone.de/selfhtml/tgcm.htm#a3 wird beschrieben wie ich eine Mail mit einem Perlprg sende an $Empfänger.
In jedem Emailprogramm gibt es die Funktion, die Mail an nicht sichtbare Kopienempfänger zu senden. Gibt es die hier auch oder muss ich die Mail zweimal senden?
Beste Grüsse
Volker
Hallo Volker,
in http://www.teamone.de/selfhtml/tgcm.htm#a3 wird beschrieben wie ich eine Mail mit einem Perlprg sende an $Empfänger.
In jedem Emailprogramm gibt es die Funktion, die Mail an nicht sichtbare Kopienempfänger zu senden. Gibt es die hier auch oder muss ich die Mail zweimal senden?
Um beim SELFHTML-Beispiel zu bleiben: einfach dort, wo der Mailheader geschrieben wird, notieren:
print MAIL "BCC: irgendjemand@irgendwo.de\n";
Tipp: Guck dir mal eine E-Mail im Klartext an. Da siehst du, wie ein Mailheader aussieht.
viele Gruesse
Stefan Muenz
Hallo Stefan,
danke für Deinen Hinweis.
Den Mailheader hätte ich mir vielleicht wirklich anschauen sollen ...
Beste Grüsse
Volker
Hallo Stefan!
Um beim SELFHTML-Beispiel zu bleiben: einfach dort, wo der Mailheader geschrieben wird, notieren:
print MAIL "BCC: irgendjemand@irgendwo.de\n";Tipp: Guck dir mal eine E-Mail im Klartext an. Da siehst du, wie ein Mailheader aussieht.
Eben dies funktioniert bei mir nie. Zwar wird ein BCC "geprintet" aber der unter BCC angegebene Empfänger bekommt die Mail nie. Getestet habe ich auch mit CC, denn da konnte ich an der Mail sehen, dass danach zwar der Empfänger unter CC im Header angegeben ist... Gesendet wurde die Mail jedoch nur an den unter $mailto angegebenen Empfänger:
open (MAIL,"/usr/sbin/sendmail $mailto")
Tricks wie dort mehrere Email-Adressen anzugeben, ob mit Semikola oder sonst wie getrennt, bringen auch nichts. Einzige Abhilfe da ich im SCB mittlerweile 3 regelmässige Empfänger von Infomails habe: 3 Subroutinen, 3 $mailto-Variablen...
Wäre auch froh über eine andere Lösung.
Bis danndann
PAF (patrickausfrankfurt)
<img src="/selfaktuell/extras/selfcomm.jpg" alt=""> http://www.atomic-eggs.com/selfspezial/guests/advguest.cgi?view
<img src="http://www.atomic-eggs.com/selfspezial/atomicegg.gif" style="cursor:hand;" onClick="window.location.href='http://www.atomic-eggs.com/'" onmouseover="status='http://www.atomic-eggs.com/';return true;" onmouseout="status='';return true;" alt="">
hi!
print MAIL "BCC: irgendjemand@irgendwo.de\n"
[...]
open (MAIL,"/usr/sbin/sendmail $mailto")
[X] Du möchteste "/usr/sbin/sendmail -t" aufrufen.
man sendmail
=== cut ===
[...]
-t Extractrecipients from message headers. This
requires that no recipients be specified on the
command line.
[...]
=== cut ===
(http://www.freebsd.org/cgi/man.cgi?query=sendmail&apropos=0&sektion=0&manpath=FreeBSD+4.0-RELEASE%2FPorts&format=html)
bye, Frank!
Moin Patrick!
Gesendet wurde die Mail jedoch nur an den unter $mailto angegebenen Empfänger:
open (MAIL,"/usr/sbin/sendmail $mailto")
Yoh, das ist normal. Wie man mehrere Empfaenger auf der Kommandozeile angibt, findest Du sicher in der sendmail manpage. Besser ist aber der von Frank genannte Weg mit sendmail -t.
Tricks wie dort mehrere Email-Adressen anzugeben, ob mit Semikola oder sonst wie getrennt, bringen auch nichts. Einzige Abhilfe da ich im SCB mittlerweile 3 regelmässige Empfänger von Infomails habe: 3 Subroutinen, 3 $mailto-Variablen...
Ui ui, da muessen wir wohl mal ein bisschen optimieren.... :-)
So long
Hallo Roland (und Frank)!
Gesendet wurde die Mail jedoch nur an den unter $mailto angegebenen Empfänger:
open (MAIL,"/usr/sbin/sendmail $mailto")
Yoh, das ist normal. Wie man mehrere Empfaenger auf der Kommandozeile angibt, findest Du sicher in der sendmail manpage. Besser ist aber der von Frank genannte Weg mit sendmail -t.
Ui ui, da muessen wir wohl mal ein bisschen optimieren.... :-)
Denke ich auch ;-). Denn etwas infernales (<www.atomic-eggs.com/500.html>) ist alles, was ich mit -t bekomme :-(
So war's:
open (MAIL,"/usr/sbin/sendmail $mailto")
Und so habe ich's jetzt:
sub SendPAFEmail {
open (MAIL,"/usr/lib/sendmail -t") die print "Content-type: text/html\n\n";
$param{'name'} =~ s/+/ /g;
$param{'text'} =~ s/+/ /g;
$param{'text'} =~ s/<br>/\n/g;
print MAIL <<EOT;
To: "PAF@atomic-eggs.com";
Cc: "patrick.andrieu@okay.net";
From: "Gästebuch"
Reply-to: "No Reply"
Subject: Huhu
Hallo PAF und bla, foo und restliches Zeugs als Text
}
...?
Bis danndann
PAF (patrickausfrankfurt)
<img src="/selfaktuell/extras/selfcomm.jpg" alt=""> http://www.atomic-eggs.com/selfspezial/guests/advguest.cgi?view
<img src="http://www.atomic-eggs.com/selfspezial/atomicegg.gif" alt="Atomic Eggs - die humosophische Seite" style="cursor:hand;" onMouseUp="window.location.href='http://www.atomic-eggs.com/'" onmouseover="status='http://www.atomic-eggs.com/';return true;" onmouseout="status='';return true;">
hi!
sub SendPAFEmail {
open (MAIL,"/usr/lib/sendmail -t") die print "Content-type: text/html\n\n";
Also diese Zeile sieht sehr falsch aus. die() erwartet selbst einen
Parameter, den es dann ausdruckt, da kannst du nicht einfach ein
print() dahintersetzen. Und den -Operator würde ich durch den
weniger bindenden or-Operator ersetzen:
open MAIL, "/usr/sbin/sendmail -t" or die "fehlermeldung";
print MAIL <<EOT;
print MAIL <<"EOT";
Ist sicherer mit "-Zeichen als ohne, denn dann weißt du, was er macht.
To: "PAF@atomic-eggs.com";
Cc: "patrick.andrieu@okay.net";
Weg mit den Anführungszeichen und weg mit den Semikola. Ich glaube,
du hast hier deine print()'s nicht richtig entsorgt.
From: "Gästebuch"
Reply-to: "No Reply"
?? Wo hast du denn das her? :)
Subject: Huhu
Hallo PAF und bla, foo und restliches Zeugs als Text
Hier fehlt vor dem Ende der Subfunktion ein EOT als Abschluss für
dein obiges "print MAIL <<EOT;".
}
Also bitte mal verbessern und dann erneut probieren :)
bye, Frank!