访问VBA：如何将电子邮件从自定义文件夹移动到另一个

Question

我需要Access数据库进入Outlook并将电子邮件从名为“AlarmsExportAccess”的收件箱子文件夹移动到名为“Event_Archive”的另一个收件箱子文件夹。我不知道如何指向文件夹以获得我想要的结果。任何人都可以为我阐明这一点吗？

谢谢！

Answer 1

这会做你想做的。

Option Compare Database 

Private Sub Command0_Click() 


Dim myNameSpace As Outlook.NameSpace 
Dim myInbox As Outlook.Folder 
Dim myDestFolder As Outlook.Folder 
Dim myItems As Outlook.Items 
Dim myItem As Object 
Dim ol As Outlook.Application 
Dim olns As Outlook.NameSpace 

' Set the Application object. 
Set ol = New Outlook.Application 

' Set the Namespace object. 
Set olns = ol.GetNamespace("MAPI") 

Set myInbox = olns.GetDefaultFolder(olFolderInbox) 
Set myItems = myInbox.Items 
Set myDestFolder = myInbox.Folders("OverHere") 


For Each myItem In myItems 
    If myItem.Class = olMail Then 
     If InStr(1, myItem.Subject, "Happy Birthday") > 0 Then 
      'Debug.Print "Found" 
      'Found = True 
      myItem.Move myDestFolder 
     End If 
    End If 
Next myItem 

While TypeName(myItem) <> "Nothing" 

Set myItem = myItems.FindNext 
Wend 
End Sub