CDONTS-fel

10 svar · 260 visningar · startad av bassebhu 3 apr. 2003

bassebhuMedlem sedan nov. 20016 480 inlägg

Frågan3 apr. 2003 18:58#1

vad är det för fel i följande kod?

<%
Dim Message
Set newMail = CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("name")
newMail.To = "sebastian@sebastian.nu"
newMail.Subject = "Beställning av material"
Message = "Namn: " & Request.Form("name") & vbCrLf & vbCrLf
If NOT Request.Form("produktblad") = "" Then
Message = Message  & "Produktblad: " & Request.Form("produktblad") & vbCrLf
End If
If NOT Request.Form("faktablad") = "" Then
Message = Message  & "Faktablad: " & Request.Form("faktablad") & vbCrLf & vbCrLf
End If
If NOT Request.Form("adress") = "" Then
Message = Message  & "Adress: " & Request.Form("adress") & vbCrLf
End If
If Request.Form("zipcode") = "" Then
Message = Message  & "Postnummer: " & Request.Form("zipcode") & vbCrLf
End If
If NOT Request.Form("zipcity") = "" Then
Message = Message  & "Ort: " & Request.Form("zipcity") & vbCrLf
End If
Message = Message  & "Telefon: " & Request.Form("phone") & vbCrLf
Message = Message  & "E-post: " & Request.Form("email") & vbCrLf
Message = Message  & "Meddelande: " & Request.Form("message")
newMail.Body = Message
newMail.Send
Set newMail = Nothing
%>

Inget mail som kommer fram =/

tack!

m_soderlundMedlem sedan sep. 20026 425 inlägg

4 apr. 2003 06:15#2

Jag tycker att det verkar som att koden är högst korrekt. Har du försökt att skriva ut variabeln Message? Gör det och kolla om något skrivs ut.

bassebhuMedlem sedan nov. 20016 480 inlägg

4 apr. 2003 19:46#3

japp, den skriver ut message.

kan det vara att jag glkömt ange något för att det ska funka. tex om man inte fyller i "to", "subject" eller "from" så kommer inget mail?! men det har jag ju gjort =/
måste "to" och "from" vara riktiga mailadresser? har iofs testat det med men...

tack!

solbulleMedlem sedan mars 20015 287 inlägg

4 apr. 2003 20:00#4

Adresserna måste nog vara riktiga, har du kollat i dina mailmappar, tex badmail om det ligger mail kvar där?

bassebhuMedlem sedan nov. 20016 480 inlägg

4 apr. 2003 20:11#5

noep =/ inga mejl. adresserna är riktiga.

en till fråga. detta: "vbCrLf" - det ska väl bli radbrytning?! det blev inte det när jag skrev ut messagevariabeln =/ vad är fel då?

tack

SebbeMedlem sedan jan. 20032 285 inlägg

4 apr. 2003 20:12#6

Det gäller bara mailet. Om du ska skriva ut det använder du

Response.Write(Replace(Message,vbCrLf,"<br>"))

bassebhuMedlem sedan nov. 20016 480 inlägg

4 apr. 2003 20:18#7

ok.

fan funkar inte cdontsen för då =/
ska ha stöd för cdonts. irriterande när man inte får felmess.

jag tycker det ser korrekt ut. kan ingen testa på sin server om jag lägger upp mer kod?
vet att det är en rätt jobbig tjänst men om nån har extremt tråkigt och så ;)
jag kan hjälpa med lite musik-saker i gentjänst då eller nåt haha.

tack!

bassebhuMedlem sedan nov. 20016 480 inlägg

4 apr. 2003 20:31#8

fick ditt mail solbulle. hur ändrade du? :e

solbulleMedlem sedan mars 20015 287 inlägg

4 apr. 2003 21:42#9

Ursäkta att jag inte svarat tidigare.

Det enda jag gjorde var att hårdkoda min mailadress (from)
Inga andra ändringar. Så min slutsats blir att om du bara ser till att ha en ok adress i ditt formulär så ska det fungera. (Rätt namn i formen?)

Annars verkar det vara din komponent alt. servern som strular - men då borde du ju få felmess eller "badmails"

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 09:37#10

Det kanske funkar med:

newMail.From = Trim(CStr(Request.Form("name"))) & ""

OveRRidEMedlem sedan feb. 200112 078 inlägg

5 apr. 2003 15:16#11

Nu gissar jag, eftersom jag inte är så hemma på CDONTS, men kan man inte gör nåt liknande det man gör i ASPMail?

Observera att denna kod troligen inte passar implementationsmässigt mot CDONTS, då dess gränssnitt troligen ser annorlunda ut.

if newMail.Send then 
   response.write "Mailet skickat!"
else
   response.write "Mailet skickades ej! " & newMail.response
end if