Hej, Ta bort asp-taggarna, byt ut response.write mot msgbox och stoppa in allt i sub Main i en modul (obs. inget fönster, välj att den skall exekvera sub main vid start...) Ok, jag har bara jobbat med ASP-sidor... kan man klicka på denna fil och få den att göra samma sak som ASP-sidan då??Konvretering!
Kan man göra en körbar fil av deta??
/Henrik
<%
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
%>Sv: Konvretering!
Sv: Konvretering!
Kan man döpa den till .vbs eller skall man kompilera den i ngt program??
/Henrik