Send mail hvis mappe indeholder filer

Det er nok lidt simpelt i forhold til hvad i plejer, men er der nogen der kan hjælpe mig med at sætte det her rigtigt sammen.

Jeg ønsker at kunne få tilsendt en mail i stedet hvis der findes filer i mappen.


Jeg har indtil videre følgende kode til at se om der er filer i mappen.
-----------------------------------------------------------------
Option Explicit

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

Function FolderEmpty(strFolderPathName)
    Dim oFiles, oFile, oFolder, oSubFolders, oSubFolder
    Dim blnFileFound : blnFileFound = False
    Set oFolder = oFS.GetFolder(strFolderPathName)
    Set oFiles = oFolder.Files
    If oFiles.Count > 0 Then
        FolderEmpty = False
        Exit Function
    End If
    Set oSubFolders = oFolder.SubFolders
    For Each oSubFolder In oSubFolders
        If Not FolderEmpty(oSubFolder.Path) Then
            FolderEmpty = False
            Exit Function
        End If
    Next
    FolderEmpty = True
End Function

Dim strFolderPathName : strFolderPathName = "C:\windows"
If FolderEmpty(strFolderPathName) Then

Else
    MsgBox " Der er filer i mappen "
-----------------------------------------------------------------




Kan man flette den sammen med denne kode som sender mail ?




----------------------------------------------------------------------------------------------------------------------------------
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mail.dk"
myMail.To="mymail@mail.dk"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.mail.dk"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
----------------------------------------------------------------------------------------------------------------------------------