发送前如何更新Outlook邮件正文

Question

我正在使用Outlook加载项来处理电子邮件附件，方法是将它们放置在服务器上，然后在电子邮件中放置URL。

一个问题是，将URL添加到电子邮件正文的末尾后，用户的光标将重置为电子邮件的开头。

一个相关的问题是我不知道光标在文本中的位置，因此无法将URL插入正确的位置。

这是一些显示我在做什么的代码，为简单起见，该代码假定主体为纯文本。

---

 private void MyAddIn_Startup(object sender, System.EventArgs e)
    {

        Application.ItemLoad += new Outlook.ApplicationEvents_11_ItemLoadEventHandler(Application_ItemLoad);
    }

   void Application_ItemLoad(object Item)
    {

        currentMailItem = Item as Outlook.MailItem;

        ((Outlook.ItemEvents_10_Event)currentMailItem).BeforeAttachmentAdd += new Outlook.ItemEvents_10_BeforeAttachmentAddEventHandler(ItemEvents_BeforeAttachmentAdd);


    }
void ItemEvents_BeforeAttachmentAdd(Outlook.Attachment attachment, ref bool Cancel)
    {
        string url = "A URL";
        if (currentMailItem.BodyFormat == Outlook.OlBodyFormat.olFormatHTML)
        {
            // code removed for clarity
        }
        else if (currentMailItem.BodyFormat == Outlook.OlBodyFormat.olFormatRichText)
        {
            // code removed for clarity
        }
        else
            currentMailItem.Body += attachment.DisplayName + "<" + url + ">";

       Cancel = true;
    }

Answer 1

使用Application.ActiveInspector.WordEditor检索Word Document对象。 使用Word对象模型执行所有更改。

Answer 2

这似乎可以满足我的要求：

using Microsoft.Office.Interop.Word;
    void ItemEvents_BeforeAttachmentAdd(Outlook.Attachment attachment, ref bool Cancel)
    {
         if (attachment.Type == Outlook.OlAttachmentType.olByValue)
        {
            string url = "A URL";
             Document doc = currentMailItem.GetInspector.WordEditor;
            Selection objSel = doc.Windows[1].Selection;
            object missObj = Type.Missing;

            doc.Hyperlinks.Add(objSel.Range, url, missObj, missObj, attachment.DisplayName, missObj);

            Cancel = true;
        }
    }