Leser: 24
QuoteAber ich habe keine Mail bekommen.Registrierung aufgenommen!
Bitte schauen Sie in ihrem E-Mail Fach und schalten Sie den Account frei!
2011-04-08T20:42:44 payxHallo Gustl,
meine E-Mail-Adresse eine mit gmx.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
# EMailtext my $subject = "Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick; my $mailtext =" <html> <head> <title>Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick." </title> </head> <body text='#FFFFFF' link='#FFFFFF' vlink='#FFFFFF' alink='#FFFFFF'> <div style= 'border:3px solid #9EC0ED;padding:30px;background: url(cid:back) repeat-x #95a7c0;font-family: Verdana,Arial,Helvetica,sans-serif;font-size: 13px; color: white;text-shadow:1px 1px 0 black;'> <table width='500' border='0'> <tr> <td><img src='cid:header' width='470' height='151' /></td> </tr> <tr> <td>Hallo ".$nick.",<br /> und Herzlich Willkommen bei Pingu Farmer! <br /><br /> Deine Registrierung ist fast geschafft!<br/> Klicke auf diesen <a href=".$Glob::path."reg.pl?regnummer=".$regnummer."&benutzer=".$nick.">Link</a> um deine Account freizuschalten!<br /> <br /> Viel Spaß!</td> </tr> <tr> <td align='right' valign='bottom'><img src='cid:pingu' width='132' height='150' /></td> </tr> </table> </div> </body> </html>"; #E-Mail versenden: my $msg = MIME::Lite->new( From => 'support@pingu-farmer.de', To => $mailto, Subject => $subject, Type => 'multipart/related' ); $msg->attach( Type => 'text/html', Data => $mailtext , ); $msg->attach( Type => 'image/png', Id => 'header', Path => 'images/header_email.png', ); $msg->attach( Type => 'image/png', Id => 'back', Path => 'images/background_email.png', ); $msg->attach( Type => 'image/png', Id => 'pingu', Path => 'images/pingu7s.png', ); $msg->send();
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
#!perl package Glob; our $path = 'GLOB::path/'; 1; use strict; use warnings; use MIME::Lite; # -- Variablen, die im Text verwendet werden my $nick = 'NICKNAME'; my $regnummer = 'REGNUMMER'; my $mailto = 'MAILTO'; # EMailtext my $subject = "Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick; my $mailtext =" <html> <head> <title>Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick." </title> </head> <body text='#FFFFFF' link='#FFFFFF' vlink='#FFFFFF' alink='#FFFFFF'> <div style= 'border:3px solid #9EC0ED;padding:30px;background: url(cid:back) repeat-x #95a7c0;font-family: Verdana,Arial,Helvetica,sans-serif;font-size: 13px; color: white;text-shadow:1px 1px 0 black;'> <table width='500' border='0'> <tr> <td><img src='cid:header' width='470' height='151' /></td> </tr> <tr> <td>Hallo ".$nick.",<br /> und Herzlich Willkommen bei Pingu Farmer! <br /><br /> Deine Registrierung ist fast geschafft!<br/> Klicke auf diesen <a href=".$Glob::path."reg.pl?regnummer=".$regnummer."&benutzer=".$nick.">Link</a> um deine Account freizuschalten!<br /> <br /> Viel Spaß!</td> </tr> <tr> <td align='right' valign='bottom'><img src='cid:pingu' width='132' height='150' /></td> </tr> </table> </div> </body> </html>"; #E-Mail versenden: my $msg = MIME::Lite->new( From => 'support@pingu-farmer.de', To => $mailto, Subject => $subject, Type => 'multipart/related' ); $msg->attach( Type => 'text/html', Data => $mailtext , ); $msg->attach( Type => 'image/png', Id => 'header', Path => 'images/header_email.png', ); $msg->attach( Type => 'image/png', Id => 'back', Path => 'images/background_email.png', ); $msg->attach( Type => 'image/png', Id => 'pingu', Path => 'images/pingu7s.png', ); $msg->send('testfile', 'pingu.mail.txt'); print "fertig\n"; exit(0);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
#!perl package Glob; our $path = 'GLOB::path/'; 1; use strict; use warnings; use utf8; use MIME::Lite::HT::HTML; # -- Variablen, die im Text verwendet werden my $nick = 'NICKNAME'; my $regnummer = 'REGNUMMER'; my $mailto = 'MAILTO'; # EMailtext my $subject = "Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick; #E-Mail versenden: my $msg = MIME::Lite::HT::HTML->new( From => 'support@pingu-farmer.de', To => $mailto, Subject => $subject, TimeZone => 'Europe/Berlin', Encoding => 'quoted-printable', Template => { html => 'mail.html', #text => 'mail.txt', }, Charset => 'utf8', TmplOptions => {}, TmplParams => { nickname => $nick, glob_path => $Glob::path, registration_number => $regnummer, }, ); $msg->attach( Type => 'image/png', Id => 'header', Path => 'images/header_email.png', ); $msg->attach( Type => 'image/png', Id => 'back', Path => 'images/background_email.png', ); $msg->attach( Type => 'image/png', Id => 'pingu', Path => 'images/pingu7s.png', ); $msg->send('testfile', 'pingu.mail.txt'); print "fertig\n"; exit(0);
$msg->delete('X-Mailer');
QuoteDas nächste Mal bitte more um Code herum!
Sonst i...