我正在尝试创建一个子程序,当该子程序被调用时,该子程序会将所有当前选定的邮件简单地移动到Outlook中的默认垃圾文件夹。
我很难找到可以使用的任何参考资料,希望对您有所帮助。
这将为您工作
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句