Perl Email verschicken

[master bratack]

Moin,
ich habe folgendes Problem:
IIch will ein script entwickeln was ne EMail versendet. DIeses soll aber auch auf WIndows laufen. Bis jetz hab ich nur Scripts gefunden wo Sendmail benutzt wird. Gibts noch ne andere möglichkeit?
MFG Bratack
PS: Verbindung öffnen & dann von Hand immer die Befehle des Mail Protocols einzutippen wäre auch nicht sooo mein fall

 

[TimBerlin]

mal sehen, ob dir einer hilft bei deinen mail-bomben.

 

[d2boxSteve]

Hi,

wie wärs damit:

#!/usr/bin/perl
use Net::SMTP;
use strict;
my($mailhost,$absender,$empfaenger);

$mailhost='smtp.mailhost.de';
$absender='ich@meine.domain.de';
$empfaenger='werauchimmer@irgendwo.de';

# Objekt erzeugen
$smtp=Net::SMTP->new($mailhost);

# Absender und Empfeanger
$smtp->mail($absender);
$smtp->to($empfaenger);

# Beginne mit dem Senden des Kommandos DATA an den Server
$smtp->data();

# Sende nun die Daten an den Server
$smtp->datasend(<<END);
To: $empfaenger
Subject: Das ist eine Testmail aus dem Tutorial Net::SMTP

Der Text im Body der Mail

dein $absender


END

# Stoppe das senden der Daten an den Server
$smpt->dataend();

# Baue nun die Verbindung ab.
$smtp->quit();

Gruß,
d2boxSteve

PS: 10 Sekunden Google ....

Edit: @TimBerlin: nur weil du an sowas denkst muss es net jeder vorhaben ... man kann auch für Überwachungszwecke Mails verschicken wollen.

 

[master bratack]

Kann man auch Ohne Absender Mails verschicken? Wo krieg ich den Mailhost her?

Mailbomben XD Naaatürlich nur weil ich 13 bin & Programmiere bin ich lange kein Scriptkiddy

 

[d2boxSteve]

Hi,

nein, ohne Absender geht net und irgendwas angeben is Spam und wird meisst garnet zugestellt, bzw. von Spamfiltern geblockt.

Du hast bestimmt bei deinem Postfach Zugriff auf den Mailserver (GMX oder Yahoo ... wo du halt bist). Dort darfst du aber eh nur Mails versenden wenn du deinen richtigen Absender angibst.

Gruß,

d2boxSteve

 

[master bratack]

Okay. Hab nehmlich mal mal ne Spam eMail bekommen, die keinen absender hatte.
Ich bekomm grad fehlermeldung wenn ich probier das auszuführen:

Global symbol "$smtp" requires explicit package name at SMAILER.pl line 11.
Global symbol "$smtp" requires explicit package name at SMAILER.pl line 14.
Global symbol "$smtp" requires explicit package name at SMAILER.pl line 15.
Global symbol "$smtp" requires explicit package name at SMAILER.pl line 18.
Global symbol "$smtp" requires explicit package name at SMAILER.pl line 21.
Global symbol "$smpt" requires explicit package name at SMAILER.pl line 33.
Global symbol "$smtp" requires explicit package name at SMAILER.pl line 36.
Execution of SMAILER.pl aborted due to compilation errors.

 

[d2boxSteve]

Hi,

hmm, hast du bei deinem Perl das Paket "Net::SMTP" auch installiert?

Wie das geht findest du mit einer Google-Suche nach CPAN ... dort gibts die Module und Anleitungen.

Gruß,

d2boxSteve

 

[master bratack]

Scheint so. perldoc Net::SMTP gibt ne ordentliche beschreibung aus.
Is aber auch nen Standartmodul XD. Ich müsste ziemlich viele Module haben, damals beim Insterliern von OpenSuSE vorsorglich mit raufgepackt