Question

我希望使用VB脚本永久删除outlook 2003/2007中的RSS源。

我想知道是否有办法在不清空回收站的情况下执行此操作，因为用户有时会将回收站用作文件夹。

以下是我到目前为止的代码示例，我们将非常感谢任何帮助

谢谢！

Const olFolderRssFeeds = 25 
Dim olkApp, olkSes, olkFld, olkSub, intIdx, intCount 

Set olkApp = CreateObject("Outlook.Application") 
Set olkSes = olkApp.GetNamespace("MAPI") 
'Change the profile name on the next line' 
olkSes.Logon "Outlook" 

Set olkFld = olkSes.GetDefaultFolder(olFolderRssFeeds) 
Wscript.echo(olkFld)  

intCount = olkFld.Folders.count 
Wscript.echo("Folder Count: " & intCount)  


For intIdx = intcount to 1 step -1 
   Set olkSub = olkFld.Folders.item(intIdx) 
   'Wscript.echo("Feed Name: " & olkSub)  
   olkSub.PermanentDelete 
Next 

Set olkSub = Nothing 
Set olkFld = Nothing 
olkSes.Logoff 
Set olkSes = Nothing 
Set olkApp = Nothing

Answer 1

你基本上需要两次运行删除。您可以在第一次删除之前记录EntryID，以便恢复该项目并再次删除。

olkSubEntryID = olkSub.EntryID
olkSub.Detele
Set olkSub = olkSes.GetItemFromID(olkSubEntryID)
olkSub.Delete

永久删除Outlook.Application VB脚本中的RSS源

1 个答案: