更改电子邮件中的剪贴板样式

Question

我有一个宏可以将剪贴板粘贴到电子邮件中，但它保留了文本的原始格式。

我无法将粘贴的文本设为普通格式或快速样式普通。首先我放一个文本，然后粘贴剪贴板，然后再粘贴另一个文本。

我希望剪贴板内容与其他文本具有相同的样式或只是正常的。

 Set OutMail = OutApp.CreateItem(0)
 With OutMail
     .To = ""
     .CC = ""
     .BCC = ""
     .Subject = ""
     Set olInsp = .GetInspector
     Set wdDoc = olInsp.WordEditor
     Set oRng = wdDoc.Range
     oRng.collapse 1
     .Display
     OutMail.HTMLBody = textB & OutMail.HTMLBody
     oRng.Paste
     OutMail.HTMLBody = textA & OutMail.HTMLBody

 End With

我试过 :

     'oRng.Font.Bold = True ' changes the font but not the style
     'oRng.Font.Name = "Calibri (Body)" ' changes the font but not the style
     'oRng.Font.Color = vbRed ' changes the font but not the style
     'oRng.Style = 1 ' not working
     'With oRng.ParagraphFormat ' changes the spacing but not the style
     '.LineSpacingRule = wdLineSpaceAtLeast 
     '.LineSpacing = 10
     'End With
     '.BodyFormat = 1 ' not working

这是代码：

Sub aaaaa()
Dim OutApp As Object
Dim OutMail As Object
Dim olInsp As Object
Dim oRng As Object
Dim StrBdA As String
Dim StrBdB As String
Dim lll As String
Dim myString As String
Dim xlApp As Object
Dim sourceWB As Object
Dim sourceWS As Object

StrBdA = "<br> <br>" & "text" _
                 & "<br> <br>" & "text" _
                 & "<br> <br>" & "text" _
                 & "<br>" & "1." & "text</b>" _
                 & "<br>" & "2." & "text" _
                 & "<br>" & "3." & "text" & "<br> <br>"  


StrBdB = "<br> <br>" & "text." _
                 & "<br>" & "text" _
                 & "<br>" & "text:" _
                 & "<br>" & "<a link1>link1</a>" _
                 & "<br>" & "<a link2>link2</a>" _
                 & "<br> <br>" & "text" & "<br> <br>"

     On Error Resume Next
     Set OutApp = GetObject(, "Outlook.Application")
     If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
     On Error GoTo 0

     Set OutMail = OutApp.CreateItem(0)
     With OutMail
         OutMail.SentOnBehalfOfName = ""
         .Importance = olImportanceHigh
         .To = ""
         '.CC = ""
         .BCC = ""
         .Subject = ""

         Set olInsp = .GetInspector
         Set wdDoc = olInsp.WordEditor
         Set oRng = wdDoc.Range
         oRng.collapse 1
         .Display
         OutMail.HTMLBody = StrBdB & OutMail.HTMLBody
          oRng.Paste
          oRng.Font.Bold = True
         OutMail.HTMLBody = StrBdA & OutMail.HTMLBody
     End With
     Set OutMail = Nothing
     Set OutApp = Nothing
     Set olInsp = Nothing
     Set wdDoc = Nothing
     Set oRng = Nothing
End Sub

Answer 1

你有没有尝试过基于此的东西。我最初是为 Word 制作的，但在我的 Outlook 2010 中进行了一些修改后工作正常

Option Explicit

Sub SendMailBodyNormal()

Dim olApp As Object
Dim olEmail As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object

    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then Set olApp = CreateObject("Outlook.Application")
    On Error GoTo 0
    Set olEmail = olApp.CreateItem(0)
    With olEmail
        .BodyFormat = 2
        .To = ""
        .Subject = "Movies Report"
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range(0, 0)
        oRng.Paste
        oRng.Style = "Normal"
        .Display
    End With
lbl_Exit:
    Set olApp = Nothing
    Set olEmail = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub

更改电子邮件中的剪贴板样式

Change the clipboard style in email

clipboard

outlook

vba

ms-word