StartseiteSkriptePerl

EMail in Klartext senden mit sendmail

28. SEPTEMPER 2011
von Jörg
Skripte - Perl

Hier ein Beispiel wie mit Perl und sendmail eine einfach EMail in Klartext versendet werden kann.

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl -w

use strict;
use CGI;

my $C = new CGI;
print $C->header( -type=>"text/html");

# Pfad zu sendmail
my $mailprog = '/usr/lib/sendmail';

# EMail verfassen
my $mailfrom = 'support@pingu-farmer.de';
my $mailto   = 'gustl1und1@online.de';
my $name     = "Support Pingu Farmer";
my $subject  = "Klartext EMail";
my $body     = "
Eine EMail die mit Perl via dem Programm sendmail gesendet wurde.
Hier ein Beispiellink: http://blog.webdesign-haefner.de/";

send_email();

sub send_email {
  open (MAIL, "|$mailprog $mailto") || die "Cant open $mailprog!\n";
  print MAIL ("To: $mailto\n");
  print MAIL ("From: $name <$mailfrom>;\n");
  print MAIL ("Subject: $subject\n\n");
  print MAIL ("$body");
  close (MAIL);
}

print "<h3>Email von $mailfrom an $mailto gesendet!</h3>";

Kommentare:

781714584@qq.com

von 781714584@qq.com am 31. MAI 2017 um 09:26 Uhr » 781714584@qq.com

781714584@qq.com

von 781714584@qq.com am 31. MAI 2017 um 09:27 Uhr » 781714584@qq.com

Hinterlasse einen Kommentar

Ein Frosch der sich an der Seite festhält