Set objOutlook = CreateObject("Outlook.Application") Set myNameSpace = objOutlook.GetNamespace("MAPI") Set myInboxFolder = myNameSpace.GetDefaultFolder(6) Set myNewFolder = myInboxFolder.Folders.Add("資料夾一") Set myNewFolder = myInboxFolder.Folders.Add("資料夾二") Set myNewFolder = myInboxFolder.Folders.Add("資料夾三")
留言
張貼留言