Search the Community

Hi all - hoping some of you OLE/COM/DLL gurus could possibly help me out with a task that has really got me stumped - mostly because I am not terribly familiar with hooking into DLLs and the whole 'DllStruct' arena. I can usually find a solution to my problems by searching these forums as well as VB related scripts and tend to post here only as a last resort - which is where I find myself now. I am attempting to write a utility which will accept attachments dragged out of Outlook onto my GUI and then save the files to a specified directory. This behavior is not allowed by default. I am able to set up the GUI to accept files dropped onto it with no problem, but attempting to drag an attachment from Outlook onto the GUI shows the 'no action' icon. I've done plenty of searching on how this can be done in VB. I have found some solutions, but I can't figure out how to convert it to AutoIt code. In doing some searches here on the forum, I found which I *think* might be a step in the right direction, however it more or less deals with clipboard data, not actual dropped items onto a control. I'm not asking for anyone to code this for me, but only to pick the brains of those who understand this a little more clearly and can steer me in the right direction. Also if there is a good tutorial on how to use DLLs with the DLLStruct and DLLStructCreate functions. Note: Some further code example which sounds like nearly exactly what I'm trying to do (but in VB). http://social.msdn.microsoft.com/Forums/is/vblanguage/thread/c30b87fa-3257-4b0b-b36b-350b0dd5b397 Private Sub listbox1_DragEnter(ByVal sender As Object, _ ByVal e As System.Windows.Forms.DragEventArgs) _ Handles ListBox1.DragEnter If (e.Data.GetDataPresent(DataFormats.FileDrop) = True) Then e.Effect = DragDropEffects.Copy End If End Sub Private Sub listbox1_DragDrop(ByVal sender As Object, _ ByVal e As System.Windows.Forms.DragEventArgs) _ Handles ListBox1.DragDrop For Each oneFile As String In _ e.Data.GetData(DataFormats.FileDrop) ListBox1.Items.AddRange(IO.File.ReadAllLines(oneFile)) Next oneFile End Sub