六狼论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博账号登陆

只需一步,快速开始

搜索
查看: 46|回复: 0

Ruby操作outlook清理邮箱

[复制链接]

升级  30%

3

主题

3

主题

3

主题

童生

Rank: 1

积分
15
 楼主| 发表于 2013-1-15 02:28:59 | 显示全部楼层 |阅读模式
原本准备用imap或者webdav写的,结果公司exchange服务器没开webdav~怒了~写了个winole32的。。。
require 'win32ole'outlook = WIN32OLE.new('Outlook.Application')mapi = outlook.GetNameSpace('MAPI')inbox = mapi.GetDefaultFolder(6)puts "You have #{inbox.UnreadItemCount} unread messages"@junk_sender = ["Training Assistant", "Activeupdate Team", "cloud9qa@gmail.com", "iauoperation@trendmicro.com.cn",\"594_Auto_Detect_New_Pattern_System@trendmicro.com", "TeamTrack-TW@trendmicro.com", "594lab_WebManager", "Helpdesk", "CN OS Admin","all_tw_autobuild@dl.trendmicro.com"\"PH SLO Report Team", "Xinweihan"]@junk_subject = ["joke", "spam", "PRE-OPR", "UPLOAD DONE", "Trend Micro Advisory"]def delete_junkmails(i)if message.SenderName =~/#{@junk_sender}/i        puts "deleting mail #{message.SenderName}-#{message.Subject}"message.Delete    endendinbox.Items.Count.downto(1) do |i|    message = inbox.Items(i)mark_delete = false@junk_sender.each do |s|if message.SenderName =~/#{s}/iputs "deleting mail #{message.SenderName}-#{message.Subject}"mark_delete = trueendend@junk_subject.each do |s|if message.Subject =~/#{s}/iputs "deleting mail #{message.SenderName}-#{message.Subject}"mark_delete = trueendendif mark_deletemessage.Deleteendend
您需要登录后才可以回帖 登录 | 立即注册 新浪微博账号登陆

本版积分规则

快速回复 返回顶部 返回列表