【冰天雪地撒玻璃碎赤身裸体跪求】【几个OUTLOOK的VBA代码, 希望有大神知道答案,非常感谢!! 】 : )

[KissVeggieg]

【冰天雪地撒玻璃碎赤身裸体跪求】【几个OUTLOOK的VBA代码, 希望有大神知道答案,非常感谢!! 】 : )

这些基本已经涵盖所有常用的基本收件管理功能了, 希望各路高手能指导下这些少林武功啊!! ^^

下面的就是传说中的伪代码吧,希望能有大神翻译,非常非常非常感谢!!

Sub 假设已安装OUTLOOK且该宏在EXCEL里使用
IF 邮件正文包含字符串"正文字符串" then
IF 邮件标题包含字符串"标题字符串" then
IF 附件不为空 then (虽然有下句这句就多余了 但因为有其他用途所以希望提供)
IF 附件名包含字符串"附件字符串" then
IF 该收件的发送日期为/早于/晚于某日期 then (3段代码 代码间有逻辑冲突 但主要是学习代码 希望都能提供 非常感谢！！)
IF 该收件的发件人/收件人为"[e-mail]" 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

[Andy__Huang]

写了这么多内容,没有给人一种画龙点睛的作用,那些业务逻辑我觉得没必要说,可能你最关心的如果发送邮件与转发邮件的吧

[KissVeggieg]

引用 4 楼 hdhai9451 的回复:

写了这么多内容,没有给人一种画龙点睛的作用,那些业务逻辑我觉得没必要说,可能你最关心的如果发送邮件与转发邮件的吧

恩恩是的啊 就是希望处理下邮件而已 求十几行代码 非专业人士啊 但是会这个就可以简化很多工作啦 ^^

[KissVeggieg]

VB好少人哦~

[dsd999]

在这儿也看到你了，还有问题吗？

[KissVeggieg]

引用 7 楼 dsd999 的回复:

在这儿也看到你了，还有问题吗？

哇 这样你也认的出我啊 ^^