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

eexpress · **发表于 :** 2008-06-27 20:11

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 => 'yyyyyy@163.com',
   to =>'eexpress@163.com',
   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 · **发表于 :** 2008-06-27 20:24

题目:

引用:

注册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.

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

eexpress · **发表于 :** 2008-06-27 21:26

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

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

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

yjcong · **发表于 :** 2008-06-27 21:38

eexpress 写道:

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

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

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

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

eexpress · **发表于 :** 2008-06-27 21:45

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

yjcong · **发表于 :** 2008-06-27 21:54

eexpress 写道:

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

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

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

sevk · **发表于 :** 2008-06-27 22:18

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

aobi · **发表于 :** 2008-06-28 23:57

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

looool1111 · **发表于 :** 2008-06-29 0:02

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

独孤 · **发表于 :** 2008-06-29 21:47

majia1hao · **发表于 :** 2008-07-01 17:59

eexpress 写道:

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

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

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

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

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

eexpress · **发表于 :** 2008-07-10 13:23

加一个选择目标邮箱的。

代码:

   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 · **发表于 :** 2008-07-10 14:11

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

solcomo · **发表于 :** 2008-07-10 22:56

代码:

#!/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 · **发表于 :** 2008-07-11 9:15

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

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

在线用户