zoukankan      html  css  js  c++  java
  • OUTLOOK+VBA 备份邮件到GMAIL

    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

     

    运行这个脚本,可能会反复弹出对话框,很烦人。这个对话框的内容是,“有一个程序正试图以您的名义自动发送电子邮件。是否允许该操作?如果对此感觉意外,这可能是由于病毒导致,您应选择'否'”。临时解决方案:使用clickyes(http://www.contextmagic.com/express-clickyes/)。

  • 相关阅读:
    备份
    Ibatis_dataMapper
    查询成绩都大于80分的学生
    删除文件的工具
    从运行中启动收索引擎
    数据库Northwind
    搭建Android开发环境
    数据库知识结构
    数据库MedicineMis_STD
    数据库work
  • 原文地址:https://www.cnblogs.com/bsmagic/p/1243501.html
Copyright © 2011-2022 走看看