Excel VBA--在 Lotus Notes 电子邮件正文中插入空行答案

【问题标题】：Excel VBA--Insert blank line in lotus notes email bodyExcel VBA--在 Lotus Notes 电子邮件正文中插入空行
【发布时间】：2014-10-26 22:31:45
【问题描述】：

我希望在 Lotus Notes 电子邮件的正文中插入一个空行。

例如：目前我的身体显示这个：

"Hi this is the body of my email. <img></img>"

我希望我的电子邮件正文如下所示：

"Hi this is the body of my email.

<img></img>"

我该怎么做呢？有什么创意吗？

这是我的代码：

Sub CreateEmail()

    Dim Notes As Object
    Dim Maildb As Object
    Dim objNotesDocument As Object
    Dim objNotesField As Object
    Dim notesUIDoc As Object       
    Dim chartBody As Range

    Set Notes = CreateObject("Notes.NotesSession")
    Set Maildb = Notes.GETDATABASE("", "")
    Maildb.OPENMAIL
    Set objNotesDocument = Maildb.CREATEDOCUMENT

    Subject = "Hi read me!!"
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", Subject)
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", GetPrimaryEmail)
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", GetSecondaryEmail)

    Set workspace = CreateObject("Notes.NotesUIWorkspace")
    Call workspace.EDITDOCUMENT(True, objNotesDocument)
    Set uidocument = workspace.CURRENTDOCUMENT

    'Copy and Paste diagram into email
    Set chartBody = Worksheets("Sheet1").Range("A1:G16")
    chartBody.Copy
    Call uidocument.GOTOFIELD("Body")
    Call uidocument.Paste 'Paste a diagram in the body of email. 
    'Paste in body text
    Call uidocument.GOTOFIELD("Body") 
    Call uidocument.INSERTTEXT(bodyInfo)'Calls a function to inserts the text for the body. 


    AppActivate "Lotus Notes"

End Sub

所发生的只是我插入图像，然后将文本插入电子邮件正文。问题是图片和文本粘贴在同一行，导致格式奇怪。

【问题讨论】：

标签： vba email excel lotus-notes

【解决方案1】：

将Chr(10) 两次添加到您的字符串中。然后你会在文本和图像之间得到一个空行

Call uidocument.INSERTTEXT(bodyInfo + Chr(10) + Chr(10))

【讨论】：