VBA to send files in folder

[Vistaro]

Hello All

Hoping for some help

I store all my scanned documents in a folder and want to email them all individually to the same email address with a subject of teh filename without the .pdf extension.

I'm using Outlook 2013 and can get the VBA to send a mail working (From Sue Mosher's post) but have no idea how to cycle through all the files and extract their filenames without the extension to put in the subject

Here's the code I have so far

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail

.Subject = "Filename without Extension"
.To = "Email Address"
.Attachments.Add "c:\scans|filename"
.send

End With


Can anyone help? if so much appreciated

Thanks

 

[Vistaro]

Hi All

Worked it out, here it is in case anyone else needs it

Sub SendScans()

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

'Create an instance of the FileSystemObject

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Get the folder object

Set objFolder = objFSO.GetFolder("C:\Scans")

Records = 1

'Loop through each file in the directory and put their names and path into the sheet

For Each objFile In objFolder.Files

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail

.Subject = Left(objFile.Name, Len(objFile.Name) - 4)
.To = "??.com"
.Attachments.Add objFile.Path
.Send

End With

Records = Records + 1

Next objFile

End Sub