将文本粘贴到指定的 position

Question

我有根据我的需要修改的搜索代码。

我需要在 xOutMsg 变量的“条件”文本下粘贴 position。 它粘贴到 email 的第一行。

如何在“条件”一词之后粘贴到下一行？

Sub PrepareConditionsEmail()
Dim objDoc As Word.Document
Dim objSel As Word.Selection
Dim xOutApp As Object
Dim xOutMail As Object
Dim xOutMsg As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xOutMsg = "<br /><br /><b><u>Conditions:</b></u><br /><br />" & "<b><u> </b></u><br />"
With xOutMail
    '.To = "Email Address"
    .CC = ""
    .BCC = ""
    .Subject = "Conditions"
    .HTMLBody = xOutMsg
    .Display
End With
Set xOutMail = Nothing
Set xOutApp = Nothing
On Error Resume Next
Set objDoc = Application.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.PasteSpecial Link:=False, _
DataType:=wdPasteText, _
Placement:=wdInLine, _
DisplayAsIcon:=False
End Sub

Answer 1

您似乎需要解析消息并在其中插入您自己的文本或标记。 MailItem.HTMLBody属性设置表示指定项目的 HTML 正文的字符串。 使用InStr function 返回一个 long 指定一个字符串中第一次出现的 position。 获得关键字 position 后，您可以在关键字后面插入 substring。

 InStr(mail.HTMLBody, "keyword", 1)

在 MSDN 中阅读有关InStr function的更多信息。

Outlook object model 支持三种主要的消息体自定义方式：

Body属性返回或设置一个字符串，该字符串表示 Outlook 项目的明文正文。
MailItem class 的HTMLBody属性返回或设置表示指定项目的 HTML 正文的字符串。 设置 HTMLBody 属性将始终立即更新 Body 属性。 例如：

     Sub CreateHTMLMail() 
       'Creates a new e-mail item and modifies its properties. 
       Dim objMail As Outlook.MailItem 
       'Create e-mail item 
       Set objMail = Application.CreateItem(olMailItem) 
       With objMail 
        'Set body format to HTML 
        .BodyFormat = olFormatHTML 
        .HTMLBody = "<HTML><BODY>Enter the message <a href="http://google.com">text</a> here. </BODY></HTML>" 
        .Display 
       End With 
     End Sub

字 object model 可用于处理消息体。 有关详细信息，请参阅第 17 章：使用项目实体。

无需将HTMLBody和WordEditor方法混合在一起。 您可以选择一种方式并使用它。

将文本粘贴到指定的 position

问题描述

1 个解决方案

解决方案1
0 2020-08-06 15:21:08

将文本粘贴到指定的 position

问题描述

1 个解决方案

解决方案1 0 2020-08-06 15:21:08

解决方案1
0 2020-08-06 15:21:08