Send email script

[vovan]

Sorry if I'm posting in a wrong group.
I have a script:

Dim objMail
Set objMail = CreateObject("CDO.Message")
objMail.From = "chap...@srs-enterprises.com"
objMail.To = "chap...@optonline.net"
objMail.Subject = "That's a vbscript mail from
srsnjsrv.srs-enterprises.local"
objMail.Textbody = "Hello World"

objMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"srsnjsrv.srs-enterprises.local"
objMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"chapranov"
objMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"developer8686"

objMail.Configuration.Fields.Update
objMail.Send
Set objMail=Nothing

We have 3 servers in the domain. MS Exchange is installed on srsnjsrv
server. I run this script from all servers and everything is fine - mails go
through. For me it looks like one of the machines is a server and 2 others
are clients in this particular situation. I'm trying to run this script from
any workstation in domain and nothing happens. No error messages, but no
emails too. Workstations are clients now.
Outlook installed on all workstations sends emails via Exchange with no
problem.
What is the difference between server machines and workstation machines when
they all are clients for Exchange?
What should be configured (installed, authorized, whatever) on Workstations
in order to make this script work on them as it works on server machines?

Thank you,
vovan

[jamestechman]

Are you running any AV\Firewall that may be blocking outbound port 25
on these client machines?

James Chong (MVP)
MCITP | EMA; MCSE | M+, S+,
Security+, Project+, ITIL
msexchangetips.blogspot.com

On Feb 24, 9:21 am, "vovan" <v...@v.com> wrote:
> Sorry if I'm posting in a wrong group.
> I have a script:
>
> Dim objMail
> Set objMail = CreateObject("CDO.Message")

> objMail.From = "chapra...@srs-enterprises.com"
> objMail.To = "chapra...@optonline.net"

[vovan]

I did not try on many machines but I turned off AV and Firewall and it still
doesn't work
What else may affect the script behavior?
Thank you

vovan

"jamestechman" <jamest...@gmail.com> wrote in message
news:c6a5faea-2cc9-438f...@r24g2000vbp.googlegroups.com...

[Charles]

Hi Vovan:

I'm not sure if this would be the issue but enable smtp on one of your
clients and test. Maybe you have smtp installed on the servers but not on
the clients thus the problem? Also, you may want to use netmon to see if you
can get some errors from tracing activity from that client when you run the
script.

Hope this helps a little.

Chuck

[jford]

Have you checked your anti-virus logs? I know in my environment scripts & exe
that send email have to have a special exception put in place for them to
work.