Avatar billede rasmus55 Nybegynder
20. maj 1999 - 14:03 Der er 16 kommentarer og
1 løsning

Hvordan putter man text i bodyen i Jmail ??

Emailen kommer frem, men uden texten til bodyen. Som I kan se har jeg prøvet et par muligheder af, men uden held indtil videre.

/Rasmus

<%
Email = Request("Email")
Response.write Email

Set DB = Server.CreateObject("adodb.connection")
DBpath = "DBQ=" & Server.MapPath("/lukket/UserRettelser/rettedeusers.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBpath

SQL = "SELECT * FROM Users WHERE email = ''" & Email & "''"
''Response.write SQL
Set RS = DB.Execute(SQL)

Brugernavn = Request("Brugernavn")
Adgangskode = Request("Adgangskode")

Response.write RS("ID")
Response.write RS("Brugernavn")
Response.write RS("Adgangskode")

Brugernavn = Request("Brugernavn")
Response.write "sendedelen!!!!: " & RS("Brugernavn")
''Response.write

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.medicus.dk"

JMail.Sendername = "Medicus"

Response.write "sendedelen nr2!!!!: " & RS("Brugernavn")

JMail.Sender = "medicus@medicus.dk"

JMail.Subject = "Info you requested..."

Brugernavn = Request("Brugernavn")

JMail.AddRecipient Request.form("Email")

Response.write RS("Brugernavn")

JMail.Body = "Her er dit kodeord og brugernavn!!!: " & RS("Brugernavn")

JMail.Body = "Her er dit kodeord og brugernavn!!!: "

JMail.AppendText "Have a nice day!"

JMail.AddRecipient Request.Form("Brugernavn")

JMail.Body = Request.form("Brugernavn") & vbcrlf

JMail.Priority = 2

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.Execute

RS.Close

DB.Close

%>
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 14:06 #1
jeg skal måske lige indskyde at de andre dele (afsender, titel, osv.) kommer frem i mailen.
/Rasmus
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 15:06 #2
Er det for nemt et spørgsmål, eller for få ponit...?

svar, bare en eller anden 8-)
/Rasmus
Avatar billede long Nybegynder
20. maj 1999 - 15:08 #3
Mit gæt er at Body'en i mailen ser således ud:
Her er dit kodeord og brugernavn!!!:
Have a nice day!

Hvor du gerne vil have det til at være:
Her er dit kodeord og brugernavn!!!: <Brugernavn>
Have a nice day!

Dette gøres ved at slette # 2 af dine:
    JMail.Body = "Her er dit kodeord og brugernavn!!!: "
således at du kun har:
    JMail.Body = "Her er dit kodeord og brugernavn!!!: " & RS("Brugernavn")
Avatar billede long Nybegynder
20. maj 1999 - 15:11 #4
ellers kig her: http://tech.dimac.net/
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 15:11 #5
nej, bodyen er ganske enkelt helt blank, ingen af forsøgene med body virker !!
/Rasmus
Avatar billede websharx Nybegynder
20. maj 1999 - 15:28 #6
Skriv

JMail.Body = JMail.Body & "Her er dit .... " & RS("Brugernavn") & vbcrl
JMail.Body = JMail.Body & "Noget andet." &vbrcl



"& vbcrlf" laver linieskift i din body - meget praktisk :)

FUCK Det er det VILDESTE solskinsvejr!! :))))))
Avatar billede websharx Nybegynder
20. maj 1999 - 15:33 #7
det ER altså vbcrlf .. (visual basic char. return line feed) .. mine fingre er allerede smuttet ned på Nyhavnen og holder om en Tuborg ..... =)
Avatar billede long Nybegynder
20. maj 1999 - 15:33 #8
= super dejlige tøser i sommerkjoler  :))))))))))))))
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 15:37 #9
der er altså nogen af os der arbejder
8-)

/Rasmus

PS. Tak for alt, intet virker keep it coming !
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 15:42 #10
Så for satan !!!
Det virker sgu, her er den fungerende kode, til folket !
Eksperten længe leve.

<%@ Language=VBScript %>

<%
Email = Request("Email")
Response.write Email

Set DB = Server.CreateObject("adodb.connection")
DBpath = "DBQ=" & Server.MapPath("/lukket/UserRettelser/rettedeusers.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBpath

SQL = "SELECT * FROM Users WHERE email = '" & Email & "'"
Response.write SQL
Set RS = DB.Execute(SQL)

Brugernavn = Request("Brugernavn")
Adgangskode = Request("Adgangskode")

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.medicus.dk"
JMail.Sendername = "Medicus"
JMail.Sender = "medicus@medicus.dk"
JMail.Subject = "Info you requested..."

JMail.AddRecipient Request.form("Email")

JMail.Body = JMail.Body & "Her er dit .... " & RS("Brugernavn") & vbcrlf
JMail.Body = JMail.Body & "Noget andet." & vbcrlf

JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
RS.Close
DB.Close

%>
/Rasmus
Avatar billede websharx Nybegynder
20. maj 1999 - 15:46 #11
Kewlios :)
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 17:26 #12
acce
Avatar billede rasmus55 Nybegynder
20. maj 1999 - 17:27 #13
jeg kan "#!"?! ikke acceptere svaret....
Avatar billede websharx Nybegynder
20. maj 1999 - 17:38 #14
Afvis det første?

DAMN! Nu er klokken allerede blevet tyve i seks! *Hulk* Jeg vil ud slikke den ONDE solskin!
Avatar billede rasmus55 Nybegynder
21. maj 1999 - 14:02 #15
afviser svar...
Avatar billede websharx Nybegynder
21. maj 1999 - 20:13 #16
2 + 2 er .. er .. eh .. damn it =)
Avatar billede rasmus55 Nybegynder
02. august 1999 - 15:22 #17
hæhæ
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