摘要: 俺们有两个邮箱,1个外部的邮箱1(outlook),1个内部邮箱0(lotus notes)。想要outlook邮箱收到新邮件之后判断一下subject的内容,如果是"kkk:"开头,则将"kkk:"后面的内容作为to发到lotus notes的邮箱里面去。测试环境(xp+msft outlook),按alt+F11进入VBA编辑。注意要在工具 -> 宏 -> 安全性中设置为低。部分代码如下(手抄的,可能有错哦~~):option explicitpublic WithEvents outApp as Outlook.ApplicationS 阅读全文
posted @ 2012-01-19 16:15 Nina 阅读(1218) 评论(0) 推荐(0) 编辑
摘要: 我每天所收到的e-mail中,订阅的电子杂志占了很大的比例。其中既有新闻也有电脑技术或娱乐性文章,加在一起竟有上百封。后来我知道单位里许多人同我一样也喜欢看,而且有的人还订了同样的杂志,所以我就每天收到邮件后把它们整理到局域网上去。只是这么多的邮件,整理起来工作量可不小,怎么解决一下呢? 这些邮件通常都是HTML格式的,用Outlook通常的方法不能正确的导出,而且分布在许多下层子夹中,导出很麻烦。我在OUTLOOK中,用VBA实现了HTML邮件导出并自动发布到网络上。 要对邮件箱里的邮件进行操作,首先要取得Outlook MAPI名字空间。可以使用下面的语句: Dim mobjO... 阅读全文
posted @ 2012-01-19 16:14 Nina 阅读(2295) 评论(0) 推荐(1) 编辑