Webcam Nürnberg

Durch Nutzung dieser Webseite stimmen Sie dem Einsatz von Cookies und Werbung zu. Weitere Informationen

KnowHow 7.6 ''Email mit Perl ''
Stand: 18.05.2017 16:35:46

Inhalt | Suche | Homepage | Kontakt | Impressum

- Durch Anklicken im Inhaltsverzeichnis kann direkt zum Thema gesprungen werden.
- Begriffe auf dieser Seite können mit Ihrer Browser-Funktion ''Bearbeiten -> Suchen'' oder mit den Tasten [Strg]-[F] gesucht werden.
- Des weiteren gibt es noch eine Suchfunktion über alles.
- Es sind mehr Informationen verfügbar, als hier angegeben. Falls Sie etwas vermissen, scheuen Sie sich nicht nachzufragen, wir antworten gerne.

# ActivePerl-Script zur Versendung einer Email

#!c:/Perl/bin/perl.exe

# ActivePerl-Script unter Windows zur Versendung einer Email mit Authentifizierung am SMTP-Server
#
# In Perl müssen besondere Pakete wie Mail extra installiert werden:
# Im Programm-Paket von ActivePerl den "Perl Package Manager (PPM)" aufrufen
# -> View -> All Packages
# "SMTP-Server", "NEt-SMTP_auth" suchen und mit rechter Maustaste auswählen
# grünen Pfeil zur Installation anklicken

# (C) Axel Burgermeister, 20.09.2010

use strict;
use Net::SMTP;
# hierzu mit dem Tool "ActivePerl - Perl Package Manager (PPM)" das Package "SMTP-Server" installieren!

my $ServerName = "smtp.server.de"; # hier den SMTP-Servernamen eintragen
my $ServerAccount = 'email@address.de'; # hier den Account-Namen eintragen, das ist meisten die eigene Email-Adresse
my $ServerPwd = "*******"; # hier das Password eintragen
# AT-Zeichen @ entweder so schreiben \@ oder statt " nur ' verwenden

my $from_adr    = 'email@address.de';
my $to_adr      = 'email@address.de';
my $cc_adr      = "";
my $bcc_adr     = "";

my $from_name   = 'Axel';
my $to_name     = 'Axel';
my $cc_name     = "";
my $bcc_name    = "";

my $subject     = "Test-Mail";
my $text        = "Hallo Hallo";

#--------

my $message = "From: $from_name\nTo: $to_name\nCc: $cc_name\nBcc: $bcc_name\nSubject: $subject\n\n$text\n\n";

print "Content-type: text/html","\n\n";
print "

<html>
 <head>
 <title>Mail</title>
 </head>
 <body>
 ";

my $smtp = Net::SMTP->new($ServerName, Hello => "1und1.de", Timeout => 60, Debug => 1);
 die "*** Couldn't connect to server" unless $smtp;

print "Server connection opened ";

if ( !$smtp->auth($ServerAccount, $ServerPwd) )
 {
 print "*** authentication failed or not needed ";
 }

if ( !$smtp->mail( $from_adr ) )
 {
 print "*** from address not accepted ";
 exit 1;
 }

if (!$smtp->to( $to_adr ) )
 {
 print "*** to address not accepted ";
 exit 1;
 }

if ($cc_adr != "")
 {
 if (!$smtp->cc( $cc_adr ) )
 {
 print "*** cc address not accepted ";
 exit 1;
 }
 }

if ($bcc_adr != "")
 {
 if (!$smtp->bcc( $bcc_adr ) )
 {
 print "*** bcc address not accepted ";
 exit 1;
 }
 }

print "Server variables checked ";

$smtp->data();
$smtp->datasend($message);
$smtp->dataend();
$smtp->quit;

print "Finished sending email ";

print "
 
 </body>
</html>

Besucher seit 30.01.2003: