Excel VBA – 在莲花邮件正文中插入空白行
我正在寻找一个空白行插入莲花笔记电子邮件的身体。
例如:目前我的身体显示这个:
"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
所发生的一切就是我插入一个图像,然后将文本插入到电子邮件的正文中。 问题是,图片和文本被粘贴在同一行,这会导致奇怪的格式。
添加Chr(10)
两次到你的string。 然后在文本和图像之间留下一条空行
Call uidocument.INSERTTEXT(bodyInfo + Chr(10) + Chr(10))