我设法使用这个站点让代码在我的个人邮箱上工作。它适用于个人邮箱从收件箱移动到名为Test的收件箱子文件夹。在共享邮箱上,我需要从共享邮箱收件箱移到另一个名为Complete的文件夹。这是共享邮箱中的一个文件夹,不是子文件夹。Sub MailmoveAP() Dim olApp As Outlook.Application
Dim objNS As Out
在我们的办公室中,一些员工使用Outlook from office 2010,而其他员工使用Outlook应用程序。在我的团队中,我和一位同事同时使用Web应用程序和Outlook进行测试,而其他人只使用Outlook。我们有一个名为"serviceandsupport"的邮箱,它不是共享邮箱,而是我团队中的每个人都可以访问的普通用户邮箱,但只有在使用Outlook时才能访问。我们可以在Web中添加邮箱<
我的用户将其个人邮箱作为其主要帐户,并在其Outlook 2010客户端中配置了一个自动映射的共享邮箱。共享邮箱是Office 365共享邮箱,因此无法登录以将其设置为主帐户。我已允许在Outlook的信任中心设置中使用宏。Public Sub New_Mail()Dim oMail As Outlook.MailItem
For Each oAccount
我们有一个共享邮箱(test@)和一个子文件夹(TestIn)。 我想在共享邮箱的收件箱中选择一封电子邮件,并将其移动到"TestIn“文件夹中。我们正在使用Outlook中的Office365和Microsoft Exchange帐户。 我将选定的消息(或对话)从共享邮箱移动到个人邮箱的子文件夹中,而不是共享邮箱中。代码如下: Sub SetAlwaysMoveToFolderMAPI()
Dim sharedemail As Outlook</em