当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 34 篇帖子 ]  前往页数 1, 2, 3  下一页
作者 内容
1 楼 
 文章标题 : 可以挂到文件管理器,右键菜单发送邮件附件的脚本。perl。没老婆的别进。
帖子发表于 : 2008-06-27 20:11 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
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.


_________________
● 鸣学


最后由 eexpress 编辑于 2008-06-27 21:45,总共编辑了 2 次

页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2008-06-27 20:24 
头像

注册: 2006-02-28 3:11
帖子: 2470
送出感谢: 0 次
接收感谢: 0 次
题目:

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

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



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


_________________
一梦三年,
松风依旧,
萝月何曾老.


灵幽听微, 谁观玉颜?
灼灼春华, 绿叶含丹.


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2008-06-27 21:26 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
这么高级的问题,你去问法国佬吧。

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

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


_________________
● 鸣学


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2008-06-27 21:38 
头像

注册: 2006-02-28 3:11
帖子: 2470
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
这么高级的问题,你去问法国佬吧。

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

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


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


_________________
一梦三年,
松风依旧,
萝月何曾老.


灵幽听微, 谁观玉颜?
灼灼春华, 绿叶含丹.


页首
 用户资料  
 
5 楼 
 文章标题 :
帖子发表于 : 2008-06-27 21:45 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
嗯,应你要求,我改了标题。呵呵。


_________________
● 鸣学


页首
 用户资料  
 
6 楼 
 文章标题 :
帖子发表于 : 2008-06-27 21:54 
头像

注册: 2006-02-28 3:11
帖子: 2470
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
嗯,应你要求,我改了标题。呵呵。


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

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


_________________
一梦三年,
松风依旧,
萝月何曾老.


灵幽听微, 谁观玉颜?
灼灼春华, 绿叶含丹.


页首
 用户资料  
 
7 楼 
 文章标题 :
帖子发表于 : 2008-06-27 22:18 
头像

注册: 2007-05-08 16:26
帖子: 2058
地址: 火星内核某分子内某原子核内
系统: arch
送出感谢: 20
接收感谢: 6
不实用。QQ的离线文件功能好用多了。如果真的结婚了,每天在一起,电脑就在边上。


_________________
笔记本 :
F208S : gentoo
A460P i3G D6 : UBUNTU + WIN7
UN43D1 : UBUNTU + WIN7
1000人超级QQ群 LINUX + WIN : 31465544 或 18210387


页首
 用户资料  
 
8 楼 
 文章标题 :
帖子发表于 : 2008-06-28 23:57 
头像

注册: 2008-06-22 12:27
帖子: 921
送出感谢: 0 次
接收感谢: 0 次
日,强烈要求给eexp...警告,种族崎视!


页首
 用户资料  
 
9 楼 
 文章标题 :
帖子发表于 : 2008-06-29 0:02 

注册: 2008-06-28 23:39
帖子: 19
送出感谢: 0 次
接收感谢: 0 次
为什么说没老婆的别进?
有点小晕。


_________________
联系方式:looool1111@126.com


页首
 用户资料  
 
10 楼 
 文章标题 :
帖子发表于 : 2008-06-29 21:47 
头像

注册: 2008-02-02 13:06
帖子: 838
地址: 寶能科技
送出感谢: 2
接收感谢: 2
:shock: :shock:


页首
 用户资料  
 
11 楼 
 文章标题 :
帖子发表于 : 2008-07-01 17:59 

注册: 2007-09-09 9:35
帖子: 180
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
这么高级的问题,你去问法国佬吧。

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

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


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

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


页首
 用户资料  
 
12 楼 
 文章标题 :
帖子发表于 : 2008-07-10 13:23 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
加一个选择目标邮箱的。
代码:
   to =>`zenity --list  --column="邮件地址" --text="选择收件人" --title="发送邮件" eexpress\@163.com exp.exp\@gmail.com`,


其中邮件地址可以这样取得。估计perl会骂我。
代码:
grep MAIL= ~/.opera/contacts.adr|sed 's/^.*MAIL=//'|tr '\n' '\ '


_________________
● 鸣学


页首
 用户资料  
 
13 楼 
 文章标题 :
帖子发表于 : 2008-07-10 14:11 
头像

注册: 2006-09-10 22:36
帖子: 10663
地址: 北京
送出感谢: 1
接收感谢: 16
这和有没有老婆有啥关系? :shock:


_________________
看破、放下、自在、随缘、念佛
真诚、清净、平等、正觉、慈悲


页首
 用户资料  
 
14 楼 
 文章标题 :
帖子发表于 : 2008-07-10 22:56 
头像

注册: 2007-04-25 13:12
帖子: 2838
送出感谢: 0 次
接收感谢: 0 次
代码:
#!/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"


:D


页首
 用户资料  
 
15 楼 
 文章标题 :
帖子发表于 : 2008-07-11 9:15 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
复杂了。还输入。看下标题吧。不要终端才好。


_________________
● 鸣学


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 34 篇帖子 ]  前往页数 1, 2, 3  下一页

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 4 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译