OUTLOOK+VBA 备份邮件到GMAIL

关注

原创最新推荐文章于 2026-07-16 16:49:48 发布 1.2k 阅读 AI 写同款· GEO 优化 ›

QClaw：微信客服号形态的本地AI Agent实战指南 AI Agent 是指能自主感知、规划与执行任务的智能体，其核心在于将自然语言指令转化为可靠动作链。随着大模型轻量化和端侧推理能力提升，本地化、低门槛、高合规的AI Agent正成为中小企业与个人用户的生产力新基座。QClaw 以微信客服号为入口，融合国产备案大模型、系统级权限复用与意图理解引擎，在不牺牲安全与稳定前提下，实现文件操作、定时截图、邮件发送、B站情报采集等真实办公场景闭环。它代表了一种‘可用性优先’的设计范式——让AI从概念验证走向每日必用。阅读详情

GML用起来不方便，还是在OUTLOOK写个脚本，通过批量转发邮件，把邮件备份到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/）。