>The code below moves unread emails from the inbox to a folder called 'Done'. It works on my computer but it's a little difficult to figure out the folder names-numbers on other computers - it's guess work. On one i worked on inbox is folder is 4 - on mine it's folder 1.
>Is there a couple of line of code i can introduce to show what folder names correspond to what folder numbers - there sems to be no logical ordering of numbers.
You don't need the numbers. One of the cool things about collections is that you can refer to items by name. So to reference the "Done" folder of the Inbox, use:
loInbox.Folders["Done"]
Tamar
>
>
>Local loOutlook As Outlook.Application
>Local loNameSpace As Outlook.NameSpace
>Local loInBox As Object
>Local loMSG As Outlook.MailItem
>Local lnUnRead As Integer
>Local loAttach,llAttach
>
>#Define olFolderInBox 6
>
>loOutlook = Createobject('Outlook.Application')
>loNameSpace = loOutlook.GetNamespace("MAPI")
>loInBox = loNameSpace.GetDefaultFolder(olFolderInBox)
>lnUnRead = 0
>
>*-- At this point we have the InBox Object.
>*-- Let's display how many messages we have in the Inbox.
>Mess = "You have " + Transform(loInBox.Items.Count) + " Messages"+Chr(13)+"Scanning for unread messages"
>Wait Window Mess+Chr(13)+"Please wait...." Nowait At 3,112
>For Each loMSG In loInBox.Items
>If loMSG.UnRead
> loAttach = loMSG.attachments
> llAttach = Iif(loAttach.Count > 0,.T.,.F.)
>
> loMSG.SaveAs('c:\vaniermu\attachments\email.txt',0)
>
> wordfound = "N"
> lnUnRead = lnUnRead + 1
>
> tem= loMSG.SenderName
> temO=loMSG.SenderName
> son = mdy(loMSG.SentOn)
> sub = loMSG.Subject
> * loMSG.body
>
> If llAttach
> loAttachment = loMSG.attachments(loAttach.Count)
> For Each loAttachment In loMSG.attachments
> loAttachment.SaveAsFile("c:\vaniermu\attachments\"+loAttachment.filename)
> Next
> endif
>
>*loMsg.unRead = .F.
>=loMSG.Move(loNameSpace.Folders(1).Folders(14))
>
>
>**ELSE
>** ? "Read Message Subject: " + loMSG.Subject
>Endif
>
>Endfor
>
>
>
>