OUTLOOK+VBA 备份邮件到GMAIL
OUTLOOK+VBA 备份邮件到GMAIL
贰师兄TEN
发布于 2020-12-08 10:35:52
发布于 2020-12-08 10:35:52
Outlook上有不少邮件，用VBA写个脚本，通过批量转发邮件，?把邮件备份到GMAIL上。
Public?Sub?FwdToGmail()
????Dim?objApp?As?Outlook.Application
????Dim?objNameSpace?As?Outlook.NameSpace
????Dim?objMAPIFolder?As?Outlook.MAPIFolder
????Dim?objMailItem?As?Outlook.MailItem
????Dim?objFwdItem?As?Outlook.MailItem
????
????Set?objApp?=?New?Outlook.Application
????Set?objNameSpace?=?objApp.GetNamespace(Type:="MAPI")
????Set?objMAPIFolder?=?_
????????objNameSpace.GetDefaultFolder(FolderType:=olFolderInbox)
????
????For?Each?objMailItem?In?objMAPIFolder.Items
????????
????????Set?objFwdItem?=?objMailItem.Forward
????????objFwdItem.Recipients.Add?(yourname@gmail.com)
????????
????????objFwdItem.Send
????Next?objMailItem
????
End?Sub运行这个脚本，可能会反复弹出对话框，很烦人。这个对话框的内容是，“有一个程序正试图以您的名义自动发送电子邮件。是否允许该操作?如果对此感觉意外,这可能是由于病毒导致,您应选择'否'”。临时解决方案：使用ｃｌｉｃｋｙｅｓ（http://www.contextmagic.com/express-clickyes/）。
本文参与?腾讯云自媒体分享计划，分享自作者个人站点/博客。
原始发表：2008-07-15 ，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读