tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル outlook expressから1つのメールをドラッグ&ドロップで取り込み方法
投稿日: 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

古いスレッドにレスはつけられません。