Thread mail mit anhang versenden: trotz faq und such... ;) (65 answers)
Opened by Dubu at 2003-08-20 13:28

snadra
 2003-08-20 12:13
#38406 #38406
User since
2003-08-11
265 Artikel
BenutzerIn
[Homepage] [default_avatar]
Aus perldoc MIME::Lite
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# Create a multipart message (i.e., one with attachments):

### Create a new multipart message:
$msg = MIME::Lite->new(
From =>'me@myhost.com',
To =>'you@yourhost.com',
Cc =>'some@other.com, [EMAIL=some@more.com]some@more.com[/EMAIL]',
Subject =>'A message with 2 parts...',
Type =>'multipart/mixed'
);

### Add parts (each "attach" has same arguments as "new"):
$msg->attach(Type =>'TEXT',
Data =>"Here's the GIF file you wanted"
);
$msg->attach(Type =>'image/gif',
Path =>'aaa000123.gif',
Filename =>'logo.gif',
Disposition => 'attachment'
);
http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}

View full thread mail mit anhang versenden: trotz faq und such... ;)