[WIN32OLE] Outlook Automation Question

S

Steve Tuckner

This is a multi-part message in MIME format.

------=_NextPart_000_00BC_01C33BD1.368279B0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

I am running a script to grab emails out of my Outlook email box. I want
to grab ones that I have flagged and then I want to clear the flag
however, the following code doesn't work. It seems to read the flag
status just fine (it looks like 0 means no flag, 1 means cleared flag,
and 2 means flagged). Any ideas?

Steve Tuckner

------- Code -------------------

outlook = WIN32OLE.new("Outlook.Application")
namespace = outlook.GetNamespace("MAPI")

class OutlookConst
end

WIN32OLE.const_load(outlook, OutlookConst)

folder = namespace.GetDefaultFolder(OutlookConst::OlFolderInbox)

i = 0
folder.items.each do |item|
if (item.FlagStatus == 2) then
item.FlagStatus = 1
end
end


------=_NextPart_000_00BC_01C33BD1.368279B0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>



<META content=3D"MSHTML 6.00.2600.0" name=3DGENERATOR></HEAD>
<BODY>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial size=3D2>I am =
running a=20
script to grab emails out of my Outlook email box. I want to grab ones =
that I=20
have flagged and then I want to clear the flag however, the following =
code=20
doesn't work. It seems to read the flag status just fine (it looks like =
0 means=20
no flag, 1 means cleared flag, and 2 means flagged). Any=20
ideas?</FONT></SPAN></DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial=20
size=3D2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial size=3D2>Steve =

Tuckner</FONT></SPAN></DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial=20
size=3D2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial =
size=3D2>------- Code=20
-------------------</FONT></SPAN></DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial=20
size=3D2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial =
size=3D2>outlook =3D=20
WIN32OLE.new("Outlook.Application")<BR>namespace =3D=20
outlook.GetNamespace("MAPI")</FONT></SPAN></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial size=3D2>class =

OutlookConst<BR>end</FONT></SPAN></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial=20
size=3D2>WIN32OLE.const_load(outlook, OutlookConst)</FONT></SPAN></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial =
size=3D2>folder =3D=20
namespace.GetDefaultFolder(OutlookConst::OlFolderInbox) said:
face=3DArial size=3D2></FONT></DIV>
<DIV><SPAN class=3D537535015-26062003><FONT face=3DArial size=3D2>i =3D =

0<BR>folder.items.each do |item|<BR>&nbsp;if (item.FlagStatus =3D=3D 2) =

then<BR>&nbsp;&nbsp;item.FlagStatus =3D=20
1<BR>&nbsp;end<BR>end<BR></FONT></SPAN></DIV></BODY></HTML>

------=_NextPart_000_00BC_01C33BD1.368279B0--
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Members online

No members online now.

Forum statistics

Threads
473,754
Messages
2,569,528
Members
45,000
Latest member
MurrayKeync

Latest Threads

Top