Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[solved]](/battie/theme/default/icons/tick.png "solved"){kind=icon}
+22 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use Net::SMTP; my $mo = { host => 'host', user => 'user', pass => 'pass', }; my $smtp = Net::SMTP->new($mo->{host}) or die '???'; $smtp->auth($mo->{user}, $mo->{pass}); $smtp->hello('yahoo.de'); $smtp->mail('nmqrstx-18@yahoo.de'); $smtp->to('nmqrstx-18@yahoo.de'); $smtp->data($ARGV[0]); $smtp->send; $smtp->quit;
2013-07-13T19:36:51 korkakich würde dann einfach mal versuchen über meine web.de account eine Mail zu versenden.
Net::SMTP
+3 replies
MIME::Lite
+2 replies
2013-07-15T08:45:36 payxschön einfach, daher empfehlenswert:
MIME::Lite gehabt und habe es schon für verschiedene Zwecke (u.a. wie korkak für ein Server-Monitoring) eingesetzt.
+14 replies
+4 replies
+3 replies
+8 replies
2013-07-13T19:36:51 korkak... welches Modul ihr mir aktuell empfehlen würdet, vielleicht gibt es ja auch schon eins welches Unix und Windows unterstützt? Falls möglich vielleicht auch mit einem kleinen Beispiel?
ich würde dann einfach mal versuchen über meine web.de account eine Mail zu versenden.
+7 replies
2013-07-16T11:55:27 payxWenn Du nun sendmail verwenden willst, dann sieh Dir doch nochmals die Antwort von rosti an.
+6 replies
2013-07-16T13:33:26 biancaDafür einfach sendmail als Pipe öffnen.
Beispiel: http://www.perlfect.com/articles/sendmail.shtml
+3 replies
2013-07-16T14:54:22 hlubenowDer Artikel ist gut. Aber das wird doch nicht unter Windows gehen.
Sein Skript soll ja plattformunabhängig (Win/Unix) werden.
+2 replies
2013-07-16T15:10:07 payx2013-07-16T14:54:22 hlubenowDer Artikel ist gut. Aber das wird doch nicht unter Windows gehen.
Sein Skript soll ja plattformunabhängig (Win/Unix) werden.
Warum nicht, für Windows gibt es fake sendmail for windows. Das funktioniert tatsächlich!
1 2 3 4 5 6 7 8 9 10 11
my $sendmail = '[path_to_sendmail]/sendmail.exe'; open my $sendmailFH, "|$sendmail" or die "Cannot open $sendmail: $!"; print $sendmailFH "Subject: $subject\n"; print $sendmailFH "From: $from\n"; print $sendmailFH "To: $to\n"; print $sendmailFH "Content-type: text/plain\n\n"; print $sendmailFH $body; print $sendmailFH "\n.\n"; close($sendmailFH);
+2 replies
2013-07-16T14:54:22 hlubenowAber das wird doch nicht unter Windows gehen.
Sein Skript soll ja plattformunabhängig (Win/Unix) werden.
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use warnings; use strict; if ($^O eq "linux") { print "Das ist Linux.\n"; } else { print "Das ist nicht Linux.\n"; }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use warnings;
use strict;
use MIME::Lite;
my $msg;
$msg = MIME::Lite->new(
From => 'testmail@testmailsystem',
To => 'testziel@'testzielsystem,
#Cc => 'some@other.com, some@more.com',
Subject => 'TESTMAIL',
Type => 'TEXT',
Data => "TEST"
);
$msg->send; #default is to use "sendmail".
Font
use strict; use warnings;
Blog
Preferences![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
