Problem med CDONTS

Du har inget "on error resume next" med i koden va? Om du har det så kommentera bort den raden och posta felmeddelandet här.

Nej det har jag inte

Kan du kanske visa lite kod? :)

Dim MyBody
Dim MyCDONTSMail
MyBody = 	"Testar mail cdonts " 
Set MyCDONTSMail = Server.CreateObject"CDONTS.NewMail")
MyCDONTSMail.From= "Mig"
MyCDONTSMail.To= strMAil
MyCDONTSMail.Subject="Kampanj"
MyCDONTSMail.Body=  MyBody
MyCDONTSMail.Send
Set MyCDONTSMail=Nothing

Jag hade samma problem förr när jag körde CDONTS för ett "tipsa mig"-formulär. Saken var bara den att jag inte fick några mail när användaren varit anonym, dvs inte fyllt i en giltig mailadress i frånfältet. Men Du har ju "Mig" som standard där och då borde det fungera. Frågan är vad StrMail är? Du kanske måste ha en mailadress där eller en Request.Form, typ så här:

<%
Dim myCDONTSMail 
Set myCDONTSMail = CreateObject("CDONTS.NewMail") 
myCDONTSMail.From = "Mig"
myCDONTSMail.To = "du@domän.com" 
myCDONTSMail.Subject = "Kampanj" 
myCDONTSMail.Body = MyBody
myCDONTSMail.Send 
Set myCDONTSMail = Nothing 
%>

myCDONTSMail.From = "Mig"

Tveksam på om det fungerar. Provat med en fungerande mailadress?

Det måste man ha, japp.

Jesper T och Peeer har rätt. Fel av mig. Det var så jag menade även om mitt svar var lite konstigt och motsägelsefullt. Mitt problem låg i att folk inte fyllde i sin avsändaradress och därför fungerade det inte.