Leser: 1
![]() |
![]() |
10 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub send_mail
{
my $time = strftime("%H%M%S",localtime(time));
my $subject = "Testmail $time";
my $text = "Dies ist eine Testmail";
MIME::Lite->send('smtp', $mailserver, Timeout=>90);
my $message = MIME::Lite->new(
From=>'testacc@test.com',
To=>'killeruser@web.de',
Cc=>'test1@example.org',
Cc=>'test2@example.org',
Cc=>'test3@example.org',
Subject=>"$subject",
Type=>'text',
Encoding=>'quoted-printable',
Data=>"$text, $time"
);
$message->send();
}
Cc => 'test1@test.de, [EMAIL=test2@test.de]test2@test.de[/EMAIL], [EMAIL=test3@test.de]test3@test.de[/EMAIL]'
![]() |
![]() |
10 Einträge, 1 Seite |