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文档对象。使用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;
        }
    }

如何在发送

2 个答案: