Avatar billede petras Nybegynder
02. oktober 2003 - 18:22 Der er 5 kommentarer og
1 løsning

Tilmeld service, skriv til database og send mail vha. JMAIL

Har en tabel i en database med navnet emailservice.
Nu vil jeg gerne have at man kan tilmelde sig en service på min hjemmeside og få skrevet sin email i databasen og samtidig få sendt en email med information om hvordan man bruger systemet.
Findes der en forklaring på alt dette ? Synes ikke jeg kan se på JMAIL supportsider hvorledes jeg bruger databasen i mailen. Vil eks. gerne skrive i den mail der bliver sendt "Du har nu tilmeldt dig lektieservicen med denne mail maileksempel@mail.dk. Hvis du ønsker at afmelde servicen besøg dette link....."
Glæder mig til at høre fra jer
Avatar billede netro Nybegynder
02. oktober 2003 - 18:45 #1
Du laver først dit databaseudtræk. F.eks.:

Set rs = Conn.Execute("Select Brugernavn, Email From Tabel")

Herefter kan du bruge oplysningerne fra recordsættet:

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.SenderName = "Afsenders navn"
JMail.Sender = "afsender@domaene.dk"
JMail.AddRecipientEx rs("Email"), rs("Brugernavn")
JMail.Subject = "Vejledning"
JMail.Body = "Sådan bruger du systemet. Bla bla bla..."

'Mailserver
JMail.ServerAddress = "mail.domaene.dk"

JMail.Execute

JMail.Close
Set JMail = Nothing
Avatar billede petras Nybegynder
02. oktober 2003 - 21:19 #2
Har lavet en forbindelse med Dreamweaver - kan det bruges ?

<%
Dim rstest
Dim rstest_numRows

Set rstest = Server.CreateObject("ADODB.Recordset")
rstest.ActiveConnection = MM_connskolehjem_STRING
rstest.Source = "SELECT mailadresse FROM tb_tilmeldinglektie"
rstest.CursorType = 0
rstest.CursorLocation = 2
rstest.LockType = 1
rstest.Open()

rstest_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.SenderName = "Peter Rasmussen"
JMail.Sender = "xx@xx.dk"
JMail.AddRecipientEx rstest("mailadresse")
JMail.Subject = "Vejledning"
JMail.Body = "Sådan bruger du systemet. Bla bla bla..."
'Mailserver
JMail.ServerAddress = "xxx.zzz.dk"
JMail.Execute
JMail.Close
Set JMail = Nothing
%>
</body>
</html>
<%
rstest.Close()
Set rstest = Nothing
%>
Avatar billede netro Nybegynder
02. oktober 2003 - 21:27 #3
Det ser fint ud. Giver den da fejl?
Avatar billede petras Nybegynder
03. oktober 2003 - 08:53 #4
Ja - den giver nedenstående fejl...

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'AddRecipientEx'
Avatar billede netro Nybegynder
03. oktober 2003 - 13:45 #5
Ahh... ja, du skal også skrive et navn der. Men hvis der ikke er noget, kan du bare efterlade det blankt eller indsætte mail-adressen i stedet.

JMail.AddRecipientEx rstest("mailadresse"), ""

- eller:

JMail.AddRecipientEx rstest("mailadresse"), rstest("mailadresse")
Avatar billede petras Nybegynder
19. januar 2004 - 16:49 #6
sadf asf asfd
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester