0

我正在开发一个脚本来格式化 Outlook 模板并通过单击按钮发送它。主要目标是在 After/Before Spacing 上使用 Single Line Spacing 和 0pt，并将模板上的所有内容控件（例如 ComboBoxes）转换为 Text/String。

Sub FormatAndSend()
    Dim CurrentMessage As Outlook.MailItem

    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Set CurrentMessage = Application.ActiveWindow.CurrentItem

        If CurrentMessage.To = "" Then
            If CurrentMessage.CC = "" Then
                If CurrentMessage.BCC = "" Then Exit Sub
            End If
        End If

        CurrentMessage.HTMLBody = Replace(CurrentMessage.HTMLBody, vbCr, vbCrLf)
        'Workaround to Remove Line Spacing (not working)
        '&
        'Convert Content Control selected values to String ...

        CurrentMessage.Send

        Set CurrentMessage = Nothing
    End If
End Sub

有没有更简单的方法来格式化现有模板？我已经尝试了几件事，例如替换为 ASCII 字符、HTML 元素、关键字……

此外，是否可以将 Content Control 选择的值转换为普通文本？

4

1 回答 1

0

我设法通过使用正则表达式删除 OOXML 元素并更改 CSS 属性来解决我的问题。

Dim regX As Object
Set regX = CreateObject("VBScript.RegExp")

regX.Global = True
regX.MultiLine = True
regX.IgnoreCase = False
regX.Pattern = "<\/?w:[A-z].*?>"

CurrentMessage.HTMLBody = regX.Replace(CurrentMessage.HTMLBody, "")
CurrentMessage.HTMLBody = Replace(CurrentMessage.HTMLBody, "<p class=MsoNormal>", _
                            & "<p class=MsoNormal style='margin:0;line-height:0;'>")
Set regX = Nothing
于 2017-10-13T03:05:54.737 回答