Hej,

Jag använder denna kod för att skicka mail och undrar om man kan göra samma sak i en *.vbs-fil ??

Det skall skickas ett mail i intervaller från en webserver och för att slippa ha en websida öppen hela tiden vill jag ha en körbar fil av detta... hur funkar detta?

/HH

<%

set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")

' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds.update


Set objMessage.Configuration = objConfig
objMessage.To = "kalle"
objMessage.From = "kalle"
objMessage.Subject = "This is a sample email sent using CDO"
objMessage.TextBody = "Congratulation" & VbCrLf & "If you receive this is, your mail component works"
objMessage.fields.update
objMessage.Send

Response.write "Mail sent..."

set objMessage = nothing
set objConfig = nothing

%>

Varför inte testa själv? Det fungerar i alla fall finfint om du tar bort "Response.write...".

/Johan

Hmm det är ju för enkelt ibland... :-) det funkade ju perfekt!!
/Henrik