VBA - pop-up table to search files

[iris1007]

Hi,
I have many pdf (now about 4k+ and will be increasing from time to time) which saved in a share folder (F:\). My engineers will always come to me to check if I have the Part pdf in my pdf list.
Can I have a pop-up table for the engineers to input the part # they need for the pdf and if YES, an email will auto send to me.
Thanks in advance for the helps.

 

[mrshl9898]

Not exactly sure on what is meant by pop up.

This will show an inputbox where they can type the part number, if there's a file on the drive named that it will find and send it.

Otherwise sounds like windows explorer, they can just use that, search then right click and add to email.

Sub LoopThroughFiles()


Dim StrFile As String
Dim StrFolder As String
Dim aOutlook As Object
Dim aEmail As Object
    
StrFolder = Dir("O\")
StrFile = InputBox("Enter Part Number")
Do While Len(StrFolder & StrFile) > 0
StrFolder = "O:\"
On Error GoTo errorhan
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
    aEmail.Importance = 2
    aEmail.Subject = "bla"
    aEmail.Body = "bla"
    aEmail.To = "bla@bla.com"
    aEmail.Attachments.Add StrFolder & StrFile & ".pdf"
    aEmail.Send
Exit Sub
Loop
errorhan:
MsgBox "File not found"
End Sub

 

[iris1007]

Hi,
Thanks for your fast respond. Sorry for the confused.
Yes, your suggestion is exactly what I wanted. Just that, my company is using "LotusNotes" and not "Outlook".

Can I just change :
Set aOutlook = CreateObject("Outlook.Application")

to:
Set aOutlook = CreateObject("Notes.NotesSession")?