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.
thanks k
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
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
If llAttach
loAttachment = loMSG.attachments(loAttach.Count)
For Each loAttachment In loMSG.attachments
loAttachment.SaveAsFile("c:\vaniermu\attachments\"+loAttachment.filename)
Next
endif
=loMSG.Move(loNameSpace.Folders(1).Folders(14))
Endif
Endfor