可以挂到文件管理器，右键菜单发送邮件附件的脚本。perl。没老婆的别进。

[carbont]

看不懂——但是老婆的问题可以提一个问题：没证儿的算不算？？

[eexpress]

nnnnd 你的2n都算。好不。

[carbont]

nnnnd 你的2n都算。好不。

很好——说明我进来没有违反ee的邪恶规则！呵呵哈

[solcomo]

复杂了。还输入。看下标题吧。不要终端才好。

-i 加文件名一样可以挂到文件管理器啊
只是加了几个功能而已
挺好玩的

[0xff]

py@ubuntu8test:~$ perl s1.perl s1.perl
Mail sent OK.
结果却什么都没收到

[ckone]

MS只有偶是合法用户！

[lerosua]

又偷了ee一个脚本

[rhfcaesar]

直接用mutt或者alpine发不就行了吗？

[lfive86]

[eexpress]

今天改了些。多使用opera的现成的通讯录。

代码： 全选

2009-11-25 22:40:26 三 ~/.gnome2/nautilus-scripts 
● cat mail-发附件.pl 
#!/usr/bin/perl -w

my $file = $ARGV[0];
if(!$file){die "没有选择附件文件。\n"}
use Mail::Sender;   
$sender = new Mail::Sender; 

# --------------------------------------------
$file="$ENV{HOME}/.opera/contacts.adr";
# 规则。空行为段。段内取SHORT NAME和MAIL都有效的部分。

if (open(PN,$file)){
while(<PN>){
chomp;
$name='',next if /^$/;
$name=$',next if /SHORT\ NAME=/;
$con=$con."'".$name."' '".$'."' " if /MAIL=/ && $' && $name;
}
}
close(PN);
$to=`zenity --list --width 1000 --height 500 --text="发送邮件附件，选择联系人" --column="联系人" --column="邮箱" --print-column=2 $con`;
if(!$to){die "没有选择联系人。\n"}
# --------------------------------------------

if ($sender->MailFile({
   smtp => 'smtp.163.com',
   from => 'eexpress@163.com',
   to =>$to,
   subject => '发送附件',
   msg => "请查看附件。",
   auth => 'LOGIN',	#LOGIN, PLAIN, CRAM-MD5 and NTLM
   authid => 'xxxxx',
   authpwd => 'xxxxx',
   file => "$file",
 }) < 0) {
  die "$Mail::Sender::Error\n";
 }
 print "Mail sent OK."

[tusooa]

题目:

注册2个有自动转发功能的邮箱.
比如 aaa@XXXX.com 和 bbb@XXXX.com
aaa@XXXX.com设置成收到的email都转发到 bbb@XXXX.com里.
bbb@XXXX.com设置成收到的email都转发到 aaa@XXXX.com 和 eexpress@163.com.

最后用aaa@XXXX.com给bbb@XXXX.com发封代附件的email.

问题: 最后的结果是什么??

代码： 全选

while(1)
{
    a->b
    b->a
    b->e
}

[wfnh]

直接是模块的例子代码····

[gzbao9999]

163收到的 正文是中文乱码
qq收到正常的

[eexpress]

for perler only

重拾此脚本。 家里和单位，互相发邮件的。根据主机名，自动判断。需要安装gpg-agent，避免重复输入密码，并在.bashrc里面添加

代码： 全选

4:#-------for gpg-agent-------------------------------
5:GPG_TTY=$(tty)
6:export GPG_TTY

支持剪贴板，主要是为了鼠标选择一段文字，当作正文。方便点。
需要修改的地方：
1，2边的邮件地址和主机名的判断。

代码： 全选

$d=/desktop/?1:2;
my $to="eexp0$d\@gmail.com";

2，gpg的邮件密码文件名，以及手动生成此文件。

代码： 全选

#● echo password|gpg -aer eexp>~/bin/resources/gpg-163-password
my $pw=`gpg -d $ENV{HOME}/bin/resources/gpg-163-password`; chomp $pw;

3，发送的帐号

代码： 全选

	smtp => 'smtp.163.com',
	from => 'eexpress@163.com',

估计不会perl的，用不了。因为还需要自己修改，和安装 libmail-sender-perl。

代码： 全选

● cat maileexp.pl 
#!/usr/bin/perl -w

#支持文件，信息/剪贴板混杂输入，必须有附件。
if($#ARGV<0){die "没有选择附件文件。\n"}
# --------------------------------------------
$_=`hostname`; chomp;
#$d=/desktop/?2:1;
$d=/desktop/?1:2;
my $to="eexp0$d\@gmail.com";
# --------------------------------------------
my $file; my $text;
foreach(@ARGV){
if (-f){$file.=",$_";}else{$text.="$_\n";}
}
$file=~s/^,//;
$text=`xsel -o` if ! $text;
$text=`see attach files.` if ! $text;
#print "attach:\t$file\n--------\nmsg:\t$text\n"; exit;
my $info="发送文件: $file 到邮箱: $to";
#● echo password|gpg -aer eexp>~/bin/resources/gpg-163-password
my $pw=`gpg -d $ENV{HOME}/bin/resources/gpg-163-password`; chomp $pw;
print "$info\n"; `$ENV{HOME}/bin/msg mail.png "发送邮件附件" "$info"`;
# --------------------------------------------
use Mail::Sender;   
my $sender = new Mail::Sender; 
if ($sender->MailFile({
	smtp => 'smtp.163.com',
	from => 'eexpress@163.com',
	to =>$to,
	charset=>'utf-8',
	subject => '同步',
	charset => 'utf-8',
	msg => $text,
	auth => 'LOGIN',
	authid => 'eexpress',
	authpwd => $pw,
	file => $file,
})<0){$info="失败。错误：$Mail::Sender::Error";}
else {$info="完成";}
print "$info\n"; `$ENV{HOME}/bin/msg mail.png "发送邮件附件" "$info"`;
# --------------------------------------------

[月下叹逍遥]

日，强烈要求给eexp...警告，种族崎视！