Drag & Drop message from Outlook to VB 6 application

I'm looking to drag & drop an email from Outlook to a VB 6 application.

I need to be able to look at the From, Subject & Message field (The office is using Office 97).

Does anyone have source code on how to do this?  Even a simple tutorial (open vb6, place textbox on form, etc...) will be a good start.
khoocAsked:
Who is Participating?
 
vinnyd79Commented:
Try this. Add 3 Textboxes to a form. Set the Forms OleDropMode property to Manual. Then add this to your form and drop a message from Outlook onto the Form Area.

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim arrMsg() As String
Dim MsgData As String
MsgData = Data.GetData(vbCFText)
MsgData = Mid$(MsgData, InStr(MsgData, Chr$(13)) + 2)
arrMsg = Split(MsgData, vbTab)
Text1.Text = arrMsg(0)
Text2.Text = arrMsg(1)
Text3.Text = arrMsg(2)
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.