在Outlook新邮件中向光标所在处插入一段新文字然后光标后移

uchr4

　　实现环境：Visual Studio 2010, Outlook 2010, VSTO runtime 4.0
　　C#
　　using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Microsoft.Office.Tools.Ribbon;
using Outlook = Microsoft.Office.Interop.Outlook;
using Word = Microsoft.Office.Interop.Word;
using System.Windows.Forms;
namespace OutlookAddIn23
{
public partial class Ribbon1
{
private void Ribbon1_Load(object sender, RibbonUIEventArgs e)
{
}
private void button1_Click(object sender, RibbonControlEventArgs e)
{
try
{
Outlook.Application objApplication = Globals
.ThisAddIn.Application;
Outlook.Inspector objInspector = objApplication
.ActiveInspector();
Outlook.MailItem objMailItem = objInspector.CurrentItem;
if (objMailItem != null)
{
InsertTexttoMailBody(objMailItem, "This is a test.");
}
}
catch (Exception ex)
{
MessageBox.Show(string.Format("Stack:\n{0}\nMessage:\n{1}",
ex.StackTrace, ex.Message), "OutlookAddIn23Exception");
}
}
private void InsertTexttoMailBody(Outlook.MailItem objMailItem,
string InsertText)
{
try
{
Outlook.Inspector objInspector = objMailItem.GetInspector;
Word.Document objDocument = objInspector.WordEditor as
Word.Document;
Word.Selection objSelection = objDocument.Application.Selection;
//这里定义一个Range十分重要，直接用objSelection进行操作貌似不行。
Word.Range objRange = objSelection.Range;
objRange.InsertAfter(InsertText);
//放弃光标原来位置并向后移到尾部
objRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
//重新高定光标
objRange.Select();
}
catch (Exception ex)
{
MessageBox.Show(string.Format("Stack:\n{0}\nMessage:\n{1}",
ex.StackTrace, ex.Message));
}
}
}
}

VB.NET
　　Imports Microsoft.Office.Tools.Ribbon
Imports Word = Microsoft.Office.Interop.Word
Public Class Ribbon1
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As  _
RibbonUIEventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
Dim objApplication As Outlook.Application
Dim objInspector As Outlook.Inspector
Dim objDocument As Word.Document
Dim objSelection As Word.Selection
Dim objRange As Word.Range
Try
objApplication = Globals.ThisAddIn.Application
objInspector = objApplication.ActiveInspector
objDocument = TryCast(objInspector.WordEditor, Word.Document)
If objDocument IsNot Nothing Then
objSelection = objDocument.Application.Selection
objRange = objSelection.Range
objRange.InsertAfter("This is a Test")
objRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
objRange.Select()
End If
Catch ex As Exception
MsgBox("Stack:" + Chr(13) + ex.StackTrace + Chr(13) + "Message:" + _
Chr(13) + ex.Message, Title:="OutlookAddIn24 Exception")
End Try
End Sub
End Class