Member Avatar for pavan146
pavan146 -1 Newbie Poster

Hi every1 please help me out in this code...

Set myOLApp = CreateObject("Outlook.Application")
Set myNameSpace = myOLApp.GetNamespace("MAPI")
Set myPubFold = myNameSpace.Folders("Personal Folders")
Set myFolder1 = myPubFold.Folders("Raju1")
Set myFolder2 = myPubFold.Folders("Raju2")
For Each m In myFolder1.items
m.Move myFolder2
Wscript.Sleep 60000
Next
Msgbox "Done"
Set myOLApp = Nothing


Set myNameSpace = Nothing
Set myPubFold = Nothing
Set myFolder1 = Nothing

Above code is used to move emails from one folder to another but its not working properly
so can any1 help??

  • 1 Contributor
  • 0 Replies
  • 50 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.