Help with sending email without having SMTP Services Installed

In this below vbs script, I am trying to send email without
having smtp services installed on my machine. However
since most of my machines doesn't have access to the
internet, how can I change "("http://schemas.microsoft.com/cdo/configuration/se
ndusing")" in my script to use an internal server.

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "swrobins@ebay.com"
objEmail.To = "swrobins@ebay.com"
objEmail.Subject = "RegKey Apllied on "&Var1&" "
objEmail.Textbody = ""
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"server.domain.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Thank for the help.

Robnson

JC
Mon Feb 09 16:37:59 CST 2004

objEmail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP SERVER
NAME"
objEmail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25


"robnson" <stephen@ncsquare.com> wrote in message
news:3af55c40.0402091432.194b96ae@posting.google.com...
> In this below vbs script, I am trying to send email without
> having smtp services installed on my machine. However
> since most of my machines doesn't have access to the
> internet, how can I change
"("http://schemas.microsoft.com/cdo/configuration/se
> ndusing")" in my script to use an internal server.
>
> Set objEmail = CreateObject("CDO.Message")
> objEmail.From = "swrobins@ebay.com"
> objEmail.To = "swrobins@ebay.com"
> objEmail.Subject = "RegKey Apllied on "&Var1&" "
> objEmail.Textbody = ""
> objEmail.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
> objEmail.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
> "server.domain.com"
> objEmail.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
> objEmail.Configuration.Fields.Update
> objEmail.Send
>
> Thank for the help.
>
> Robnson

jcochran
Tue Feb 10 09:34:45 CST 2004

On 9 Feb 2004 14:32:52 -0800, stephen@ncsquare.com (robnson) wrote:

