送信前にOutlookのメールの本文テキストを更新する方法

Question

私は、メール添付ファイルをサーバーに配置し、代わりに電子メールにURLを入れることで、Outlookアドインを処理しています。

1つの問題は、電子メール本文の末尾に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 Object Modelを使用してすべての変更を実行します。

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