List Folders in Path with WSH

A how-to code example from ASPFree.

Contributed by aspfree
Rating:

/ 6
February 25, 2001

Rate this Article:
MEH MEH++

SEARCH ASP FREE

by Joe H. This code tip covers a script I recently used went needing an email from several window 2000 professional clients. We were doing an update and wanted an email without loading an some type of mail agent on each machine. This works in conjunction with the cdosys.dll that is part of the Windows 2000 family. Try it out, its definately handy, this is an alternative to using CDONTS.!

set imsg = createobject("cdo.message") 
set iconf = createobject("cdo.configuration") 

Set Flds = iConf.Fields 
With Flds 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "1.1.1.1" 
.Update 
End With 

With iMsg 
    Set .Configuration = iConf 
        .To = "yourid@yourdomain.com" 
        .From = "FromId@yourdomain.com" 
        .CC = "ACCId@meijer.com" 
        .Subject = "A Subject Line" 
        .TextBody = "A Text body message" 
        .fields.update 
        .Send 
End With 

set imsg = nothing 
set iconf = nothing