Jag håller på att lägga in ett script tyvärr har jag stött på ett litet problem då mailutskickaren är gjord i Jmail och jag bara har cdonts installerat på mitt webhotell och den kod jag brukar använda till att skicka meddelanden med från (och inom) min server funkar inte så jag tänkte att någon kanske vet hur man byter ut Jmailkoden mot Cdonts kod?
set mail=CreateObject("CDONTS.NewMail")
mail.Send "till@mail.se" "from@mail.se" "subject" "meddelande"
set mail=Nothing
"långa" versionen:
set mail=CreateObject("CDONTS.NewMail")
With mail
.From = "from@mail.se"
.To = "till@mail.se"
.Subject = "subject"
.Body = "Hello Mail!!"
.Send
End With
mail = nothing
Det finns även .CC och BCC
Flera adresser åtskiljs med ; så du kan alltså skicka massor med mail på en gång, slipper loopa...
jo det var den jag undrade över hur man gör om den så att den funkar, eftersom i jmail ställer man in mailserver med i den subrutinen som jag brukar lägga in när jag byter ett scripts kod till cdonts, så ställer man inte in mailserver, det är liksom det som blivit mitt problem, då det var det jag undrade över en en sådan slkulle kunna se ut, glad påsk föresten :-)
Okey, kollade koden först nu..
så här ska subrutinen se ut:
sub SendMail(sTo, sSubject, sBody)
'TO DO: Change the mail configuration
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = sMailSender
Mail.Subject = sSubject Mail.To sTo
Mail.Body = sBody
Mail.Send
Set Mail = Nothing
end sub
