VBA前景事件移动电子邮件

我寻找一种方式来获得在Outlook中移动项目/电子邮件的事件。

我们可以用一个检查? 或者有没有像itemsent或NEWMAIL事件处理程序?

保护你


更多细节 :

我有4个或更多邮箱各有文件夹和子(其中1是数以百万计的文件夹的LiveLink的框)有些COMMUN框,那里有谁拖COMMUN邮件的人的数X

我要赶每次邮件是移动在LiveLink的框中的文件夹上。

--------------解决方案-------------

当一个项目被添加到集合,一个文件夹中的事件。 例如,假设你有一个名为“东西”一下面默认收件箱的文件夹。 此代码将触发每一个邮件被移动到该文件夹​​的时间:

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim olApp As Outlook.Application

Set olApp = Outlook.Application
Set Items = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Stuff").Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)

On Error GoTo ErrorHandler

MsgBox "You moved an item into the 'Stuff' folder."

ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub

Function GetNS(ByRef app As Outlook.Application) As Outlook.NameSpace
Set GetNS = app.GetNamespace("MAPI")
End Function

粘贴到ThisOutlookSession并重新启动Outlook。 每当邮件被移动到该文件夹​​,你会看到弹出。

分类:事件处理 时间:2012-01-01 人气:0
分享到:

相关文章

  • 从Excel呼叫前景VBA 2015-02-15

    我有我想要当某Excel工作簿关闭致电前景VBA函数. 有没有办法使用Excel的BeforeClose事件来做到这一点? 我知道如何写函数此事件,但我不知道如何将它们链接到当前Outlook会话去的功能. --------------解决方案------------- MS Office应用程序可以相互用这种方法进行交互(这是基于Office 2007的,但其他人是相似的): 一个引用添加到应用程序到Excel 在Excel VBA,从工具\ References菜单选中Microsoft O

  • 展望2007年 - VBA宏NormalEmail.dotm 2014-10-22

    我有一个覆盖色带上的子弹和数字键的默认行为在Word 2007的模板,我为的Normal.dotm,其中有企业的主题,风格等使用,再加上宏代码一点点. 我现在想创建Outlook 2007中的邮件我试着只是复制我的Normal.dotm到NormalEmail.dotm时使用同样的模板,这个作品在一定程度上,但是当我按下虽然我的宏调用正确的在电子邮件编辑子弹/数字按键,它提供了一个错误: 运行时错误429:ActiveX组件不能创建对象 在进一步的调查,似乎什么我我的宏,在正常的Word对象模型

  • 展望2013 /前景SP1后365开崩溃电子邮件时 2013-01-30

    嗨, 我有与Outlook 2013(工作)/ 365的Outlook(家庭)安装的Office Service Pack 1中后,一个令人沮丧的问题Outlook启动罚款,并显示Outlook今日屏幕. 当我去我的收件箱和Outlook要显示它崩溃了第一封电子邮件的预览. 开关/ NoPreview让我去我的收件箱,但后来当我尝试打开一个电子邮件(任何电子邮件)Outlook将崩溃. 展望运行良好的安全模式,所以我试图卸载/禁用加载项(在注册表中设置LoadBehavior的为0). 没有成功

  • 展望2007:VBA宏:图形用户界面的更新(沙漏鼠标指针)没有发生? 2013-04-20

    我有一个简单的VBA程序下载从邮件项目的附件; 我推出一个宏(即模块中的"子"),它做了"Form.Show"推出一个用户窗体. 还有就是用户表单上的一个按钮来踢的实际下载 - 下载子位于回模块代码,而不是形式的代码. 下面是我使用的按钮的代码: Private Sub BTN_Download_Click() Me.MousePointer = fmMousePointerHourGlass Me.BTN_Download.Enabled = False Util

  • 展望2010年VBA无效或碎末参考 2013-04-25

    我尝试不同的方法,我是工作的一天的东西. 在工作​​中,我们使用Outlook 2010和全天收到.XLSX附件的电子邮件. 我想弄清楚如何使用VBA在Outlook中查看收到的邮件的附件,那么如果附件计数> 0,测试附件,如果它是一个电子表格,用发件人的地址簿信息更新tblOutlookLog. 这只是我的第二或第三天用的MS Access的VBA试验外,我摸索在黑暗中试图找出语法. 我从下面的Outlook贴下面的代码. 我得到的olInbox_ItemAdd(BYVAL项目作为对象)节是错

  • 展望2010年VBA代码来显示收件人的别名 2014-06-12

    我公司指定每个员工被存储为在Outlook中的"别名"的ID. 我们经常使用这个ID,我正在寻找一种简单的方法才能看到它. 现在我进入一个新的电子邮件的收件人姓名,双击名称,点击更多选项,然后Outlook中的属性. 我要寻找一个宏,在那里我会在一个新的电子邮件输入收件人的名称,然后运行它只会弹出收件人的别名作为一个消息框宏(最好将其复制到剪贴板). 我试图(但失败了)写我自己. 我到目前为止的代码如下. 然而,这种代码给出/ O = corpexchange / OU = Excha

  • 展望2007年VBA代码将无法运行在Windows 7 2015-02-24

    我使用的是规则,当某些电子邮件到达运行VBA脚本. 该脚本本身只是从邮件正文中获取数据并将其输入到Excel文档. 我写了一个WinXP的机器(SP3)运行Outlook 2007的代码和所有我的测试中被证明是成功的. 当我移动代码到Windows 7的机器,再次使用Outlook 2007时,VBA代码不会运行在所有. 我查了宏安全设置,一切看起来好那里. 我也双重检查,以确保Excel 12中对象库被列入. 我想,以确保没有什么在导致问题的代码,所以我剥夺了一切,只是留下了一个命令显示一个消

  • 展望永久删除VBA 2013-05-03

    你好 我删除的文件夹包含成千上万的电子邮件和我一起加入约100封邮件给它每天,进行任何搜索很慢确实如此. 我怎样才能为outlook2007的规则,即永久删除所有的电子邮件从电子邮件比如列表. ***电子邮件地址的隐私***,***电子邮件地址的隐私去除去除***,***电子邮件地址的隐私***等,这都在我删除的项目7天或更旧删除夹? 谢谢 格兰特 --------------解决方案------------- 也许这可以帮助 http://www.slipstick.com/outlook/c

  • 从展望下载附件VBA代码 2014-03-04

    喜队, 我需要用于下载的代码选中所有邮件附加的文件从Outlook文件夹. 谢谢, Chandru --------------解决方案------------- 就以www.slipstick.com看看 显式的选项 "Optionflags德ShellGetFolder-对话框 枚举vbShellGetFolderFlags BIF_RETURNONLYFSDIRS = H1 BIF_DONTGOBELOWDOMAIN = H2 BIF_STATUSTEXT = H4 BIF_RETURNF

  • 打开Outlook宏使用Excel VBA? 2012-10-12

    可能重复: 从Excel呼叫前景VBA 我了解Application.Run从Excel的方法,与我可以打开从Outlook的Excel宏. 我需要切换Excel.Application对象Outlook.Application ,它不工作. 错误消息是: "Method is not supported." --------------解决方案------------- 根据这一线索,要做到这一点的唯一方法是调用存储过程ThisOutlookSession : Set myOlApp

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.378 (s). 10 q(s)