>In this below vbs script, I am trying to send email without
>having smtp services installed on my machine. However
>since most of my machines doesn't have access to the
>internet, how can I change "("http://schemas.microsoft.com/cdo/configuration/se
>ndusing")" in my script to use an internal server.
>
>Set objEmail = CreateObject("CDO.Message")
>objEmail.From = "swrobins@ebay.com"
>objEmail.To = "swrobins@ebay.com"
>objEmail.Subject = "RegKey Apllied on "&Var1&" "
>objEmail.Textbody = ""
>objEmail.Configuration.Fields.Item _
>("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>objEmail.Configuration.Fields.Item _

Change this line:

>("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
>"server.domain.com"

And replace server.domain.com with the name or address of your
internal SMTP server.

Note that you can't send SMTP mail without having acces to a SMTP mail
server *somewhere*.

Jeff

>objEmail.Configuration.Fields.Item _
>("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
>objEmail.Configuration.Fields.Update
>objEmail.Send
>
>Thank for the help.
>
>Robnson

stephen
Tue Feb 10 14:02:43 CST 2004

Thank you for the reply, however I might have not made myself clear.
What I am trying to accomplish is, since the server doesn't have
access to the internet, I am unable to use the CDO configuration on
this hyperlink.
<("http://schemas.microsoft.com/cdo/configuration/sendusing")>. Yes I
have an internal smtp server, but since the cdo is on a remote server
on the internet, I can't get to it. So I am trying to configure one
of my servers on my network to be able to do this. so instead of
This "("http://schemas.microsoft.com/cdo/configuration/sendusing")"
I will have something like this
"("http://myserver.mydomain.com/cdo/configuration/sendusing")"

THnaks,

Robnson

jcochran.nospam@naplesgov.com (Jeff Cochran) wrote in message news:<4030f9cc.616146822@msnews.microsoft.com>...
> On 9 Feb 2004 14:32:52 -0800, stephen@ncsquare.com (robnson) wrote:
>
> >In this below vbs script, I am trying to send email without
> >having smtp services installed on my machine. However
> >since most of my machines doesn't have access to the
> >internet, how can I change "("http://schemas.microsoft.com/cdo/configuration/se
> >ndusing")" in my script to use an internal server.
> >
> >Set objEmail = CreateObject("CDO.Message")
> >objEmail.From = "swrobins@ebay.com"
> >objEmail.To = "swrobins@ebay.com"
> >objEmail.Subject = "RegKey Apllied on "&Var1&" "
> >objEmail.Textbody = ""
> >objEmail.Configuration.Fields.Item _
> >("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
> >objEmail.Configuration.Fields.Item _
>
> Change this line:
>
> >("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
> >"server.domain.com"
>
> And replace server.domain.com with the name or address of your
> internal SMTP server.
>
> Note that you can't send SMTP mail without having acces to a SMTP mail
> server *somewhere*.
>
> Jeff
>
> >objEmail.Configuration.Fields.Item _
> >("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
> >objEmail.Configuration.Fields.Update
> >objEmail.Send
> >
> >Thank for the help.
> >
> >Robnson

jcochran
Tue Feb 10 15:16:25 CST 2004

On 10 Feb 2004 12:02:43 -0800, stephen@ncsquare.com (robnson) wrote:

>Thank you for the reply, however I might have not made myself clear.
>What I am trying to accomplish is, since the server doesn't have
>access to the internet, I am unable to use the CDO configuration on
>this hyperlink.
><("http://schemas.microsoft.com/cdo/configuration/sendusing")>. Yes I
>have an internal smtp server, but since the cdo is on a remote server
>on the internet, I can't get to it. So I am trying to configure one
>of my servers on my network to be able to do this. so instead of
>This "("http://schemas.microsoft.com/cdo/configuration/sendusing")"
>I will have something like this
>"("http://myserver.mydomain.com/cdo/configuration/sendusing")"

http://myserver.mydomain.com/cdo/configuration/sendusing is the field
name, not a location or a URL that needs to be connected to. :)

In otherwords, your system never tries to connect to that URL, and you
don't need internet access to use CDO.

Have you tried the suggested changes?

Jeff

>
>jcochran.nospam@naplesgov.com (Jeff Cochran) wrote in message news:<4030f9cc.616146822@msnews.microsoft.com>...
>> On 9 Feb 2004 14:32:52 -0800, stephen@ncsquare.com (robnson) wrote:
>>
>> >In this below vbs script, I am trying to send email without
>> >having smtp services installed on my machine. However
>> >since most of my machines doesn't have access to the
>> >internet, how can I change "("http://schemas.microsoft.com/cdo/configuration/se
>> >ndusing")" in my script to use an internal server.
>> >
>> >Set objEmail = CreateObject("CDO.Message")
>> >objEmail.From = "swrobins@ebay.com"
>> >objEmail.To = "swrobins@ebay.com"
>> >objEmail.Subject = "RegKey Apllied on "&Var1&" "
>> >objEmail.Textbody = ""
>> >objEmail.Configuration.Fields.Item _
>> >("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>> >objEmail.Configuration.Fields.Item _
>>
>> Change this line:
>>
>> >("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
>> >"server.domain.com"
>>
>> And replace server.domain.com with the name or address of your
>> internal SMTP server.
>>
>> Note that you can't send SMTP mail without having acces to a SMTP mail
>> server *somewhere*.
>>
>> Jeff
>>
>> >objEmail.Configuration.Fields.Item _
>> >("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
>> >objEmail.Configuration.Fields.Update
>> >objEmail.Send
>> >
>> >Thank for the help.
>> >
>> >Robnson

Michael
Tue Feb 10 20:30:26 CST 2004

robnson wrote:
> Thank you for the reply, however I might have not made myself clear.
> What I am trying to accomplish is, since the server doesn't have
> access to the internet, I am unable to use the CDO configuration on
> this hyperlink.
> <("http://schemas.microsoft.com/cdo/configuration/sendusing")>. Yes I
> have an internal smtp server, but since the cdo is on a remote server
> on the internet, I can't get to it. So I am trying to configure one
> of my servers on my network to be able to do this. so instead of
> This "("http://schemas.microsoft.com/cdo/configuration/sendusing")"
> I will have something like this
> "("http://myserver.mydomain.com/cdo/configuration/sendusing")"
>


Those are not URLs that point to web sites. They are URIs that define
namespaces...

Fields
http://msdn.microsoft.com/library/en-us/cdosys/html/_cdosys_fields.asp

has links to the documentation for these namespaces.


--
Michael Harris
Microsoft.MVP.Scripting

Microsoft® Windows®2000 Scripting Guide
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp

TechNet Script Center Sample Scripts
http://www.microsoft.com/technet/scriptcenter/default.asp
Download in HTML Help format (searchable and indexed)
http://www.microsoft.com/downloads/release.asp?ReleaseID=38942

WSH 5.6 documentation download
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en