View Single Post
 
Old 05-30-2022, 01:01 AM
JamesMWood JamesMWood is offline Windows 10 Office 2021
Novice
 
Join Date: May 2022
Posts: 25
JamesMWood is on a distinguished road
Question 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
Reply With Quote