Outlook VBA:使用Word Inspector创建后续会议邀请

我正在Outlook中创建VBA宏，该宏将复制现有会议邀请并创建后续会议邀请。这应该是相当容易的，因为我有这个难题的所有部分

我的问题是邀请的主体；所有格式和图片都将丢失。因此，我需要使用Word Inspector对象来保留任何特殊的格式和图像。我用Word和录制宏来计算代码

因此，我已经找到了使用单词检查器复制文本的代码，但我不确定如何将其粘贴到另一个邀请中

Sub copyPaste()
    Dim objOL As Outlook.Application
    Dim objNS As Outlook.NameSpace
    On Error Resume Next
    Set objOL = Application
    If objOL.ActiveInspector.EditorType = olEditorWord Then
        Set objDoc = objOL.ActiveInspector.WordEditor
        Set objNS = objOL.Session
        Set objSel = objDoc.Windows(1).Selection
        objSel.WholeStory
        objSel.Copy
        objSel.PasteAndFormat (wdFormatOriginalFormatting)
    End If
    Set objOL = Nothing
    Set objNS = Nothing
End Sub

请查看我当前的Outlook代码：

Sub scheduleFollowUpMeeting()
  'Declarations
  Dim obj As Object
  Dim Sel As Outlook.Selection
  'Selecting the Email
  If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    Set obj = Application.ActiveInspector.currentItem
  Else
    Set Sel = Application.ActiveExplorer.Selection
    If Sel.Count Then
      Set obj = Sel(1)
    End If
  End If

  If Not obj Is Nothing Then
    MsgBox "The original meeting has been copied." & vbCrLf & "Please kindly update any new details like date/time.", , "Follow Up Meeting - Amit P Shah"
    Dim objFollowUp As Outlook.AppointmentItem
    Set objFollowUp = Application.CreateItem(olAppointmentItem)
    'Copies existing details from original Invite
    With objFollowUp
        .MeetingStatus = olMeeting
        .Subject = "Follow Up: " & obj.Subject
        .Body = obj.Body
        .Start = Now + 1 'Takes today's date and adds 1 day
        .End = DateAdd("n", obj.Duration, .Start)
        'Other
        .AllDayEvent = obj.AllDayEvent
        .BusyStatus = obj.BusyStatus
        .Categories = obj.Categories
        .Companies = obj.Companies
        .ForceUpdateToAllAttendees = obj.ForceUpdateToAllAttendees
        .Importance = obj.Importance
        .Location = obj.Location
        .OptionalAttendees = obj.OptionalAttendees
        .ReminderMinutesBeforeStart = obj.ReminderMinutesBeforeStart
        .ReminderOverrideDefault = obj.ReminderOverrideDefault
        .ReminderPlaySound = obj.ReminderPlaySound
        .ReminderSet = obj.ReminderSet
        .ReminderSoundFile = obj.ReminderSoundFile
        .ReplyTime = obj.ReplyTime
        .RequiredAttendees = obj.RequiredAttendees
        .Resources = obj.Resources
        .ResponseRequested = obj.ResponseRequested
        .Sensitivity = obj.Sensitivity
        .UnRead = obj.UnRead

        .Display
    End With
  End If

End Sub

任何帮助都将不胜感激。非常感谢

我不是这方面的专家，但我曾经在C#中处理Outlook的任命项目，这就是我的看法

实际上，如果您试图在另一个会议上复制会议的主体，如您所说，您将丢失所有特殊的格式、图像等。 新正文将仅包含不带格式的字符。 我认为不能将格式化文本放在body属性上，必须使用rtfbody属性，或者像复制原始约会的正文一样，在Inspector对象中使用WordEditor属性

因此，尝试使用您正在创建的新项目的WordEditor（就像您获取原始内容一样）并在其中添加内容

这就是我在C#中将格式化文本放入AppointmentItem主体中所要做的

我是这样做的：

Word.Document myDoc = myItem.GetInspector.WordEditor;
Word.Paragraphs paragraphs = myDoc.Content.Paragraphs;

Word.Paragraph para = paragraphs.Add();
para.Range.Text = yourFormattedTextHere;

之后，您可能需要释放创建的变量，但我不确定这一点