Chinaunix首页 | 论坛 | 博客
  • 博客访问: 3793043
  • 博文数量: 93
  • 博客积分: 3189
  • 博客等级: 中校
  • 技术积分: 4231
  • 用 户 组: 普通用户
  • 注册时间: 2009-02-02 13:29
个人简介

出没于杭州和青岛的程序猿一枚,对内核略懂一二

文章分类

全部博文(93)

文章存档

2016年(2)

2015年(3)

2014年(11)

2013年(29)

2012年(16)

2011年(5)

2010年(5)

2009年(22)

分类:

2009-04-09 17:01:17

require 'net/smtp'
require 'ftools'
require 'getoptlong'
$tomail=""
$subject=""
$content=""
$filename=""
$i=0
def help()
 puts "Usage:\nsendemail [option] [file]" 
 puts "\t--to  -t  destination email"
 puts "\t--subject -s  email subject"
 puts "\t--content -c  email content"
 puts "\t--file -f  email content in file,can't use with -c"
 exit 1
end
opts=GetoptLong.new(
  ["--to","-t",GetoptLong::REQUIRED_ARGUMENT],
  ["--content","-c",GetoptLong::REQUIRED_ARGUMENT],
  ["--subject","-s",GetoptLong::REQUIRED_ARGUMENT],
  ["--file","-f",GetoptLong::REQUIRED_ARGUMENT],
  ["--help","-h",GetoptLong::NO_ARGUMENT]);
opts.each do |optopt,optarg|
 #puts "options:#{optopt},arg #{optarg}"
 if("#{optopt}"=="-t"||"#{optopt}"=="--to")
  $tomail="#{optarg}"
  $i+=1
 end
 if("#{optopt}"=="-f"||"#{optopt}"=="--file")
  $filename="#{optarg}"
  $i+=1
 end
 if("#{optopt}"=="-c"||"#{optopt}"=="--content")
  $content="#{optarg}"
  $i+=1
 end
 if("#{optopt}"=="-s"||"#{optopt}"=="--subject")
  $subject="#{optarg}"
  $i+=1
 end
 if("#{optopt}"=="-h"||"#{optopt}"=="--help")
  help()
 end
end
if($i!=3) then
 help()
end
if($filename!="") then
 f=File.new("#{$filename}","r")
 $content=f.read
 f.close
end
msg="Subject: #{$subject}\n\n#{$content}\n"
Net::SMTP.start('smtp.sina.com',25,'smtp.sina.com','你的sina邮箱账户','sina账户密码',:login) do |smtp|
 smtp.send_message(msg,'bornwin@sina.com',["#{$tomail}"])
end
阅读(4565) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~