Vista - Send E-Mail

Thanks in advance for your help!

I have a VB script that I would like to send e-mails to internal e-
mail addresses when an error occurs. I have the error checking setup,
and currently it logs to a file - however, I would like to get it to
send an e-mail to our helpdesk when an error is encountered. The
message would never need to leave our network.

We have an SMTP server on the same subnet as well. Does anybody know
how I can send a basic e-mail from the script? I can use 3rd party
software, if required, but would like that to be a last resort.

It seems simple - contact the SMTP server and tell it to send a
message to one of the accounts it has locally... but I can't find
anything that helps.

Thanks experts!

"Robert Jacobs" <robertjacobsit@xxxxxx> wrote in message
news:4c48a6bf-4c31-4e20-a720-f5b8df101752@xxxxxxHere you go:

const cdoBasic=1
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
With objEmail
.From = "James@xxxxxx"
.To = "Jim@xxxxxx"
.Subject = "Test Mail"
.Textbody = "The quick brown fox " & Chr(10) & "jumps over the lazy dog"
.AddAttachment "d:\Testfile.txt"
With .Configuration.Fields
.Item (schema & "sendusing") = 2
.Item (schema & "smtpserver") = "mail.company.com"
.Item (schema & "smtpserverport") = 25
.Item (schema & "smtpauthenticate") = cdoBasic
.Item (schema & "sendusername") = "James@xxxxxx"
.Item (schema & "smtpaccountname") = "James@xxxxxx"
.Item (schema & "sendpassword") = "SomePassword"
End With
.Configuration.Fields.Update
.Send
End With

On Aug 12, 12:21*pm, "Pegasus [MVP]" <n...@xxxxxx> wrote:Thanks Pegasus. Is there a way to do this without using Microsoft's
website? For instance, if our internet connection goes down, this
wouldn't work, correct? If not built into VBScript, is there a
program that can be installed, and called by the VBScript when
needed? Just something other than requiring an internet connection to
function properly would be great.

"Robert Jacobs" <robertjacobsit@xxxxxx> wrote in message
news:ff5e93fa-7bbc-44be-83b9-114e61c02ead@xxxxxx
On Aug 12, 12:21 pm, "Pegasus [MVP]" <n...@xxxxxx> wrote:Thanks Pegasus. Is there a way to do this without using Microsoft's
website? For instance, if our internet connection goes down, this
wouldn't work, correct? If not built into VBScript, is there a
program that can be installed, and called by the VBScript when
needed? Just something other than requiring an internet connection to
function properly would be great.

=============

I don't know if this function depends on you having a live Internet
connection. If you want to be sure then you can use blat.exe. It is
downloadable from a number of web sites.

On Aug 13, 3:09*pm, "Pegasus [MVP]" <n...@xxxxxx> wrote:Great, thanks. I just assumed it required internet because of the
line:

schema = "http://schemas.microsoft.com/cdo/configuration/"

Am I incorrect in that statement? Otherwise, it works perfectly!
Please let me know... If not, I will check out blat. thanks again!

"Robert Jacobs" <robertjacobsit@xxxxxx> wrote in message
news:2210804d-51ad-47b3-a5e7-b53133736a23@xxxxxx
On Aug 13, 3:09 pm, "Pegasus [MVP]" <n...@xxxxxx> wrote:Great, thanks. I just assumed it required internet because of the
line:

schema = "http://schemas.microsoft.com/cdo/configuration/"

Am I incorrect in that statement? Otherwise, it works perfectly!
Please let me know... If not, I will check out blat. thanks again!

==================

I am not near an in-house SMTP server right now, so you'll have to check it
out yourself.

On Aug 13, 3:51*pm, "Pegasus [MVP]" <n...@xxxxxx> wrote:Thanks - The only way for me to test it is to disconnect the internet,
and doing so would disconnect it for the entire company. I'll just
have to assume it doesn't work, and use blat, thanks again.

Thanks - The only way for me to test it is to disconnect the internet,
and doing so would disconnect it for the entire company. I'll just
have to assume it doesn't work, and use blat, thanks again.
--------------

I've always wondered about that, too, though I've
never needed CDO so I never looked into it. It seems
very odd that a URL should be needed to name a
property. And the actual URL doesn't seem to be
a valid one. I've been waiting to hear the explanation
in this thread but apparently neither Pegasus nor anyone
else knows why it works that way either. I wonder if you
could just leave out that line?

On Aug 13, 4:50*pm, "mayayana" <mayaXXy...@xxxxxx> wrote:I know you can't just leave that line out, because schema is called
again multiple times. I'm working on figuring out how to maintain a
connection to our SMTP server while not having access to the internet,
harder than I thought... I'll let you know when I get it figured out.

On Aug 13, 4:50*pm, "mayayana" <mayaXXy...@xxxxxx> wrote:Good news, I changed the default gateway (actually, just removed it)
on the server, and this allowed me to still access all the servers/
desktops on my network my IP address or name, but not access anything
on the internet. I ran the script - and... woohoo! Everything still
works!!!

Thanks Pegasus!