如何在Outlook中设置粘贴图片的默认自定义样式（优先无需宏）

嘿，太懂这种每次粘贴图片都要重复点好几下的烦躁了！我之前也天天跟这个操作较劲，下面给你几个无需宏的优先解决方案，实在不行再给你个宏的备选方案：

方案一：用快速访问工具栏（QAT）简化操作 #

虽然不是完全自动，但能把4步压缩成1步，已经省心很多：

• 先手动给一张图片设置好你常用的目标样式（就是Picture Tools | Format >> Picture Styles里你喜欢的那个）
• 选中这张设置好的图片，右键点击窗口顶部最左侧的快速访问工具栏，选择「添加到快速访问工具栏」
• 之后每次粘贴图片后，只需要点一下QAT上这个新增的按钮，就能一键套用你想要的样式了

方案二：自定义邮件模板（自动继承样式） #

这个方法能让你新建的邮件自动带上图片样式规则，粘贴时更省心：

• 新建一封空白邮件，先插入一张图片，给它设置好你要的自定义样式，设置完后把这张图片删掉
• 点击「文件」>「保存」，保存类型选择「Outlook模板（.oft）」，给模板起个好记的名字
• 之后每次写邮件都从这个模板新建，粘贴图片时，Outlook会自动套用你模板里预设的图片样式

备选方案：用宏实现自动套用（如果上面的方法不够满足） #

要是你需要完全自动的效果，可以试试这个宏（操作也不难）：

1. 按Alt+F11打开Outlook的VBA编辑器
2. 右键点击左侧的「Project1」，选择「插入」>「模块」
3. 在弹出的代码窗口里粘贴下面的代码：

Sub ApplyDefaultPictureStyle()
    Dim objItem As Object
    Dim objInlineShape As InlineShape
    
    Set objItem = Application.ActiveInspector.CurrentItem
    If objItem.Class = olMail Then
        For Each objInlineShape In objItem.InlineShapes
            If objInlineShape.Type = olPicture Then
                ' 把下面的样式常量换成你实际用的，比如msoPictureStyleSimpleFrameWhite是纯白细框样式
                objInlineShape.PictureFormat.PictureStyle = msoPictureStyleSimpleFrameWhite
            End If
        Next objInlineShape
    End If
End Sub

4. 保存后，把这个宏添加到快速访问工具栏，每次粘贴完图片点一下就能批量应用样式；要是想实现粘贴自动触发，需要额外设置事件监听，新手可以先从手动点击宏开始

备注：内容来源于stack exchange，提问作者Mark Ostertag