20170711筛选OutLook主题并转发
Sub 筛选OutLook主题并转发()
On Error Resume Next
Dim OutApp As Application
Set OutApp = Application
Dim OutMail As MailItem
Dim OneAccount As Account
Dim UsingAccount As Account
Dim OutNameSpace As NameSpace
Dim OneFolder As Folder
Dim subFolder As Folder
Dim OneBody As String
Dim ToName As String
Dim FwdItem As MailItem
Dim NewBody As String '要在OutLook里配置一个POP3的账户 用来发送邮件
For Each OneAccount In Application.Session.Accounts
If OneAccount.AccountType = olPop3 Then
Set UsingAccount = OneAccount '找到账户
Debug.Print "测试账户>>"; UsingAccount.UserName
Exit For
End If
Next OneAccount Set OutNameSpace = OutApp.GetNamespace("MAPI")
For Each OneFolder In OutNameSpace.Folders If OneFolder.Name = "next@126.com" Then '此处改为你收件OutLook的账户名(就是收到对不起XXX的那个邮箱名称)
For Each subFolder In OneFolder.Folders '循环所有的文件夹
For Each OutMail In subFolder.Items '循环所有邮件
Debug.Print OutMail.Subject
If InStr(1, OutMail.Subject, "对不起") > 0 Then '如果标题含有对不起三个字
ToName = Split(outMailSubject, "-")(0) '对不起,XXX后面是什么符号, 引号内则填什么符号 比如横杠-
ToName = Split(ToName, ",")(1) '对不起和XXX之间什么符号,引号内就填什么符号 比如中文 逗号, Set FwdItem = OutMail.Forward '转发 '构建新的邮件内容
NewBody = "Hello " & ToName & vbCrLf
NewBody = NewBody & " Your payment to " & ToName & " is declined" & vbCrLf
NewBody = NewBody & "Hi hi" & vbCrLf
NewBody = NewBody & FwdItem.Body FwdItem.Recipients.Add ("8485@qq.com") '填写转发地址
FwdItem.Recipients.Add ("7866@qq.com") '添加更多的转发地址 就再复制一行
FwdItem.Subject = "Hello " & ToName '转发的标题
FwdItem.Body = NewBody '转发的内容
FwdItem.SendUsingAccount = UsingAccount '发送使用的账户
FwdItem.Send '发送 End If
Next
Next
End If
Next Set OutApp = Nothing
Set OutNameSpace = Nothing
Set OutMail = Nothing
Set OneFolder = Nothing
Set subFolder = Nothing
Set UsingAccount = Nothing
End Sub
20170711筛选OutLook主题并转发的更多相关文章
- NLP︱LDA主题模型的应用难题、使用心得及从多元统计角度剖析
将LDA跟多元统计分析结合起来看,那么LDA中的主题就像词主成分,其把主成分-样本之间的关系说清楚了.多元学的时候聚类分为Q型聚类.R型聚类以及主成分分析.R型聚类.主成分分析针对变量,Q型聚类针对样 ...
- R语言︱LDA主题模型——最优主题数选取(topicmodels)+LDAvis可视化(lda+LDAvis)
每每以为攀得众山小,可.每每又切实来到起点,大牛们,缓缓脚步来俺笔记葩分享一下吧,please~ --------------------------- 笔者寄语:在自己学LDA主题模型时候,发现该模 ...
- [转]C#操作Outlook
本文转自:https://blog.csdn.net/yanlovehan/article/details/8500449 //引用Microsoft.Office.Interop.Outlook.d ...
- Microsoft Dynamics CRM 常用JS语法(已转成vs2017语法提示)
背景 最近接触到Microsoft Dynamics CRM的开发.前端js是必不可少的部分,奈何没有一个语法提示,点不出来后续的语句. 在vscode上面搜索插件的时候发现,有一个大神写的插件htt ...
- 转战物联网·基础篇06-深入理解MQTT协议之基本术语
通过上一节我们对MQTT协议已经有了初步的印象,这一节我们开始深入的理解一下MQTT协议,介绍常用的MQTT 3.1.1版本,5.0版本后面指介绍新增部分即可.这一节我们先介绍MQTT里常用的术语 ...
- 如何在Azure环境里做好信息传递可扩展性经验分享
作者 王枫 发布于2014年5月15日 综述 本文介绍建立一个在Azure上使用Azure服务总线, 高吞吐量短信平台的必要步骤.在这篇文章中提出的解决方案是在响应由客户的具体要求,建立一个基于Win ...
- 转战物联网·基础篇05-通俗理解MQTT协议的实现原理和异步方式
网络上搜索MQTT协议,会出现太多的解释,这里就不做官方标准释义的复制了.这一节我们从实战理解角度,通俗的将MQTT协议的作用及实现原理说一下,旨在可以快速理解MQTT协议.所以可能会出现很多看似 ...
- 介绍一种 Python 更方便的爬虫代理池实现方案
现在搞爬虫,代理是不可或缺的资源 很多人学习python,不知道从何学起.很多人学习python,掌握了基本语法过后,不知道在哪里寻找案例上手.很多已经做案例的人,却不知道如何去学习更加高深的知识.那 ...
- 痞子衡嵌入式:我入选了2021年度与非网(eefocus)星选创作者Top10
本周二「与非网」一个美女运营小姐姐加痞子衡微信,告知痞子衡评上了一个奖,让痞子衡把收件地址告诉她,她把证书寄过来. 昨天痞子衡收到了快递,拆开一看,原来是被评上了 与非网 2021 年度创作者,这个证 ...
随机推荐
- 2018-2019-2 20165209 《网络对抗技术》 Kali安装
2018-2019-2 20165209 <网络对抗技术> Kali安装 目录内容 下载 安装 网络 共享 软件源 下载kali kali下载官网地址 我下载的版本(如下图所示) 安装 打 ...
- javascript中父、子页面间调用
本文主要转自:http://www.360doc.com/content/11/0525/17/6161903_119333834.shtml http://zh ...
- svn导出文件夹到另外目录export
svn导出文件夹到另外目录export 2.选择目录,下面两个选项不用勾选 3.有存在的文件选择overwrite覆盖,勾选下面的同样操作
- MySQL数据库总结
引擎 查看MySQL默认引擎:show variables like '%storage_engine%'; 查看表引擎:show table status from 数据库名; 修改表引擎alter ...
- printf("%d",5.01)和printf("%f",5)的输出结果
printf(); printf("%d\n",5.01); printf(); printf(.f); 输出结果: 看到结果,会感觉非常奇怪.1处怎么会输出0呢?2又为何会显示这 ...
- MySQL Crash Course #13# Chapter 21. Creating and Manipulating Tables
之前 manipulate 表里的数据,现在则是 manipulate 表本身. INDEX 创建多列构成的主键 自动增长的规定 查看上一次插入的自增 id 尽量用默认值替代 NULL 外键不可以跨引 ...
- php检查是否是数字和字母
/* 检查是否是数字和字母* php内置函数ctype_alnum检查字符串是否是数字和字母,或者两者混合* $string*/ public function is_numandlitter($st ...
- Duilib初级控件扩展一例: 具有鼠标滚动消息的OptionUI
转载:http://www.cnblogs.com/memset/p/Duilib_MouseWheelOptionUI_Deprecated.html
- VirtualBox 安装XP虚拟机需要注意的问题
1.首先要有xp系统的镜像文件 http://pan.baidu.com/s/1i4xrwdJ 2.新建虚拟机,并安装 http://www.pczhishi.cn/shipin/107.html 3 ...
- Win32建立右键弹出菜单(PopMenu)
自定义右键菜单: #ifndef _CONTEXTMENU_H_ #define _CONTEXTMENU_H_ #include <windows.h> //动态菜单 #define I ...