如何在发送之前更新outlook邮件正文

本文关键字:outlook 更新 正文 | 更新日期: 2023-09-27 18:17:59

我正在开发一个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;
    }

如何在发送之前更新outlook邮件正文

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

这似乎是我想要的:

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;
        }
    }