ms 2010 vb將電子郵件移動到不同的郵箱和子文件夾

Question

我正在將電子郵件從一個文件夾移動到下面的郵箱的已刪除文件夾。我得到一個「編譯錯誤：變量未定義」的消息，我哪裏出錯了？

Sub MoveToFolder(folderName) 

mailboxNameString = "Mailbox - David Beach" 

Dim olApp As New Outlook.Application 
Dim olNameSpace As Outlook.NameSpace 
Dim olCurrExplorer As Outlook.Explorer 
Dim olCurrSelection As Outlook.Selection 

Dim olDestFolder As Outlook.MAPIFolder 
Dim olCurrMailItem As MailItem 
Dim m As Integer 

Set olNameSpace = olApp.GetNamespace("MAPI") 
Set olCurrExplorer = olApp.ActiveExplorer 
Set olCurrSelection = olCurrExplorer.Selection 

Set olDestFolder = olNameSpace.Folders(mailboxNameString).Folders(folderName) 

For m = 1 To olCurrSelection.Count 
    Set olCurrMailItem = olCurrSelection.Item(m) 
    Debug.Print "[" & Date & " " & Time & "] moving #" & m & _ 
       ": folder = " & folderName & _ 
       "; subject = " & olCurrMailItem.Subject & "..." 
    olCurrMailItem.Move olDestFolder 
Next m 

End Sub 

Sub Delete() 
MoveToFolder ("Deleted Items") 
End Sub 

Answer 1

此行是爲Outlook 2003 mailboxNameString = 「郵箱 - 大衛海灘」

看看你的2010郵箱並使用該名稱。