ActiveExplorer().ActiveInlineResponse
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
|