CDONTS bekräftelse mail funkar inte
51 svar · 1 556 visningar · startad av stekarn · sida 3 av 3
Frågan, av stekarn
Hej, jag har ett formulär som man ska fylla i som ska gå till mig men sedan ska användaren få ett bekräftelsemail. Så här se koden ut: \<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%\> \<% Option Explicit %\> \<% Dim strtjanst, strnamn, strkundnummer, strtelefon, strmobil, strepost, strmedelande strtjanst=request.form("tjanst") strnamn=request.form("namn") strkundnummer=request.form("kundnummer") str
Läs frågan i sin helhet →
stekarn skrev:
Får fel här:
oMail.To = strepost
Vad för fel?, Har du skrivit in någon e-post? Vad gjorde du för att få felet? vad innehåller strepost om du försöker skriva ut det?
Jag kan bara gissa här.
<%
Option Explicit
Dim strtjanst, strnamn, strkundnummer, strtelefon, strmobil, strepost, strmedelande, sMailBody, oMail
strtjanst = Request.Form("tjanst")
strnamn = Request.Form("namn")
strkundnummer = Request.Form("kundnummer")
strtelefon = Request.Form("telefon")
strmobil = Request.Form("mobil")
strepost = Request.Form("epost")
strmedelande = Request.Form("medelande")
'SKICKA MEDDELANDE
sMailBody = "Beställning ifylld " & Now() & vbCrLf
sMailBody = sMailBody & vbCrLf
sMailBody = sMailBody & "Tjänst: " & strtjanst & vbCrLf
sMailBody = sMailBody & "Namn: " & strnamn & vbCrLf
sMailBody = sMailBody & "Kundnummer: " & strkundnummer & vbCrLf
sMailBody = sMailBody & "Telefon: " & strtelefon & vbCrLf
sMailBody = sMailBody & "Mobil: " & strmobil & vbCrLf
sMailBody = sMailBody & "E-post: " & strepost & vbCrLf
sMailBody = sMailBody & "Medelande: " & strmedelande & vbCrLf & vbCrLf
set oMail = server.CreateObject("CDONTS.NewMail")
oMail.To = ("minadress@domän.se")
oMail.From = ("bestallning@domän.se")
oMail.Subject = "Kundärende: " & strtjanst
oMail.MailFormat = 0
oMail.BodyFormat = 1
oMail.Body = sMailBody
oMail.Send
set oMail = Nothing
'Bekr. brev
set oMail = server.CreateObject("CDONTS.NewMail")
oMail.To = strepost
oMail.Body = "Tack för ditt mail!"
oMail.Subject = "Någon rubrik"
oMail.Send
Set oMail = Nothing
Response.Redirect "test_form.html"
%>
Tusen tack, men jag undrar när bekräftelsemailet kommer:)
Får inget mail:(
Och nu tar vi helg får fortsätta på måndag.
Nu är det måndag:) Behöver hjälp med bekräftelsemailet.
får du något mail? Vilket av dom? Har du angett en rätt e-post i ditt formulär?
Ser felet nu.. du har ingen:
oMail.From = ("bestallning@domän.se")
i
'Bekr. brev
set oMail = server.CreateObject("CDONTS.NewMail")
oMail.To = strepost
[b]oMail.From = ("bestallning@domän.se")[/b]
oMail.Body = "Tack för ditt mail!"
oMail.Subject = "Någon rubrik"
oMail.Send
Set oMail = Nothing
Lägg in den efter oMail.To
Det mailet jag får är det som fylls i, något bekräftelse mail får jag inte. Och det är rätt epostadress.
läs mitt inlägg ovan. ändrade lite.
Så här ser min kod ut:
set oMail = server.CreateObject("CDONTS.NewMail")
oMail.To = ("info@domän.se")
oMail.To = strepost
oMail.From = ("bestallning@domän.se")
oMail.Body = "Tack för ditt mail!"
oMail.Subject = "Någon rubrik"
oMail.Send
Set oMail = Nothing
Jag får bara ett bekräftelse mail, ingen beställning.
Jag ger nog snart upp, vet inte vad du gör eller hur det görs. Vet inte om du ta bort koder eller vad som händer men enligt denna kod nedan ska det fungera som du vill:
<%
Option Explicit
Dim strtjanst, strnamn, strkundnummer, strtelefon, strmobil, strepost, strmedelande, sMailBody, oMail
strtjanst = Request.Form("tjanst")
strnamn = Request.Form("namn")
strkundnummer = Request.Form("kundnummer")
strtelefon = Request.Form("telefon")
strmobil = Request.Form("mobil")
strepost = Request.Form("epost")
strmedelande = Request.Form("medelande")
'SKICKA MEDDELANDE
sMailBody = "Beställning ifylld " & Now() & vbCrLf
sMailBody = sMailBody & vbCrLf
sMailBody = sMailBody & "Tjänst: " & strtjanst & vbCrLf
sMailBody = sMailBody & "Namn: " & strnamn & vbCrLf
sMailBody = sMailBody & "Kundnummer: " & strkundnummer & vbCrLf
sMailBody = sMailBody & "Telefon: " & strtelefon & vbCrLf
sMailBody = sMailBody & "Mobil: " & strmobil & vbCrLf
sMailBody = sMailBody & "E-post: " & strepost & vbCrLf
sMailBody = sMailBody & "Medelande: " & strmedelande & vbCrLf & vbCrLf
set oMail = server.CreateObject("CDONTS.NewMail")
oMail.To = ("minadress@domän.se")
oMail.From = ("bestallning@domän.se")
oMail.Subject = "Kundärende: " & strtjanst
oMail.MailFormat = 0
oMail.BodyFormat = 1
oMail.Body = sMailBody
oMail.Send
set oMail = Nothing
'Bekr. brev
set oMail = server.CreateObject("CDONTS.NewMail")
oMail.To = strepost
oMail.From = ("bestallning@domän.se") ' Ange en riktig E-post.
oMail.MailFormat = 0
oMail.BodyFormat = 1
oMail.Subject = "Någon rubrik"
oMail.Body = "Tack för ditt mail!"
oMail.Send
Set oMail = Nothing
Response.Redirect "test_form.html"
%>
Nu fungerar det:) Tusen tack alla som har hjälpt till.
Markera gärna det lösningsförslag som löste ditt problem så att andra hittar lösningar snabbare.
Hela koden att klippa och klistra
Jag hade samma problem jag... letade runt på hela internet och "samlade" på mig olika koder från olika sidor och testade mig fram tills det äntligen fungerade. Så då valde jag att publicera hela koden med förklaring om hur man gör för att kunna hjälpa någon annan stackare med samma problem. http://hem.bredband.net/chrille1977/Scripting/cdonts.htm har jag hela koden från formulär till asp sidan. Där CDONTS skickar ett oformatterat mail till mig och ett HTML mail som autosvar till användaren/besökaren/kunden.
Hoppas att det hjälper.