如何使用VBA在outlook中粘贴多个位图而不丢失格式设置？

Sub PasteMultipleBitmaps()
    Dim objMail As MailItem
    Dim objInspector As Inspector
    Dim objWord As Object
    Dim objSelection As Object
    Dim objData As DataObject
    Dim strClip As String
    Dim varBitmaps As Variant
    Dim i As Integer
    
    ' 获取当前活动的邮件项
    Set objInspector = Application.ActiveInspector
    Set objMail = objInspector.CurrentItem
    
    ' 创建一个新的Word对象
    Set objWord = objMail.GetInspector.WordEditor
    Set objSelection = objWord.Application.Selection
    
    ' 获取剪贴板中的内容
    Set objData = New DataObject
    objData.GetFromClipboard
    strClip = objData.GetText
    
    ' 按换行符拆分剪贴板内容为多个位图
    varBitmaps = Split(strClip, vbCrLf)
    
    ' 粘贴位图到邮件正文中
    For i = 0 To UBound(varBitmaps)
        objSelection.InlineShapes.AddPicture varBitmaps(i)
    Next i
    
    ' 清除剪贴板
    objData.SetText ""
    objData.PutInClipboard
    
    ' 保存并发送邮件
    objMail.Save
    objMail.Send
End Sub