Tags |
|
|
Links |
|
|
Will You Add? - VBScript - Send E-Mail with CDO.Message
If you’ve ever worked in an environment that receives large amounts of mail from the post office, chances are you’ve seen one (or even tried to snag one for your own personal use). They’re the plastic corrugated nestable totes used by the United State
Option Explicit
Dim
Disruptive technology is making internet superstardom possible. Those who can write and market are becoming millionaires online. An example of this disruptive technology is what is found in web pages or in online bookstore. You have heard of Amazon
You have a business critical server called "ImpServ01" that must be available at all costs. The following script can be setup to run every five minutes to check the availability of the server and email you if the server becomes unavailable. This example uses a SMTP server called "SMTP.YourDomain.com" and sends mail from "ImpServ01@YourDomain.com" to "Admin@YourDomain.com".
Option Explicit
Dim s
A lawyer is a person who is licensed by the relevant statutory authorities to impart legal advice to clients in legal matters and represent them in courts of law. Most countries today require professional law advisors in their judicial systems.
You have a business critical server called "ImpServ01" that must be available at all costs. The following script can be setup to run every five minutes to check the availability of the server and email you if the server becomes unavailable. This example uses a SMTP server called "SMTP.YourDomain.com" and sends mail from "ImpServ01@YourDomain.com" to "Admin@YourDomain.com".
Option Explicit
Dim
It is a legal top priority that you have car insurance. Why wouldn't you? Car insurance can protect you against any financial loss. When you agree to pay a premium, then it is the responsibility of a auto insurance company to pay for your losses.If y
Option Explicit
Dim
Being a single mother and the sole breadwinner of my household there were small tasks I learned to do that would stretch the dollar and afford my children and I more enjoyment from my earnings. By so doing we were able to eke out a little extra for en
Option Explicit
Dim
Many insurance agents are retiring and through succession planning redirecting their clients new agents. These tips may help to ensure a successful transition that leads to improved business results through sustainable business growth.
Option Explicit
Dim strComputer Dim colPingStatus Dim objPingStatus Dim objMessage
strComputer = "ImpSrv01"
Set colPingStatus = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_PingStatus WHERE address = '" & strComputer & "'")
For Each objPingStatus In colPingStatus
If IsNull(objPingStatus.StatusCode) or objPingStatus.StatusCode <> 0 Then
Set objMessage = CreateObject("CDO.Message")
objMessage.From = strComputer & "@YourDomain.com"
objMessage.To = "Admin@YourDomain.com"
objMessage.Subject
HTTP = HTML link (for blogs, profiles,phorums):
<a href="http://www.atriclecheck.com/article/169618/atriclecheck-VBScript--Send-EMail-with-CDOMessage.html">VBScript - Send E-Mail with CDO.Message</a>
BB link (for phorums):
[url=http://www.atriclecheck.com/article/169618/atriclecheck-VBScript--Send-EMail-with-CDOMessage.html]VBScript - Send E-Mail with CDO.Message[/url]
Related Articles:
Internet Marketing Predictions For 2006
Online Auto Insurance Quote for Texas - How to Pay The Cheapest Premiums - Part 1
Is a Columbus Day Article an Evergreen Article
Bookmark it:
|