.
Well ... this is one way. Add the following :
Option Explicit
Sub HowManyEmails()
'all the other lines of code previous to the following :
EmailCount = objFolder.Items.Count
Set objFolder = Nothing
Set objnSpace = Nothing
Set objOutlook = Nothing
If EmailCount > 1 Then 'change number here / replace the next line with the call to macro for sending txt message.
MsgBox "Number of emails in the folder: " & EmailCount, , "email count"
End If
End Sub
However, you are still going to need a macro to run the above macro periodically ... which requires a timer. You can set the timer to fire every minute or every 5 minutes or however you want.