タイトル | : outlook expressから1つのメールをドラッグ&ドロップで取り込み方法 |
記事No | : 10604 |
投稿日 | : 2011/11/01(Tue) 18:21 |
投稿者 | : いた |
はじめまして、「いた」というものです。
メーラーからのメールをドラッグ&ドロップで取得する方法について教えて下さい。
メーラー内のある1つのメールをドラッグ&ドロップで取り込むクライアントアプリを作成していますが、Outlook2007やThunderbirdやQMAILでは正常にメール情報を取り込むことができますが、Outlook Expressからはできません。 エクスプローラで適当なフォルダーを開き、Outlook Express内のメールをドラッグ&ドロップすると、メールファイル(メール件名.eml)ができるので、Outlook Expressはドラッグ&ドロップには対応しているようですが、なぜか下記のプログラムでは、取り込みができません。 どなたか同じ様なことを経験された方はいませんか?教えて下さい。
現象: 下記のソースのtxtDragTray_DragEnterで、if文のTrueに入りません。
Private Sub txtDragTray_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles txtDragTray.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コピーを許可するようにドラッグ元に通知する e.Effect = DragDropEffects.Copy End If
End Sub
実際にメール情報を取り込む処理はBasp21を使っていますが、そこまで処理が進みません。
Private Sub txtDragTray_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles txtDragTray.DragDrop Dim FullPath$ = e.Data.GetData(DataFormats.FileDrop)(0)
〜〜〜〜〜 〜〜〜〜〜 〜〜〜〜〜 End Sub
環境: ・VB2008 ・Windows XP
|