请教:如何将EXCEL中包含图片及文本的内容一起COPY到LOTUS NOTES新建邮件中并发送
目前使用DATAOBJECT.GETTEXT方法只能将单元格内的文本拷贝过去，不能拷贝图片及相应表格。
LOTUS NOTES有没有什么方法可以读取剪贴板内容直接粘贴到新邮件中？
[解决办法]
我这里有一个以前写的例子，
Sub aa()
Dim no As Object
Dim db As Object
Dim clipboard As DataObject
Dim doc As Object
Dim field As Object
Set no = CreateObject("notes.notessession") '建立和邮件的连接
Set db = no.CurrentDatabase
Set doc = db.CreateDocument
Set field = doc.CreateRichTextItem("body")
Selection.Copy
Set clipboard = New DataObject
clipboard.GetFromClipboard
With field
.AppendText "此邮件为系统自动发送，请不要回复，仅作为测试使用！"
.AddNewLine 2
.AppendText clipboard.GetText(1)
End With
With doc
.form = "Memo"
.sendto = "邮件地址"
.Subject = "自动邮件"
.SaveMessageOnSend = True
.postdate = Now()
.Send 0
End With
Selection(1).Select
Application.CutCopyMode = False
End Sub
