Hi there

I'm making the switch from VB and started getting to grips with Visual Studio, so I'm not too sure if you'll be able to help or not. I have a sub where a button click attaches a file to a currently-open email draft. It works for ActiveInlineResponse, but I'm not too sure how to get it to work if it's a pop-out window etc. Thoughts? I think it might have something to do with Inspector, but I'm not sure how to implement it. Current code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'Strings for enclosures
Dim filename As String
filename = "c:\temp\test.pdf"

'Add enclosures to draft email
Dim aMail As Outlook.MailItem
Dim outapp As New Outlook.Application()

aMail = outapp.ActiveExplorer().ActiveInlineResponse



With aMail
aMail.Attachments.Add(filename,
Outlook.OlAttachmentType.olByValue, 1)
CType(aMail, Outlook._MailItem).Save()
End With

End Sub



Thanks a lot
James

Nevermind, I got it to work. For anyone curious:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'Strings for enclosures
Dim filename As String
filename = "c:\temp\test.pdf"

'Add enclosures to draft email
Dim aMail As Outlook.MailItem
Dim outapp As New Outlook.Application()
Dim oInspector As Outlook.Inspector
oInspector = outapp.ActiveInspector

'Determine if in line response or pop-out email reply
If oInspector Is Nothing Then
aMail = outapp.ActiveExplorer.ActiveInlineResponse
Else
aMail = oInspector.CurrentItem
End If

'Attach files
With aMail
aMail.Attachments.Add(filename,
Outlook.OlAttachmentType.olByValue, 1)
CType(aMail, Outlook._MailItem).Save()
End With

Hide() 'Hides form window after clicking attach button

End Sub