retrieve email by win32ole

#http://rubyonwindows.blogspot.com/search/label/excel

1. $KCODE='SJIS'
2. require 'date'
3. require 'win32ole'
5. outlook = WIN32OLE.connect('Outlook.Application')
6. mapi = outlook.GetNameSpace('MAPI')
7. # Get a reference to the Inbox or other folder:
8. @inbox = mapi.GetDefaultFolder(6)
9. #personal_folders = 
10. personal_folders = mapi.Folders.Item('elishaobo')
11. # Get a count of a folder's unread items:
12. #puts "#{inbox.UnreadItemCount} unread messages"
13. dat = DateTime.now.to_s
14. dat ="2008-08-20"
15. @dt="#{dat[0,4] << dat[5,2] << dat[8,2]}"
16. #dt="20080625"
17. puts @dt
18. qa=personal_folders.Folders.Item('Inbox').Folders.Item('QA票').items
19. sjt=personal_folders.Folders.Item('Inbox').Folders.Item('本日依頼').items
21. sjt.each{|m|
22.     if(m.Subject=~/^.*#{@dt}/)
23.         s=m.Body
24.         s.each {|ln|
25.                 if (ln=~/^/s{0,}注意/)
26.                         #puts "exit at #{ln}"
27.                         break
28.                 end
29.                 if (ln=~/^/s{0,}SJT-/d{4}/t{1,}/)
30.                         #puts ln
31.                         rv=ln.split("/t")[5].chomp
32.                         puts ln 
33.                         if(rv.include?("xxx"))
34.                             puts ln
35.                             #Ship.new(dat).input(ln.split("/t")[0],ln.split("/t")[1],ln.split("/t")[2],ln.split("/t")[4],@str)
36.                         end
37.                 end
38.          }
39.     end
40. }