使用VBA宏提高Outlook的效率和生产力(持续更新中)

费力克士

已于 2023-03-12 10:30:32 修改

阅读量1k

点赞数 2

分类专栏： VBA操作outlook 文章标签： outlook

于 2023-03-04 12:18:25 首次发布

本文链接：https://blog.csdn.net/felix_8/article/details/129332751

版权

本文介绍了如何使用VBA宏提升Outlook的效率，包括调整邮件中图片尺寸、刷新字体、批量选择邮件作为附件、指定收件人转发邮件以及将邮件信息导出到Excel。

摘要由CSDN通过智能技术生成

将当前邮件中的图片设定为指定尺寸:

Sub ResizeAllImages()
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector
    Dim objDoc As Word.Document
    Dim objSelection As Word.Selection
    Dim objShape As Word.InlineShape
    
    '获取当前编辑中的邮件对象
    Set objItem = Application.ActiveInspector.CurrentItem
    
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            '获取邮件的Word文档对象
            Set objInsp = objItem.GetInspector
            Set objDoc = objInsp.WordEditor
            Set objSelection = objDoc.Windows(1).Selection
            
            '遍历文档中所有的InlineShape对象
            For Each objShape In objDoc.InlineShapes
                '判断是否是图片
                If objShape.Type = wdInlineShapePicture Then
                    '设置图片尺寸为14x14
                    objShape.ScaleHeight = 14
                    objShape.ScaleWidth = 14
                End If
            Next objShape
        End If
    End If
End Sub

刷新当前邮件的正文字体:

Sub RefreshBodyFont()   ' 刷新当前邮件的正文字体
    Dim objInsp As Inspector
    Dim objDoc As Word.Document
    Set objInsp = Application.ActiveInspector
    Set objDoc = objInsp.WordEditor
    objDoc.Range.Font.Name = "Calibri"
    objDoc.Range.Font.Size = 12
End Sub