永久刪除Outlook.Application VB腳本中的RSS源

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