Excel VBA--Insert Lotus Notes 电子邮件正文中的空白行-Java 学习之路

我希望在 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

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

1 回答

2
将Chr(10)两次添加到您的字符串中。您会在文本和图像之间留空行，然后
```
Call uidocument.INSERTTEXT(bodyInfo + Chr(10) + Chr(10))
```
回复于 2024-05-07T17:25:20+08:00

Excel VBA--Insert Lotus Notes 电子邮件正文中的空白行

1 回答

相关问题