我在Outlook 2010中设置了多个邮箱。当我收到一个非默认邮箱上的邮件时,我希望宏运行。
我编写了下面的代码,并将代码插入到"ThisOutlookSession".中
我已经将它用于默认邮箱的收件箱,而不是非默认邮箱的收件箱。当我尝试在插入代码后重新打开outlook 2010时,它告诉我:"Compile error in hidden module: ThisOutlookSession".非默认框称为'abc.asia‘。
我是新来的vba,所以任何投入都是非常感谢的,谢谢!
Dim WithEvents myInboxMailItem A
我的用户将其个人邮箱作为其主要帐户,并在其Outlook 2010客户端中配置了一个自动映射的共享邮箱。共享邮箱是Office 365共享邮箱,因此无法登录以将其设置为主帐户。
我正在尝试从共享帐户的地址开始新的电子邮件。
下面是我一直在尝试使用的VBA代码。我已允许在Outlook的信任中心设置中使用宏。
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAcc
我在多个邮箱工作。
我可以设置一个宏来抄送我的个人邮箱。
我怎样才能改变这段代码来抄送我目前正在使用的共享邮箱?
Public Sub SendAll()
Dim mail As Outlook.MailItem
Set mail = Application.ActiveInspector.CurrentItem
mail.CC = mail.CC & "*Personal E-mail here*"
mail.Send
End Sub
有时Outlook (2003)失去到一个或多个IMAP服务器的连接。例如,对于应该将邮件移动到这些邮箱的VBA脚本,我得到了以下错误消息:
“运行时错误'-972759285 (C604df0b)”:与服务器的连接不可用。Outlook必须联机或连接才能完成此操作。
然后我必须首先点击"File“-”连接到邮箱.“若要手动建立此连接,请执行以下操作。我正在寻找一个VBA解决方案来自动连接到多个邮箱(仅IMAP),但我不知道在VBA引用中查找什么。
我试过这个:
Sub MyTest()
Dim myNameSpace As Outlook.NameSpace