從Outlook電子郵件獲取正文[Drag'n'Drop]

Question

我正在使用WPF，我正在嘗試使拖放文本框變爲拖動狀態。
在這個文本框中，我想獲得從Outlook拖動的電子郵件的正文。
該代碼有效，但我認爲我需要一些「重置」ActiveExplorer的原因，現在它只顯示最後一個「新」電子郵件，我拖入文本框。

實施例：

將電子郵件1 - >文本框 - 顯示電子郵件1

將電子郵件2 - >文本框 - 顯示電子郵件2

將電子郵件1 - >文本框 - 顯示電子郵件2和電子郵件1將不會顯示，因爲它已經存在於ActiveExplorer中，它將顯示電子郵件2.

希望我的問題對你有點清楚..
在此先感謝！

XAML代碼：

<TextBox 
    Name="myTextbox" 
    AllowDrop="True" 
    PreviewDragEnter="email_DragEnter" 
    PreviewDrop="email_Drop" /> 

XAML代碼隱藏：

private void email_DragEnter(object sender, DragEventArgs e) 
    { 
     e.Effect = DragDropEffects.Copy; 
    } 

    private void email_Drop(object sender, DragEventArgs e) 
    { 
     Outlook.ApplicationClass oApp = new Outlook.ApplicationClass(); 
     Outlook.Explorer oExplorer = oApp.ActiveExplorer(); 
     Outlook.Selection oSelection = oExplorer.Selection; 

     foreach (object item in oSelection) 
     { 
      Outlook.MailItem mi = (Outlook.MailItem)item; 
      myTextbox.Text = mi.Body.ToString(); 
     } 
    } 

Answer 1

我將下面的DragDrop事件的oApp聲明移出，並且它按預期工作。

void Startup() 
{ 
    _Outlook = new Outlook.Application(); 
} 

Outlook.Application _Outlook = null; 

private void Form1_DragEnter(object sender, DragEventArgs e) 
{ 
    e.Effect = DragDropEffects.Copy; 
} 

private void Form1_DragDrop(object sender, DragEventArgs e) 
{ 
    richTextBox1.Text = ""; 
    Outlook.Explorer oExplorer = _Outlook.ActiveExplorer(); 
    Outlook.Selection oSelection = oExplorer.Selection; 

    foreach (object item in oSelection) 
    { 
     Outlook.MailItem mi = (Outlook.MailItem)item; 
     richTextBox1.AppendText(mi.Body.ToString() + "\n----------------------------------------\n"); 
    } 
} 

-------- --------編輯

或者是有可能的是你顯示，因爲這個循環的唯一的最後一個項目？

foreach (object item in oSelection) 
{ 
    Outlook.MailItem mi = (Outlook.MailItem)item; 
    myTextbox.Text = mi.Body.ToString(); //<--- Only last items text 
} 

Answer 2

使用14.0.0.0版本的Microsoft.Office.Interop.Outlook.dll的我不能使用Outlook.ApplicationClass對象。

取而代之，我在您給出的示例中使用了Outlook.Application，它的工作原理類似於魅力（使用Windows 7 & Outlook 2007 SP2進行測試）。我可以隨意拖動&拖放電子郵件。

---

PS：MSDN Extract爲ApplicationClass類：

「該類支持.NET Framework基礎結構，不適合直接在代碼中使用」

Answer 3

我更新了L.B的回答。他的DragEnter EventHandler自動假定用戶從Outlook中刪除了某些東西。

結果是，如果用戶放棄了其他內容（文件，選定文本，...），代碼仍然會查看Outlook中當前選定的電子郵件，並忽略實際放置的內容。

代碼：

Private _Outlook As Outlook.Application = Nothing 

Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load 
    _Outlook = New Outlook.Application() 
End Sub 

Private Sub Form_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) Handles Me.DragEnter 
    Dim outlookRequiredFormats = New String() { _ 
     "RenPrivateSourceFolder", _ 
     "RenPrivateMessages", _ 
     "RenPrivateItem", _ 
     "FileGroupDescriptor", _ 
     "FileGroupDescriptorW", _ 
     "FileContents", _ 
     "Object Descriptor"} 

    If outlookRequiredFormats.All(Function(requiredFormat) e.Data.GetDataPresent(requiredFormat)) Then 
     e.Effect = DragDropEffects.Copy 
    Else 
     e.Effect = DragDropEffects.None 
    End If 
End Sub 

Private Sub Form_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles Me.DragDrop 
    Dim oExplorer As Outlook.Explorer = _Outlook.ActiveExplorer() 
    Dim oSelection As Outlook.Selection = oExplorer.Selection 
    Dim i As Integer = 0 
    For Each item As Object In oSelection 
     Dim mi As Outlook.MailItem = DirectCast(item, Outlook.MailItem) 
     mi.SaveAs("C:\YourPath\message" & i & ".msg") 
     i += 1 
    Next 

有選擇的Outlook項目到Outlook.MailItem直接投。該代碼因此只適用於實際的電子郵件。這也有可能處理Outlook.MeetingItem,Outlook.ContactItem,Outlook.NoteItem和可能更多。