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 年度创作者,这个证 ...
随机推荐
- 论文笔记:Emotion Recognition From Speech With Recurrent Neural Networks
动机(Motivation) 在自动语音识别(Automated Speech Recognition, ASR)中,只是把语音内容转成文字,但是人们对话过程中除了文本还有其它重要的信息,比如语调,情 ...
- 微信小程序的功能开发工具跟公众号的差别,小程序是一种减负思维对简单APP是巨大打击
微信小程序的功能开发工具跟公众号的差别,小程序是一种减负思维对简单APP是巨大打击 摘要: 小程序和公众号最大的区别有如下四点:1.小程序没有粉丝,开发者在后台能看到的只能是累计用户访问数以及实时统计 ...
- MongoDB ----基于分布式文件存储的数据库
参考: http://www.cnblogs.com/huangxincheng/category/355399.html http://www.cnblogs.com/daizhj/category ...
- 4~20mA电流输出芯片XTR111完整电路
http://www.51hei.com/bbs/dpj-41904-1.html 为了大家方便,我这里给大家提供一种久经考验的电路,省去了大家找资料的麻烦,直接可以使用,优点有二:一是原料好买,二是 ...
- 负载均衡之-haproxy
老规矩,先介绍?复制一段? 1)HAProxy提供高可用性.负载均衡以及基于TCP和HTTP应用的代理,支持虚拟主机,它是免费.快速并且可靠的一种解决方案. 2)HAProxy特别适用于那些负载特大的 ...
- PHP-ThinkPHP5砍价活动相关设计
近期我们公司项目里陆陆续续有很多为了招引新用户的活动推出,砍价的活动由我来负责,我们的项目是在微信浏览器里供用户浏览访问. 大概描述:进入砍价活动列表页选择有意向的商品,用户点击商品图片可以看到WEB ...
- Python3 异常: name 'basestring' is not defined
Python3 异常: name 'basestring' is not defined 问题分析: python3 里已经没有basestring 类型,用str代替了basestring : 解决 ...
- PHP微信公众号后台开发(Yii2实现)
本文内容较多,包括微信接入.获取微信用户信息.微信支付.JSSDK配置参数获取等部分.如果读者对微信开发没有一个主观上的认识,那么建议读者先研读微信公众平台开发者文档,然后再阅读本文,效果更佳!另外本 ...
- Codeforces 788A Functions again - 贪心
Something happened in Uzhlyandia again... There are riots on the streets... Famous Uzhlyandian super ...
- 【Apache】的运营之道
1.“一个修修补补”的服务? 大家可能听说过 Apache 是一个双关语 “a patchy Web server”,意思为一个修修补补的 web 服务,即通过一系列的补丁做的服务.但是这并不是 Ap ...