CDONTS bekräftelse mail funkar inte

51 svar · 1 556 visningar · startad av stekarn 4 jan. 2008 · sida 2 av 3

Frågan, av stekarn 4 jan. 2008

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 →

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 09:50#21

OCh så använder jag din asp kod i skicka_epost.asp?

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 09:51#22

stekarn skrev:

OCh så använder jag din asp kod i skicka_epost.asp?

Ja.

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 09:55#23

Fungerar inte:( Får inget felmedeland, får bara upp en vit sida.

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 09:57#24

Kan ju vara så att det fungera?
Du får ju skriva något i stil med (efter %> i slutet)
Tack för ditt mail!

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 09:59#25

Efter några minuter fick jag ett mail från formuläret skumt, fast när jag har fyllt i det så kommer jag till en vit sida. Men jag vill att den som fyller i formuläret ska få ett bekräftelse mail.

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 10:01#26

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
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 = ("minmail@domän.se")
oMail.From = ("minmail@domän.se")
oMail.Subject = "Kundärende: " & strtjanst
oMail.MailFormat = 0
oMail.BodyFormat = 1
oMail.Body = sMailBody
oMail.Send
oMail.To = strepost
oMail.Send
Response.Write "Tack För ditt Mail!"
set oMail = Nothing
%>

Din ASP fil (skicka_mail.asp).


<form action="skicka_epost.asp" method="post">
tjanst: <input type="text" name="tjanst"><br>
namn: <input type="text" name="namn"><br>
kundnummer: <input type="text" name="kundnummer"><br>
telefon: <input type="text" name="telefon"><br>
mobil: <input type="text" name="mobil"><br>
epost: <input type="text" name="epost"><br>
medelande: <input type="text" name="medelande"><br>
<input type="submit">
</form>

Spara den som bob.html

gå till bob.html (http://dinsida.com/bob.html) Fyll i dina uppgifter. Se "Tack för ditt Mail!".. Vänta lite.. du får inte mailet direkt när du trycker på submit. kan ta tid beroende på server / Pop3 / mail klient.

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 13:16#27

Har du något förslag?

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 13:32#28

stekarn skrev:

Har du något förslag?

På? Jag har en massa förslag men jag vet inte riktigt vad du gör eller hur du gör det. Du skriver att du inte är en "programmerare" vet inte vad du gör eller hur du gör det när du får "dina fel". Sök på wF, googla, ladda ner färdig kod (men de koder jag redan har skickat) bör fungera för dig.

"Det fungera inte" -> Vad gör du för att det inte fungera? Fyller du i den, är du på en Server som har ASP. Du ger inte så mycket info tyvärr på vad du gör eller har gjort. Ligger sidan uppe på nätet för oss att besöka och testa?

Första google sökningen gav mig: http://www.pellesoft.se/area/articles/article.aspx?artid=783 läs den.

@ndersMedlem sedan juni 200032 967 inlägg

4 jan. 2008 13:48#29

stekarn skrev:

Har du något förslag?

Öööh...

http://support.microsoft.com/kb/555375

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 14:02#30

Har gjort två sidor:

test_forum.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<form action="skicka_epost.asp" method="post">
tjanst: <input type="text" name="tjanst"><br>
namn: <input type="text" name="namn"><br>
kundnummer: <input type="text" name="kundnummer"><br>
telefon: <input type="text" name="telefon"><br>
mobil: <input type="text" name="mobil"><br>
epost: <input type="text" name="epost"><br>
medelande: <input type="text" name="medelande"><br>
<input type="submit">
</form>
</body>
</html>

skicka_epost.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
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 = ("min_mail@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
oMail.To = strepost
oMail.Send
set oMail = Nothing
%>

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 14:03#31

Jag får bara en blank sida när jag fyller i formuläret. Men jag får ett mail med formulär svaren. Men användaren får inget mail.

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 14:04#32

använd gärna [kod] taggar på kod... Och sen? har du skapat det och .... Detta kommer ta en evighet att hjälpa dig. Har du provat att lägga upp båda filerna till din server, kört test_forum.html?

I din "skicka_epost.asp" Som jag skrev på mina två senare inlägg lägg till någon text efter %>
"Tack för ditt mail"... och även länken jag skickade tidiagre. Får du detta?

1. Vad är det för epost... Jag vet att Hotmail adresser + CDONTS inte alltid gillar varandra.
2. Skriv din fråga i samma inlägg. Du behöver inte skapa två inlägg för 1 fråga.

stekarn skrev:

Jag får bara en blank sida när jag fyller i formuläret.

Som tidiagre. skicka_epost.asp har ju ingen HTML text. Så den kommer ju att bli blank. Vad händer om du exempelvis "Visa källa" på den?

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 14:22#33

test_form.html

<form action="skicka_epost.asp" method="post">
tjanst: <input type="text" name="tjanst"><br>
namn: <input type="text" name="namn"><br>
kundnummer: <input type="text" name="kundnummer"><br>
telefon: <input type="text" name="telefon"><br>
mobil: <input type="text" name="mobil"><br>
epost: <input type="text" name="epost"><br>
medelande: <input type="text" name="medelande"><br>
<input type="submit">
</form>

skicka_epost.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
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
oMail.To = strepost
oMail.Send
Response.Write "Tack För ditt Mail!"
set oMail = Nothing
%>

Kommer till en sida med 500 fel

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 14:25#34

för att du tog bort %> i slutet... Skriv gärna vad det är för 500 fel. Går att aktivera på din webbläsare "Show friendly message"

Du redigerade ditt inlägg:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
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
oMail.To = strepost
oMail.Send
Response.Write "Tack För ditt Mail!"
set oMail = Nothing
%>

mellan language och Option Explicit så hade du inte öppnat <%

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 14:33#35

Jag har svenska explorer, ställde in visa medelande för alla scriptfel.

Har kopierat din kod men det funkar inte:(

Nu fick jag ett felmedelande:

Active Server Pages error 'ASP 0221' 

Invalid @ Command directive 

/asp/skicka_epost.asp, line 2 

No further information is available. (Error description is too long; please check for missing end delimiters, such as '%>'.)

Skrev detta i toppen:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>

<%

Men nu får jag fel på rad
error '80040108'
/asp/skicka_epost.asp, line 35

och där ligger denna kod

oMail.To = strepost

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 14:37#36

ta bort "@LANGUAGE="VBSCRIPT" CODEPAGE="1252""

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 14:43#37

Nu fick jag ett mail, där formuläret är i fyllt:) Men vill ju inte att man ska komma till en sida när man har fyllt i formuläret, samt ett bekräftelse mail.

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 14:54#38

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
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 = strepost
oMail.Bcc = ("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
Response.Redirect "test_form.html"
%>

stekarnMedlem sedan jan. 200342 inlägg

4 jan. 2008 15:12#39

Nu funkar det och man kommer tillbaka till formuläret. Men nu vill jag även ha ett bekräftelsemail som säger att tack för ditt mail.

voigtann1Medlem sedan juni 20019 519 inlägg

4 jan. 2008 15:22#40

stekarn skrev:

Nu funkar det och man kommer tillbaka till formuläret. Men nu vill jag även ha ett bekräftelsemail som säger att tack för ditt mail.

Trodde du kunde Klippa och klistra lite själv... men:

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
[b]oMail.To = strepost
oMail.Body = "Tack för ditt mail!"
oMail.Subject
oMail.Send[/b]
set oMail = Nothing
Response.Redirect "test_form.html"
%>

Det tjocka texten i koden är vad som är nytt.. + ändrade första oMail.to och tog bort Bcc