VB6でのDragDropの受け取り方

VB6を使ってOutlookExpressのメールをDropして内容を取得したいのですが、受け取る方法がわかりません。

FormのOLEDragModeを1-手動 に設定してあります。
Form_OLEDragDropのイベントが発生するのは理解しているのですが、
メールのメッセージをファイルとしてあらかじめ保存してある場合は

Form_OLEDragDropイベントに以下のコードを貼り付けて実行すれば、
デバッグウィンドウにファイル名が表示されます。

If Data.GetFormat(vbCFFiles) Then
For K = 1 To Data.Files.Count
Debug.Print Data.Files(K)
Next K
End If

実際にしたいことは、ファイルとして保存したメールをDragDropする
のではなく、OutlookExpressのメールの一覧からメールのアイコンを
ドラッグドロップしたいのです。

どなたかお知恵をお貸しください

No.1 回答者： redfox63 回答日時： 2006/12/29 08:42

OEから DragDropされるアイテムが1つなら

Dim s as String
s = Data.GetData(vbCFText)

で メールの中身が取り出せますよ
送信者、宛先、件名、日時 も付加されます ...

この回答への補足

回答ありがとうございます。

複数のメールをDragDropすることはできますか？
なるべくDragDropの回数を減らしたいので、複数メールを
一括で処理したいのです。

よろしくお願いいたします。

補足日時：2006/12/29 14:33

No.2 ベストアンサー 回答者： stiffels 回答日時： 2007/01/01 18:10

VBでは実際に作ったことは無いですが、

APIを使ってC言語と同じようにプログラムすれば
大変そうですがなんとかなりそうです。

参考URL：http://homepage1.nifty.com/MADIA/vb/vb_bbs/20040 …