Grabbing Folder size and email info

Question

Hi all,
 I've been working on a script that will get the size of all the users profiles folders on our file server. I then set it up to email the I.T. Dept if the size of the file is over 200MB.
So far, when I run the script, it doesn't throw off any errors, but it doesn't send the email either.
Information:
The file server is added as a relay in Exchange.
We are not using port 25, we're using an alternate port instead.
I've tried it with both authenticate and without.
I can telnet to the Exchange server using Putty and open a connection to the port to issue an HELO command.
I am just learning how to script.
The script is pasted below with the obvious omitted.
Since the script doesn't throw an error, I can't track down the problem.
Script us below.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\Profiles")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
foldersize = objsubfolder.Size/1024/1024                           
Next  
If foldersize > 200 Then
Set objMessage = CreateObject("CDO.Message")
  objMessage.From = [email protected]"
  objMessage.To = "[email protected]"
  objMessage.Subject = " A profile Folder has exceeded 200MB"
  objMessage.TextBody = "The folder " & objSubfolder & " has exceeded 200MB.  Please panic in an orderly fashion." 
  objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myemailserver"
  objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
  objMessage.Configuration.Fields.Update 
  objMessage.Send
End If
SO, as I said, it's not throwing an error, but I'm not getting a test email eihter
What am I missing?

Answer 1

Yes, we want one email sent, per folder.
I'm pretty sure I understand why the OP wasn't working. I had foldersize being read, but, the script had no idea of what to do with it as I had the "Next" statement before telling the script what to do with the folders who's size was more than
200MB.
That is partly the answer. Immediately it satisfies the need but ask yourself...why didn't you see that to begin with.  Now look at a more direct method of "saying " the same thing in code.
Set objMessage = CreateObject("CDO.Message")
objMessage.From = "myemail.com"
objMessage.To = "myemail.com"
objMessage.Subject = " A profile Folder has exceeded 200MB"
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myexchangeserver"
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = myport
objMessage.Configuration.Fields.Update
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\Profiles")
For Each objSubfolder in objFolder.Subfolders
If foldersize > objSubfolder > (1024*1024*200) Then
objMessage.TextBody = "The folder " & objSubfolder & " has exceeded 200MB. Please panic in an orderly fashion."
objMessage.Send
End If
Next
Note that most of the scrip only needs to be crated once.  This is faster, more efficient, easier to maintain and easier to understand.
As Mike pointed out.  Skip VBScript and learn PowerShell.
Same thing in PowerShell
dir \users -dir |
Where{($_|get-childitem -recurse -ea 0|Measure-Object length -sum).Sum -gt 200Mb}|
ForEach{ Send-MailMessage @props -Body "folder too big $($_,Fullname)"}
¯\_(ツ)_/¯