Maila registreringsuppgifter med jmail

3 svar · 252 visningar · startad av emil 1 maj 2001

emilMedlem sedan apr. 2000106 inlägg

Frågan1 maj 2001 14:44#1

Har skapat en sida där folk kan registrera sig på mina sidor. All information lagras i en databas men jag vill att jmail skall skicka ut ett välkomstmail med typ valt användarnamn och lösenord osv.
Är helt ny med jmail och har kolla lite exempel men inte fått nån ordning på det riktigt.
Jag har en signup.asp med formulär där man fyller i sin information och sen signupadd.asp där den lagrar informationen i databasen.
signupadd.asp hämtar infon genom
Request.Form("Username"), Request.Form("Mail osv...")

Hur ska jag göra om jag vill tex att den skall maila ett mail till användarens mail med användarnamnet?

Hoppas någon förstår vad jag menar och kan hjälpa mig.

Mvh Emil

eManMedlem sedan sep. 2000232 inlägg

1 maj 2001 15:40#2

Kolla in tillverkarens sida, där finns mycket bra exempel och en heltäckande referens över funktionerna: http://tech.dimac.net/

------------------
Det känns skönt att veta att vissa saker helt enkelt inte går att förklara med sunt förnuft.

emilMedlem sedan apr. 2000106 inlägg

2 maj 2001 05:56#3

Jo jag har kollat deras sida. Mitt problem ligger visst snarare i att få ut uppgifterna till Jmail än att förstå själva Jmail.
Jag har en signup.asp där man registrerar sig sen en signup.add.asp där själva datan läggs in i databasen. I denna skulle jag gärna vilja ha Jmail inkluderat så den hämtar ut tex Username osv och mailar det.

Signup.add.asp

<%
for each item in Request.Form
Session(item) = Request.Form(item)
next

if Request.Form("Username") <> "" AND Request.Form("Password") <> "" AND Request.Form("Mail") <> "" AND Request.Form("Realname") <> "" then

if Session("UserID") <> "" then
sql = "SELECT * FROM User WHERE UserID = "&Session("UserID")&""
rs.Open sql, conn, 3, 3
else
sql = "SELECT * FROM User"
rs.Open sql, conn, 3, 3
rs.AddNew
end if

	rs.Fields("Username") = Request.Form("Username")
	rs.Fields("Password") = Request.Form("Password")
	rs.Fields("Realname") = Request.Form("Realname")

rs.Fields("klass") = Request.Form("klass")
rs.Fields("dricker") = Request.Form("dricker")
rs.Fields("skola") = Request.Form("skola")
rs.Fields("sport") = Request.Form("sport")
rs.Fields("alder") = Request.Form("alder")
rs.Fields("musik") = Request.Form("musik")
rs.Fields("url") = Request.Form("url")
rs.Fields("helg") = Request.Form("helg")
rs.Fields("Mail") = Request.Form("Mail")
rs.Fields("ICQ") = Request.Form("ICQ")
rs.Fields("CountryID") = Request.Form("CountryID")

	if Session("UserID") \<\> "" then
	else
		rs.Fields("SignUpDate") = now
		rs.Fields("SignUpIP") = Request.ServerVariables("REMOTE_ADDR")
	end if

rs.update
rs.Close

Response.Redirect("default.asp")

else
Session("Error") = "You have to fill out: Username, Password, Name and Mail."
Response.Redirect("signup.asp")
end if
%>

Skulle liksom här vilja lägga in Jmail koden så den kan maila iväg det.
Dock har jag inte riktigt fått ordning påhur jag skall få värdena till jmail. Testade med <% = rs(Username) %> tex, då får man ut värdet om man väljer att skriva ut det på sidan men Jmail gillar inte om man försöker skriva in ett värde så för att maila det.

Någon som förstår och kan hjälpa mig? Tror inte det e så svårt, bara jag som är nybörjare =)

Mvh EMil

eManMedlem sedan sep. 2000232 inlägg

2 maj 2001 21:04#4

Hur din kod skall se ut beror lite på vilken version av jmail som är installerad. Här nedan följer ett exempel som funkar på version 3.x, sätt in koden efter rs.close. Om du har en nyare komponent installerad så kan du kolla vad som skiljer på tillverkarens hemsida. Observera att vissa webbhotell har restriktioner som gör att man inte kan skicka till andra adresser än till såna som ligger på din egen mailserver.

Body = "Hej " & Request.Form("RealName") & "!" & vbCrLf _
& "H&auml;r kommer dina uppgifter:" & vbCrLf _
& "Anv&auml;ndarnamn: " & Request.Form("Username") & vbCrLf _
& "L&ouml;senord: " & Request.Form("Password")
Mail = Request.Form("Mail")

Set msg = Server.CreateObject("JMail.SMTPMail") 
msg.ServerAddress = "dinmailserver.se" 

msg.Sender = "din@epost.se"
msg.AddRecipient Mail
msg.Subject = "Dina medlemsuppgifter"
msg.body = Body
msg.Execute
IF NOT msg.Execute THEN
 Response.write "Ett fel uppstod med att skicka dina uppgifter, kontakta webmaster"
ELSE
 Response.write "Dina inloggningsuppgifter har skickats till dig"
END IF
%>

------------------
Det känns skönt att veta att vissa saker helt enkelt inte går att förklara med sunt förnuft.