【冰天雪地撒玻璃碎赤身裸体跪求】【几个OUTLOOK的VBA代码, 希望有大神知道答案,非常感谢!! 】 : )
【冰天雪地撒玻璃碎赤身裸体跪求】【几个OUTLOOK的VBA代码, 希望有大神知道答案,非常感谢!! 】 : )这些基本已经涵盖所有常用的基本收件管理功能了, 希望各路高手能指导下这些少林武功啊!! ^^
下面的就是传说中的伪代码吧,希望能有大神翻译,非常非常非常感谢!!
Sub 假设已安装OUTLOOK且该宏在EXCEL里使用
IF 邮件正文包含字符串"正文字符串" then
IF 邮件标题包含字符串"标题字符串" then
IF 附件不为空 then (虽然有下句这句就多余了 但因为有其他用途所以希望提供)
IF 附件名包含字符串"附件字符串" then
IF 该收件的发送日期为/早于/晚于某日期 then (3段代码 代码间有逻辑冲突 但主要是学习代码 希望都能提供 非常感谢！！)
IF 该收件的发件人/收件人为"xxx@163.com" then (2段代码 代码间有逻辑冲突 但主要是学习代码 希望都能提供 非常感谢！！)
IF 该邮件已读/未读 then (2段代码 代码间有逻辑冲突 但主要是学习代码 希望都能提供 非常感谢！！)
导出邮件正文到EXCEL(文本方式/HTML方式)
导出邮件标题到EXCEL
另存附件到指定文件夹
导出发件人邮箱地址
导出收件人邮箱地址
导出CC的邮箱地址
'导出密送邮箱地址(这个代码不知道有没有,也不是很常用)
End if
End if
End if
End if
End if
End if
End if
End Sub
outlook 邮件 vba excel 宏 我是来看裸体的...
我早就来看过几次了。
不单单是裸体啊 还有玻璃碎和血淋淋呢~!!
写了这么多内容,没有给人一种画龙点睛的作用,那些业务逻辑我觉得没必要说,可能你最关心的如果发送邮件与转发邮件的吧
恩恩是的啊 就是希望处理下邮件而已 求十几行代码 非专业人士啊 但是会这个就可以简化很多工作啦 ^^ VB好少人哦~ 在这儿也看到你了，还有问题吗？
补充：VB , VBA
