Vista vbs send E-mail

 
 
 
Jak poslat mejl vbs scriptem a vyhnout se autentizace z Vist na Exchange
How send e-mail via vbs script without authentization from windows vista to exchange
 
 
Set objMessage = CreateObject("CDO.Message")
objMessage.From = "
ok@ok.cz"
objMessage.To = "
drnek@mejl.cz"
objMessage.Subject = "Disks info"
objMessage.Textbody = "ahoj"
objMessage.Configuration.Fields.Item _
    ("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
    ("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "your.server.local"
objMessage.Configuration.Fields.Item _
    ("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item _
("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
objMessage.Configuration.Fields.Update
objMessage.Send
Advertisements