分页： 1 / 3
可以挂到文件管理器，右键菜单发送邮件附件的脚本。perl。没老婆的别进。
发表于 ： 2008-06-27 20:11
由 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 => '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.
发表于 ： 2008-06-27 20:24
由 yjcong
发表于 ： 2008-06-27 21:26
由 eexpress
这么高级的问题，你去问法国佬吧。
我的脚本是简单的，适合挂到文件管理器右键菜单用的。给老婆专用的。居然没人要这脚本。
估计看过帖子的，都还没老婆。
发表于 ： 2008-06-27 21:38
由 yjcong
eexpress 写了：这么高级的问题，你去问法国佬吧。
我的脚本是简单的，适合挂到文件管理器右键菜单用的。给老婆专用的。居然没人要这脚本。
估计看过帖子的，都还没老婆。
如果你说回过这个帖子的都没有老婆， 我可以200％的和你说， 猜的满准的
发表于 ： 2008-06-27 21:45
由 eexpress
嗯，应你要求，我改了标题。呵呵。
发表于 ： 2008-06-27 21:54
由 yjcong
eexpress 写了：嗯，应你要求，我改了标题。呵呵。
行拉， 这次看的人更多了。 你的目的达到了。
终于还是领略里一次可恶的ee风格
发表于 ： 2008-06-27 22:18
由 sevk
不实用。QQ的离线文件功能好用多了。如果真的结婚了，每天在一起，电脑就在边上。
发表于 ： 2008-06-28 23:57
由 aobi
日，强烈要求给eexp...警告，种族崎视！
发表于 ： 2008-06-29 0:02
由 looool1111
为什么说没老婆的别进？
有点小晕。
发表于 ： 2008-06-29 21:47
由 独孤
发表于 ： 2008-07-01 17:59
由 majia1hao
eexpress 写了：这么高级的问题，你去问法国佬吧。
我的脚本是简单的，适合挂到文件管理器右键菜单用的。给老婆专用的。居然没人要这脚本。
估计看过帖子的，都还没老婆。
包括ee自己？ee果然木文化
不包括ee，我宣布你估计错误
发表于 ： 2008-07-10 13:23
由 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' '\ '
发表于 ： 2008-07-10 14:11
由 qiang_liu8183
这和有没有老婆有啥关系？
发表于 ： 2008-07-10 22:56
由 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"
发表于 ： 2008-07-11 9:15
由 eexpress
复杂了。还输入。看下标题吧。不要终端才好。