Переместить выбранный адрес электронной почты в папку нежелательной почты в Outlook с помощью макроса VBA

Question

Я пытаюсь создать подраздел, который просто переместит любую выбранную в настоящее время почту в папку нежелательной почты по умолчанию в Outlook при вызове sub.
Мне очень сложно найти какие-либо ссылки, которые я могу использовать, и буду благодарен за помощь.

Answer 1

Это будет работать для вас

Sub MoveItems() 
    Dim myDestFolder As Outlook.Folder 
    Set myDestFolder = Application.GetNamespace("MAPI").Folders("youremailaddress").Folders("[Gmail]").Folders("Spam") ' or Junk 
    Dim myItem As Object 
    Set myItem = GetCurrentItem 
    myItem.Move myDestFolder 
End Sub 

Function GetCurrentItem() As Object 
    Dim objApp As Outlook.Application 
    Set objApp = Application 
    On Error Resume Next 
    Select Case TypeName(objApp.ActiveWindow) 
    Case "Explorer" 
    Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1) 
    Case "Inspector" 
    Set GetCurrentItem = objApp.ActiveInspector.CurrentItem 
    End Select 
    GetCurrentItem.UnRead = False 
    Set objApp = Nothing 
End Function