#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 |
Tags |
attachment, pop-out |
|