#http://rubyonwindows.blogspot.com/search/label/excel
- $KCODE='SJIS'
- require 'date'
- require 'win32ole'
- outlook = WIN32OLE.connect('Outlook.Application')
- mapi = outlook.GetNameSpace('MAPI')
- # Get a reference to the Inbox or other folder:
- @inbox = mapi.GetDefaultFolder(6)
- #personal_folders =
- personal_folders = mapi.Folders.Item('elishaobo')
- # Get a count of a folder's unread items:
- #puts "#{inbox.UnreadItemCount} unread messages"
- dat = DateTime.now.to_s
- dat ="2008-08-20"
- @dt="#{dat[0,4] << dat[5,2] << dat[8,2]}"
- #dt="20080625"
- puts @dt
- qa=personal_folders.Folders.Item('Inbox').Folders.Item('QA票').items
- sjt=personal_folders.Folders.Item('Inbox').Folders.Item('本日依頼').items
- sjt.each{|m|
- if(m.Subject=~/^.*#{@dt}/)
- s=m.Body
- s.each {|ln|
- if (ln=~/^/s{0,}注意/)
- #puts "exit at #{ln}"
- break
- end
- if (ln=~/^/s{0,}SJT-/d{4}/t{1,}/)
- #puts ln
- rv=ln.split("/t")[5].chomp
- puts ln
- if(rv.include?("xxx"))
- puts ln
- #Ship.new(dat).input(ln.split("/t")[0],ln.split("/t")[1],ln.split("/t")[2],ln.split("/t")[4],@str)
- end
- end
- }
- end
- }