<div>
Sadly, if you know for sure the script is fired correctly EVERY TIME (do it with writing extra code to append to a log file or something, log a line BEFORE the email procedure, and AFTER the email procedure, obviously have the lines be different, with a time stamp), then you need to know why the email is not delivered (some SMTP error, maybe quota or spam issues). 
So on that PC or server, open Wireshark and capture port 25 only. Then at the end of the day, go through it all, and check why some have not been sent (probably got some SMTP error, post it here). 
If the log file already isn't complete, it meant the script didn't execute correctly, and you need to find out why.
</div>

<div>
Thank you for your advice. &nbsp;I'm afraid I'll need to have the logging code specified, and instructions for using Wireshark. &nbsp;I have no experience with either process. &nbsp;If the script fails to connect to the server, there would be a popup on the host computer desktop, and there has not been any. &nbsp;Alternatively, if there is a way to improve the existing code, that would be simpler for me.
</div>

<div>
Here's some code to get the log file going 
Now you have to correspond the running script with TWO lines every time. If you're missing TWO lines, the script probably never ran. Check why. 
&nbsp;If the script RAN, but only one line is logged, the email part is giving errors. 
If the script RAN, and still two lines logged, but no email received, you might not have a problem on your side, but maybe the other side (spam filter). 
 
After you know what to look for, install Wireshark on the PC where this script runs (<a href="https://wireshark.org" rel="ugc">https://wireshark.org</a>) 
After default install (just press OK every step), ttart Wireshark. First click the correct network interface, then fill in the line above: 
 
port 25 
 
Let it run for a while. After you see email not being received again, close Wireshark, save the capture, rename to .txt, post here. 
 
 

<pre><code class="code-10 nolinks" id="code-20-41770197-1">Const ForAppending = 8
Dim fso
Set fso=wscript.CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objFile
Dim logfile
logfile = &quot;C:\Users\Kimputer\Documents\logfile.txt&quot;
if fso.fileexists(logfile) then
	Set objFile = fso.OpenTextFile(logfile, ForAppending, True)
else
	Set objFile = fso.CreateTextFile(logfile, True)
end if

objFile.Write now() &amp; &quot; - start email script&quot; &amp; vbcrlf

Dim emailObj
Set emailObj = CreateObject(&quot;CDO.Message&quot;)
emailObj.From = &quot;&quot;

emailObj.To = &quot;&quot;

emailObj.Subject = &quot;&quot;
emailObj.TextBody = &quot;&quot;

Dim emailConfig
Set emailConfig = emailObj.Configuration

emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;) = &quot;smtp.maui.net&quot;
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;) = 2 
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpauthenticate&quot;) = 1 
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpusessl&quot;) = false 
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendusername&quot;) = &quot;&quot;
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendpassword&quot;) = &quot;&quot;
emailConfig.Fields.Update

emailObj.Send

'If err.number = 0 then Msgbox &quot;Done&quot;

objFile.Write now() &amp; &quot; - end email script (email should've been sent)&quot; &amp; vbcrlf
</code></pre>
</div>

<div>
Thank you for specific instructions. &nbsp;I tested the script five times. &nbsp;The Email was received three times. &nbsp;The log file shows five identical entries like this: 
8/25/2016 6:34:13 AM - start email script 
8/25/2016 6:34:15 AM - end email script (email should've been sent) 
 
After installing Wireshark, there was a window asking to select a capture filter. &nbsp;I don't know what that requires. &nbsp;I tried double clicking the first line below the &quot;Enter a Capture Filter&quot; line &nbsp;(&quot;Wireless Network Connection&quot;) and I'm embedding a screen shot. &nbsp;I did not see an option to enter Port 25. <a href="https://filedb.experts-exchange.com/incoming/2016/08_w35/1113485/Image2.jpg" target="_blank" title="screen shot (142 KB)"><img alt="screen shot" class="file-block lazyload" style="max-width: 764px;" data-src="https://filedb.experts-exchange.com/incoming/2016/08_w35/1113485/Image2.jpg" /></a>
</div>

Image2.jpg

<div>
The &quot;enter a capture filter&quot; should be filled in after clicking the wireless network connection. 
 
Port 25 
 
Press enter to start. After testing again, and noticing 5 successful runs but receiving less emails, quit Wireshark, saving the capture file.
</div>

<div>
OK, there are five 2-line entries in the log file, but only 3 Emails were received. &nbsp;The capture file has been saved, but I need to change its extension from .pcapng in order to upload it. &nbsp;What extension shall I use?
</div>

<div>
use .txt, I &nbsp;will download it, and rename it back.
</div>

<div>
<a href="https://filedb.experts-exchange.com/incoming/2016/08_w35/1113695/saved.txt" target="_blank" class="file-inline" title="Saved capture file (103 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>saved.txt</a>
</div>

saved.txt

<div>
Thank you for your clear and detailed assistance!
</div>

<div>
<div class="content wysiwyg-content">
I am a novice at scripting. &nbsp;I have a script which is supposed to send me an Email when it is activated, but it only does that some of the time. &nbsp;I'd appreciate guidance about improving this, so that the Email is sent consistently. &nbsp;Below is the script. &nbsp;Some of the text has been removed, so only &quot;&quot;&nbsp; appears, in order to preserve privacy regarding contact information, passwords, etc. 
 

<pre><code class="code-10 nolinks" id="code-10-28965082-1">Dim emailObj
Set emailObj = CreateObject(&quot;CDO.Message&quot;)
emailObj.From = &quot;&quot;

emailObj.To = &quot;&quot;

emailObj.Subject = &quot;&quot;
emailObj.TextBody = &quot;&quot;

Dim emailConfig
Set emailConfig = emailObj.Configuration

emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;) = &quot;smtp.maui.net&quot;
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;) = 2 
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpauthenticate&quot;) = 1 
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/smtpusessl&quot;) = false 
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendusername&quot;) = &quot;&quot;
emailConfig.Fields(&quot;http://schemas.microsoft.com/cdo/configuration/sendpassword&quot;) = &quot;&quot;
emailConfig.Fields.Update

emailObj.Send

'If err.number = 0 then Msgbox &quot;Done&quot;
</code></pre>
</div>
</div>

I am a novice at scripting.  I have a script which is supposed to send me an Email when it is activated, but it only does that some of the time.  I'd appreciate guidance about improving this, so that the Email is sent consistently.  Below is the script.  Some of the text has been removed, so only ""  appears, in order to preserve privacy regarding contact information, passwords, etc.

(CODE)

VB script to send pop mail only performs intermittently

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Interactions between email servers and clients are governed by email protocols. The three most common email protocols are POP, IMAP and MAPI. Most email software operates under one of these (and many products support more than one).  The correct protocol must be selected, and correctly configured, if you want your email account to work.