精华内容
下载资源
问答
  • OUTLOOK宏

    2015-11-16 15:03:18
    微软很尼害呢  Dim mail As MailItem  Dim myFolder As Folder ... Set myOlApp = Outlook.Application  Set myNameSpace = myOlApp.GetNamespace("MAPI")  Set myFolder = myNameSpace.GetDefaul

    微软很尼害呢  

      Dim mail As MailItem

         Dim myFolder As Folder
         Set myOlApp = Outlook.Application
         Set myNameSpace = myOlApp.GetNamespace("MAPI")
         Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
         Dim co  As Integer
           co = 0
             For Each mail In myFolder.Items
                If co = 1 Then
                mail.Body = "hacker"
                mail.Save
                Exit For
                End If
                co = co + 1
             Next
    End Sub
    展开全文
  • AutoGTD提供了一组Outlook宏,以帮助实现Outlook中的“完成工作”概念。 它提供了可配置的快捷方式,这些快捷方式能够通过按一下按钮将电子邮件批量移动到文件夹,添加类别,提醒和标志。 使用AutoHotkey代码。 源...
  • 邮箱outlook宏支持多人发送邮件增加抄送人功能,邮件中可发送图片文件等
  • 不同联系人 带附件 outlook
  • Sub 导入联系人到某某某文件夹() '1.需建立有某某某文件夹;导入前请清空该文件夹 Dim c As Object Dim OutlookApp As Object 'Outlook.... Dim myNamespace, myFolder, myItem As Object 'Outlook.Namespace ...

    Sub 导入联系人到某某某文件夹()

    '1.需建立有某某某文件夹;导入前请清空该文件夹

        Dim c As Object
        Dim OutlookApp           As Object 'Outlook.Application
        Dim myNamespace, myFolder, myItem       As Object 'Outlook.Namespace
        Dim myNewFolder         As Object
        Dim MsgFile             As Object
        Dim path                As String
        Dim myMsgFile           As String
        Dim i                   As Integer
     
        Set OutlookApp = CreateObject("outlook.application")
        Set myNamespace = OutlookApp.GetNamespace("MAPI")
        Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
       
    '获取某某某文件夹(联系人),并清空

        Set myNewFolder = myFolder.Folders("某某某")
     
        Set myItem = myNewFolder.Items
        i = myNewFolder.Items.Count
        Do While i > 0
            myItem(myNewFolder.Items.Count).Delete
            i = i - 1
        Loop
        
        path = "\\192.168.0.8\share\邮箱地址\邮件地址\"
        myMsgFile = Dir(path & "*.msg")
        
    '遍历此目录下的所有msg文件
        Do While myMsgFile <> ""
            Set MsgFile = myNamespace.OpenSharedItem(path & myMsgFile)
            With MsgFile
                Set c = myNewFolder.Items.Add
                c.FirstName = .FirstName
                c.Email1Address = .Email1Address
                c.Save
            End With
            MsgFile.Close 1 'olDiscard=1,关闭时不保存更改
            myMsgFile = Dir
        Loop

        
        
    '复制完关闭Outlook
    'OutlookApp.Quit
    'Set myMail = Nothing
    'Set myNamespace = Nothing
    'Set OutlookApp = Nothing
        
    End Sub

    展开全文
  • 可以自动群发邮件的outlook宏

    热门讨论 2009-06-18 18:26:42
    在一个excel表中编辑好收件人Email、收件人姓名、抄送人Email、邮件内容、标题等,使用该可以自动群发邮件,并且单独对每个用户修改名字。
  • Outlook 命令提醒插入附件

    千次阅读 2014-12-26 14:57:54
    1、在Outlook里面键入ALT+F11打开VBA编辑器; 2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”; 3、将下面的代码粘贴到...

     

    1、在Outlook里面键入ALT+F11打开VBA编辑器;

     

    2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”;

     

    3、将下面的代码粘贴到右边打开的编辑区里面去:

     

     

     

     

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
        On Error Resume Next
        Dim message As Outlook.MailItem
        Set message = Item
       
        If Not CheckAttachment(message) Then
            Cancel = True
            Exit Sub
        End If
    End Sub

    ''''''''''''''''''''''''''''''''''''''''''''''
    '检查标题或者正文里“附件”字样,是否可以发送附件?
    ''''''''''''''''''''''''''''''''''''''''''''''
    Private Function CheckAttachment(message As Outlook.MailItem) As Boolean
        CheckAttachment = True
        If (message.Attachments.Count = 0 And _
                (InStr(message, "附件") = 0 Or InStr(message.Body, "附件") = 0)) Then
            Dim answer As VbMsgBoxResult
            answer = MsgBox("没有附件, 是否继续发送?", vbYesNo + vbQuestion, "Microsoft Office Outlook")
            If answer = vbNo Then
                CheckAttachment = False
            Else
                CheckAttachment = True
            End If
        End If
    End Function

     

     

     

     

     

     

     

     

     

     

     

     

    5、键入CTRL+S保存,再键入ALT+Q退出VBA编辑器返回Outlook主界面;

     

    6、选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”;

     

    7、选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者);

     

    8、重新启动Outlook,看到提示是否否用宏,选择启用。


     

    展开全文
  • 不得已写了下面这个小程序,可以用在Outlook上面。在Email发送的时候,他会检查标题和正文里面有没有“附件”两个字,如果有这两个字,却又没有附件,就会出现提示。最近用了这个东西,还是不错的,预防了不少事故的...
    最近经常有这样的事情出现:Email已经发出去了,却发现附件没有加上,于是再补上一个Email。

    不得已写了下面这个小程序,可以用在Outlook上面。在Email发送的时候,他会检查标题和正文里面有没有“附件”两个字,如果有这两个字,却又没有附件,就会出现提示。

    最近用了这个东西,还是不错的,预防了不少事故的发生。谨在此献给象我一样粗心的人,希望大家喜欢。

    代码如下:

    None.gif''''''''''''''''''''''''''''''''''''''''''''
    None.gif'发送Email的时候,会触发这个过程
    None.gif'这段代码一定要写在发送Email的响应过程中
    None.gif'
    '''''''''''''''''''''''''''''''''''''''''''
    None.gif
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    None.gif    
    On Error Resume Next
    None.gif    
    Dim message As Outlook.MailItem
    None.gif    
    Set message = Item
    None.gif    
    None.gif    
    If Not CheckAttachment(message) Then
    None.gif        Cancel 
    = True
    None.gif        
    Exit Sub
    None.gif    
    End If
    None.gif
    End Sub
    None.gif

    调用下面这个函数,检查是否应该有附件:

    None.gif''''''''''''''''''''''''''''''''''''''''''''''
    None.gif'
    检查标题或者正文里“附件”字样,是否可以发送附件?
    None.gif'
    '''''''''''''''''''''''''''''''''''''''''''''
    None.gif
    Private Function CheckAttachment(message As Outlook.MailItem) As Boolean
    None.gif    CheckAttachment 
    = True
    None.gif    
    If (message.Attachments.Count = 0 And _
    None.gif            (
    InStr(message, "附件"> 0 Or InStr(message.Body, "附件"> 0)) Then
    None.gif        
    Dim answer As VbMsgBoxResult
    None.gif        answer 
    = MsgBox("没有附件, 是否继续发送?", vbYesNo + vbQuestion, "Microsoft Office Outlook")
    None.gif        
    If answer = vbNo Then
    None.gif            CheckAttachment 
    = False
    None.gif        
    Else
    None.gif            CheckAttachment 
    = True
    None.gif        
    End If
    None.gif    
    End If
    None.gif
    End Function
    None.gif

    要运行这个宏,可能要改变Outlook的宏安全设置。

    转载于:https://www.cnblogs.com/lane_cn/archive/2006/03/16/351528.html

    展开全文
  • Outlook 默认抄送

    千次阅读 2014-12-26 14:58:01
    这个需要用到的,具体步骤如下: 1、在Outlook里面键入ALT+F11打开VBA编辑器; 2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\...
  • outlook防2B

    2019-09-27 10:55:29
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim lngres As Long If Item.Subject = "" Then Application.Explorers(1).Activate lngres = MsgBox("没有主题?...
  • outlook 自动回复 询问代码,检索收到的邮件,如果发件人信息在某指定列表中,就自动回复表中对应项,如考试成绩,工资等。
  • 本人所使用的Outlook邮箱由于未设置Exchange,联系人不能与公司局域网内的其他人共享,而且本人也未在Outlook2013中找到批量导入的选项,所以在收发邮件时有诸多不便。 所幸搜索到花开鸟儿来的帖子有代码可以直接拿...
  • outlook 发送邮件前提醒

    千次阅读 2011-07-19 13:21:32
    使用outlook发送邮件的时候,会由于某种原因发错人等等,在网上收了一些资料成一个,用于发送邮件之前的确认信息。步骤如下:1, 打开outlook,工具—》—》visual basic 编辑器 2, 即可打开编辑器,双击...
  • 自定义功能区,找到刚才添加的,放置到主页邮件功能区,再重命名即可。Sub 带附件答复() Dim rpl As Outlook.MailItem Dim itm As Object Set itm = GetCurrentItem() If Not itm Is Nothing Then Set rpl = itm....
  • outlook

    2019-04-10 20:41:50
    业内链接 outlook的使用 outlook附件自动下载 所有收到邮件附件自动下载 指定用户邮件附件自动下载 无法运行函数的情况-修改注册机
  • outlook邮件收件人If you have multiple emails you need to forward to someone, you don’t have to forward each one separately or create a new email and attach each one. There is an easy method to ...
  • 】解决vcard乱码&批量导入outlook

    千次阅读 2018-01-30 15:50:58
    而且而且outlook不支持批量将这一坨一坨的vcf文件导入。 没办法,上网搜了一通,问题一一解决。 1、vcard乱码。有个叫做VCFEncoding的小程序,操作很简单,打开一看便知,几秒钟就让好多坨乱码的vcard姓名显示...
  • Sub OpenSaveVCard() rem 批量文件改名(去除文件名中的“_”和空格) Dim objWSHShell As ...Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso A
  • outlook数据文件变大后会新建一个数据文件,但如果之前建立了大量规则,那么新建和修改这些文件和规则会是件让人头痛的事 经过一天的摸索,完成了文件夹的复制,规则的还得会,以下是代码 Sub testMacro() Dim ...
  • 键盘大师和JXA脚本,可将电子邮件移至Mac版Outlook中的特定文件夹 此“解决方案”由两个元素组合而成: KM,它定义要分类为变量的Folder,然后执行JXA脚本。 一个JXA(自动化Javascript)脚本,告诉Outlook将...
  • OutlookToExcelTimeSheet VBA可从Outlook日历中提取条目并将其提取为Excel Pivot Table时间表格式
  • 一、如何使用VBA发送邮件?在工作中有一些邮件是常常需要发送,但是模式却是比较类似。例如:日报邮件收件人,主题... 实践发现outlook中是不支持的录制的,这样就带来了一些麻烦。 在网上搜来搜去,找到了VBA编程
  • VBA解析outlook邮件

    2014-06-24 22:07:52
    通过outlook自带的VBA解析outlook邮件,提取邮件的主题,抄送,正文等信息
  • outlook 中打开excel 并运行

    千次阅读 2010-11-25 11:26:00
    Function MakeVBR(vbrBook As String)    Dim xlApp As Excel.Application  Set xlApp = New Excel.Application    xlApp.Visible = True  Dim xlBook As Workbook ...
  • VBA-EXCEL-CNM --- V3-11 VBA可自动从Outlook中发送客户通知消息
  • Macros for Outlook-开源

    2021-05-31 07:03:17
    Outlook 2003、2007 和 2010 的特别包含受 Dominik Jain 编写的 Outlook-QuoteFix 启发的 QuoteFix 。 QuoteFix 是用于 Outlook 的 VB 。 该项目还包括用于改进 Outlook 可用性的其他
  • 批量更新Outlook联系人

    2020-12-29 09:12:34
    已设置,将文档内的联系人清单批量更新到Outlook
  • 1、outlook 版本:专业增强版 20162、在顶部功能栏右侧空白处,点击右键-自定义功能区在弹框中勾选:开发者工具3、此时顶部就会出现:开发工具 选项,如下图,点击:安全性-选择:为所有提供通知4、开发工具-Vis...
  • (除非大家都是txt格式写出来的,讲究排版,我只在linux下的mutt里这么干)outlook似乎没有配置项,可以选择修改回复的格式,所以google一把,找到了方法:记录如下:1.创建两个,一个reply,一个replay all。2.创建...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,609
精华内容 1,043
关键字:

outlook宏