hjælp til Jmail.

JMail.Logging = True
JMail.Silent = True
JMail.From = "DIN MAIL"  ' Her kan du f.eks skrive din Afsender E-mail
JMail.FromName = "DIT NAVN"  ' Her er det bare navnet
JMail.Charset = "iso-8859-1"
JMail.AddRecipient "Din mail"
JMail.Subject = "Ny bruger oprettet"
jmail.HTMLBody = "Med"
jmail.appendHTML "HTML"

JMail.Body = "UDEN HTML"

if not JMail.Send("DIN MAIL SERVER" ) then
    Response.Write "FEJL BESKED: " & JMail.ErrorMessage & "<br/>" & vbCrLf
    Response.Write "FEJL KILDE: " & JMail.ErrorSource & "<br/>" & vbCrLf
    Response.Write "FEJL LOG: <pre>" & JMail.Log & "</pre>" & vbCrLfelse
end if

Set JMail = nothing

con.Execute sql_insert
' Done. Close the connection


response.redirect "default.asp"
%>

hmmm, viser den også navn, adresse, postnr, by og email, i den email jeg modtager.

Nope. Der kan du bare rette
jmail.HTMLBody = "Med"
jmail.appendHTML "HTML"

Til
Tekst = "Navn: " & navn & "<br />"
Tekst = Tekst & "Adresse: " & Adresse & "<br />"
Tekst = Tekst & "Postnr: " & Postnr & "<br />"
Tekst = Tekst & "By: " & City & "<br />"
Telst = Tekst & "E-mail: " & email & "<br />"

jmail.HTMLBody = "Her er oplysninger"
jmail.appendHTML Tekst

hmm kan ikke få det til at virke.

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'JMail'
/web/Adpd/opretdp_ac.asp, line 32

linie 32: JMail.Logging = True



<!-- #include file="databaseforbindelse.asp" -->
<%
' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
navn = ChkString(Request.Form("navn"))
adresse = ChkString(Request.Form("adresse"))
postnr = ChkString(Request.Form("postnr"))
city = ChkString(Request.Form("city"))
tlf = ChkString(Request.Form("tlf"))
mobil = ChkString(Request.Form("mobil"))
email = ChkString(Request.Form("email"))
web = ChkString(Request.Form("web"))
sted = ChkString(Request.Form("sted"))
lp = ChkString(Request.Form("lp"))
nyd = ChkString(Request.Form("nyd"))
username = ChkString(Request.Form("username"))
passw = ChkString(Request.Form("passw"))
tekst = ChkString(Request.Form("tekst"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/adpd.mdb")
sql_insert = "INSERT INTO dpinfo (navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, username, passw, pic1, pic2, pic3, tekst, transfer) " & "VALUES ('" & navn & "','" & adresse & "','" & postnr & "','" & city & "','" & tlf & "','" & mobil & "','" & email & "','" & web & "','" & sted & "','" & lp & "','" & nyd & "','" & username & "','" & passw & "','" & Request.Form("pic1") & "','" & Request.Form("pic2") & "','" & Request.Form("pic3") & "','" & tekst & "','" & Request.Form("transfer") & "')"' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source

JMail.Logging = True
JMail.Silent = True
JMail.From = "rmo@pc.dk"  ' Her kan du f.eks skrive din Afsender E-mail
JMail.FromName = "REMO TEST"  ' Her er det bare navnet
JMail.Charset = "iso-8859-1"
JMail.AddRecipient "rmo@pc.dk"
JMail.Subject = "Ny bruger oprettet"
jmail.HTMLBody = "Her er oplysninger"
Tekst = "Navn: " & navn & "<br />"
Tekst = Tekst & "Adresse: " & Adresse & "<br />"
Tekst = Tekst & "Postnr: " & Postnr & "<br />"
Tekst = Tekst & "By: " & City & "<br />"
Telst = Tekst & "E-mail: " & email & "<br />"
jmail.appendHTML "tekst"
JMail.Body = "UDEN HTML"

if not JMail.Send("smtp.mail.dk" ) then
    Response.Write "FEJL BESKED: " & JMail.ErrorMessage & "<br/>" & vbCrLf
    Response.Write "FEJL KILDE: " & JMail.ErrorSource & "<br/>" & vbCrLf
    Response.Write "FEJL LOG: <pre>" & JMail.Log & "</pre>" & vbCrLfelse
end if

Set JMail = nothing

con.Execute sql_insert
' Done. Close the connection


response.redirect "default.asp" %>

Hov. Jeg glemte en ting:) PRØV

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

JMail.Logging = True
JMail.Silent = True
JMail.From = "rmo@pc.dk"  ' Her kan du f.eks skrive din Afsender E-mail
JMail.FromName = "REMO TEST"  ' Her er det bare navnet
JMail.Charset = "iso-8859-1"
JMail.AddRecipient "rmo@pc.dk"
JMail.Subject = "Ny bruger oprettet"
jmail.HTMLBody = "Her er oplysninger"
Tekst = "Navn: " & navn & "<br />"
Tekst = Tekst & "Adresse: " & Adresse & "<br />"
Tekst = Tekst & "Postnr: " & Postnr & "<br />"
Tekst = Tekst & "By: " & City & "<br />"
Telst = Tekst & "E-mail: " & email & "<br />"
jmail.appendHTML "tekst"
JMail.Body = "UDEN HTML"

if not JMail.Send("smtp.mail.dk" ) then
    Response.Write "FEJL BESKED: " & JMail.ErrorMessage & "<br/>" & vbCrLf
    Response.Write "FEJL KILDE: " & JMail.ErrorSource & "<br/>" & vbCrLf
    Response.Write "FEJL LOG: <pre>" & JMail.Log & "</pre>" & vbCrLfelse
end if

Set JMail = nothing

Hvad går der galt i dette script, jeg har installeret Jmail.

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6)
Objektet understøtter ikke denne egenskab eller metode: 'JMail.From'
/web/Adpd/opretdp_ac.asp, line 37

linie 37: JMail.From = "rmo@pc.dk"  ' Her kan du f.eks skrive din Afsender E-mail

visual-basic-starter>> Kan du hjælpe mig ?? ellers lukker jeg mit spørgsmål

lukker dette spørgsmål