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

[eexpress]

perl 脚本。瞎找的。

代码： 全选

20:07:27 exp ~/应用/脚本 ☎  cat mail-发附件.pl 
#!/usr/bin/perl -w

my $file = $ARGV[0];
use   Mail::Sender;   
$sender = new Mail::Sender; 

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

安装下模块。

代码： 全选

sudo cpan Mail::Sender

运行情况。

代码： 全选

20:06:35 exp ~/应用/脚本 ☎  ./mail-发附件.pl s-f飞信 
Mail sent OK.

[yjcong]

题目:

注册2个有自动转发功能的邮箱.
比如 [email protected] 和 [email protected]
[email protected]设置成收到的email都转发到 [email protected]里.
[email protected]设置成收到的email都转发到 [email protected] 和 [email protected].

最后用[email protected]给[email protected]发封代附件的email.

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

[eexpress]

这么高级的问题，你去问法国佬吧。

我的脚本是简单的，适合挂到文件管理器右键菜单用的。给老婆专用的。居然没人要这脚本。

估计看过帖子的，都还没老婆。

[yjcong]

这么高级的问题，你去问法国佬吧。

我的脚本是简单的，适合挂到文件管理器右键菜单用的。给老婆专用的。居然没人要这脚本。

估计看过帖子的，都还没老婆。

如果你说回过这个帖子的都没有老婆， 我可以200％的和你说， 猜的满准的

[eexpress]

嗯，应你要求，我改了标题。呵呵。

[yjcong]

嗯，应你要求，我改了标题。呵呵。

行拉， 这次看的人更多了。 你的目的达到了。

终于还是领略里一次可恶的ee风格

[sevk]

不实用。QQ的离线文件功能好用多了。如果真的结婚了，每天在一起，电脑就在边上。

[aobi]

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

[looool1111]

为什么说没老婆的别进？
有点小晕。

[独孤]

[majia1hao]

这么高级的问题，你去问法国佬吧。

我的脚本是简单的，适合挂到文件管理器右键菜单用的。给老婆专用的。居然没人要这脚本。

估计看过帖子的，都还没老婆。

包括ee自己？ee果然木文化

不包括ee，我宣布你估计错误

[eexpress]

加一个选择目标邮箱的。

代码： 全选

   to =>`zenity --list  --column="邮件地址" --text="选择收件人" --title="发送邮件" eexpress\@163.com exp.exp\@gmail.com`,

其中邮件地址可以这样取得。估计perl会骂我。

代码： 全选

grep MAIL= ~/.opera/contacts.adr|sed 's/^.*MAIL=//'|tr '\n' '\ '

[qiang_liu8183]

这和有没有老婆有啥关系？

[solcomo]

代码： 全选

#!/usr/bin/perl -w 

my $username = "aaaaaaaaaaaaaaaaaaa";
my $password = "vvvvvvvvvvvvvvvvvvvvv";
my $mail = "co_mo\@163.com";
my $smtp = "smtp.163.com";

if ($ARGV[0] && $ARGV[0] eq '-i') {
  $address = `zenity --list  --column="邮件地址" --text="选择收件人" --title="发送邮件" co_mo\@163.com solcomo\@gmail.com`;
  $file = $ARGV[1];
  $subject = "发送附件";
  @msg = "请查看附件";
}
else {
  if ($ARGV[0] && $ARGV[0] =~ /^([a-zA-Z0-9_-])+@([a-zA-Z0-9_-])+(.[a-zA-Z0-9_-])+/) {
    $address = $ARGV[0];
  }
  elsif ($ARGV[1] && $ARGV[1] =~ /^([a-zA-Z0-9_-])+@([a-zA-Z0-9_-])+(.[a-zA-Z0-9_-])+/) {
    $address = $ARGV[1];
    $file = $ARGV[0];
  }
  else {
    $address = `zenity --list  --column="邮件地址" --text="选择收件人" --title="发送邮件" co_mo\@163.com solcomo\@gmail.com`;
    $file = $ARGV[0];
  }
  print "主题：";
  $subject = <STDIN>;
  print "正文：（Ctrl+D 结束）\n";
  @msg = <STDIN>;
  print "\n请稍等...\n";
}

use Mail::Sender;
my $sender = new Mail::Sender {
        smtp => "$smtp",
        from => "$mail",
        auth => "LOGIN",
      authid => "$username",
     authpwd => "$password",
   on_errors => undef,
} or die "$Mail::Sender::Error\n";

if ($file) {
  $sender->MailFile({to => "$address",
                subject => "$subject",
                    msg => "@msg",
                   file => "$file"})or die "$Mail::Sender::Error\n";
  $sender ->Close();
  }
else {
  $sender->Open({to => "$address",
            subject => "$subject"})or die "$Mail::Sender::Error\n";
  $sender->SendEnc(" @msg")or die "$Mail::Sender::Error\n";
  $sender->Close();
}

print "发送成功\n"

[eexpress]

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