Jmail - hvordan får jeg html kode ind i den..

Du sætter:
msg.ContentType = "text/html"

Herefter skriver du bare HTMLen ind, som var det en hvilkensomhelst Hjemmeside du arbejede med.

--
Jonas

kan du give et eksempel :-)

Nu bruger du VBScript, hvilket jeg ikke selv gør (I'm a JScript guy), men jeg prøver:

<%
    Dim Body
    Set = "<body bgcolor=#FF5555>Dette er <b>html</b> indhold</body>"

      Dim msg
    set msg = Server.CreateObject("Jmail.Message")
    msg.Logging = true
    msg.From = Request.Form("email")

    msg.AddRecipient Request.Form("email")
    msg.AddRecipientbcc "pk@minmail.dk"

    msg.Subject = "Økonomi pakke bestilling fra " & Request.Form("firma")
    msg.Body = Body

    msg.ContentType = "text/html"

    msg.Send ("pasmtp.tele.dk")

    IF err<>0 THEN
        Response.Write("Error: &err.description")
    End IF

%>

Der kan ikke tages højde for eventuelle syntaksfejl jeg har lavet - jeg har aldrig skrevet noget i det :)

--
Jonas

Første rettelse:
Dim Body
Set Body = "<body bgcolor=#FF5555>Dette er <b>html</b> indhold</body>"

men hvad er Jscript ? sorry men det kender jeg ikke til er det bedre... jeg har bare lavet det her fra en side som jeg ikke kan finde igen...

Man kan formulere sine APS sider i sprog: VBScript og JavaScript.

Det er bare et spørgsmål om, hvad man bedst kan li'. Det mest normale er VBScript - jeg er på tværs, og gør det i JavaScript.

--
Jonas

he he det går helt galt siden kan ikke vises... ved du hvor på nettet der er noget godt eller kan du lavet det til mig i JScript?

Mon ikke der kommer en venlig sjæl forbi, som kan formulere det i VBScript i stedet :)

Afvis iøvrigt lige mit svar så ;)

--
Jonas

Du kan tage udgangspkt i denne her ;-)
<%
dim body

body = "<body bgcolor='#eeeeee'>"
body = body & "<table width='750' bgcolor='#666666'>"
body = body & "<tr><td valign='middle'>"
body = body & "<table width='100%' bgcolor='#FFFFFF' height='50'>"
body = body & "<tr><td valign='top'>"
body = body & "<table border='0' width='90%' align='center'>"
body = body & "<tr><td> </td></tr>"
body = body & "<tr><td>"
body = body & "<font face='tahoma' size='2' color='#000000'>"
body = body & "<strong>Din overskrift! </strong><br>"
body = body & "Din tekst"
body = body & "</font>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</body>"


Send_html_Mail "AFsender", "din@email.dk", "modtagers@email.dk", "Her skriver du subject", body, 3

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

on error resume next

  Set jmail = Server.CreateObject("JMail.Message")
  jmail.Clear()
  jmail.AddRecipient to_email, to_email
  jmail.From = from_email
  jmail.FromName = from_name
  '1 = High
  '3 = Normal
  '4 = Low
  jmail.priority = importance
  jmail.Subject = subject
 
  'Til dem der ikke har mulighed for at læse HTML mails, skriver vi lige en lille besked
  jmail.Body = "Du har desværre IKKE mulighed for at læse denne HTML email."
  jmail.HTMLBody = body
  jmail.Send "din_mail_server"
  set JMail = nothing

end function


%>

tak for kaffe den prøver jeg imorgen

den kan jeg så ikke få til at virke.. den sender ikke noget... og jeg har lavet mail server til pasmtp.tele.dk

hjælp

Det forstår jeg ikke! Virker perfekt hos mig..... ;-(

Send_html_Mail "AFsender", "din@email.dk", "modtagers@email.dk", "Her skriver du subject", body, 3


det er her jeg skriver min mail, så jeg får den ik ?

Du kommer nok til at erstatte din@email.dk med din egen email, samt modtagers@email.dk med modtagerens email adresse.

--
Jonas

yes det er jeg med på det har jeg også gjort.. dvs modtager mail skal jeg lige have sat ind... :-) via denne her Request.Form("email") og det kan jeg så ikke lige finde ud af ?

Jeg tror du skulle overveje at sætte dig ind i, hvordan VBScript hænger sammen :)

--
Jonas

Send_html_Mail "" & request.form("recipient")  & "", "" & request.form("recipient") & "", "" & request.form("recipient") & "", "Dintekst!!", body, 3

hej jonas det er jo det jeg prøver på :-))))

Så gik det lidt hurtigt....

Send_html_Mail "" & request.form("Afsender")  & "", "" & request.form("Afsender_mail") & "", "" & request.form("Modtager_mail") & "", "Bestilling på salgsnet.dk!!", body, 3

nu ser min kode sådan ud og jeg få ikke en mail.. :-(

<%
dim body

body = "<body bgcolor='#eeeeee'>"
body = body & "<table width='750' bgcolor='#666666'>"
body = body & "<tr><td valign='middle'>"
body = body & "<table width='100%' bgcolor='#FFFFFF' height='50'>"
body = body & "<tr><td valign='top'>"
body = body & "<table border='0' width='90%' align='center'>"
body = body & "<tr><td> </td></tr>"
body = body & "<tr><td>"
body = body & "<font face='tahoma' size='2' color='#000000'>"
body = body & "<strong>Din overskrift! </strong><br>"
body = body & "Din tekst"
body = body & "</font>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</body>"


Send_html_Mail "" & request.form("Shara Young")  & "", "" & request.form("pk@minmail.dk") & "", "" & request.form("email") & "", "Bestilling på salgsnet.dk!!", body, 3

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

on error resume next

  Set jmail = Server.CreateObject("JMail.Message")
  jmail.Clear()
  jmail.AddRecipient to_email, to_email
  jmail.From = from_email
  jmail.FromName = from_name
  '1 = High
  '3 = Normal
  '4 = Low
  jmail.priority = importance
  jmail.Subject = subject
 
  'Til dem der ikke har mulighed for at læse HTML mails, skriver vi lige en lille besked
  jmail.Body = "Du har desværre IKKE mulighed for at læse denne HTML email."
  jmail.HTMLBody = body
  jmail.Send "pasmtp.tele.dk"
  set JMail = nothing

end function


%>

Hallo igen!

Er du sikker på¨, at du har en adr. indhold i feltet fra formularen??

Har du et felt i din form der hedder Shara Young ? 
Har du et felt i din form der hedder pk@minmail.dk ?
Har du et felt i din form der hedder email ?

Er der indhold i ?
Du kan checke med response.write request.form("email")
osv

Jeg har lige afprøvet nøjagtigt nedenstående på mit webhotel og det virker!!!!

<%
dim body

body = "<body bgcolor='#eeeeee'>"
body = body & "<table width='750' bgcolor='#666666'>"
body = body & "<tr><td valign='middle'>"
body = body & "<table width='100%' bgcolor='#FFFFFF' height='50'>"
body = body & "<tr><td valign='top'>"
body = body & "<table border='0' width='90%' align='center'>"
body = body & "<tr><td> </td></tr>"
body = body & "<tr><td>"
body = body & "<font face='tahoma' size='2' color='#000000'>"
body = body & "<strong>Din overskrift! </strong><br>"
body = body & "Din tekst"
body = body & "</font>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</body>"


Send_html_Mail "Shara Young", "sarah@young.com", "preben@aof-data.dk", "Bestilling på salgsnet.dk!!", body, 3

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

on error resume next

  Set jmail = Server.CreateObject("JMail.Message")
  jmail.Clear()
  jmail.AddRecipient to_email, to_email
  jmail.From = from_email
  jmail.FromName = from_name
  '1 = High
  '3 = Normal
  '4 = Low
  jmail.priority = importance
  jmail.Subject = subject
 
  'Til dem der ikke har mulighed for at læse HTML mails, skriver vi lige en lille besked
  jmail.Body = "Du har desværre IKKE mulighed for at læse denne HTML email."
  jmail.HTMLBody = body
  jmail.Send "pasmtp.tele.dk"
  set JMail = nothing

end function


%>

nu er den der...... vent lige to sek :-)

men jeg kan ikke helt finde ud af hvor jeg skal sætte min egen mail adr. ind.. så jeg også får mailen .. ? nu får jeg den ikke men den der udfylder får den..

<%
dim body

body = "<body bgcolor='#eeeeee'>"
body = body & "<table width='750' bgcolor='#666666'>"
body = body & "<tr><td valign='middle'>"
body = body & "<table width='100%' bgcolor='#FFFFFF' height='50'>"
body = body & "<tr><td valign='top'>"
body = body & "<table border='0' width='90%' align='center'>"
body = body & "<tr><td> </td></tr>"
body = body & "<tr><td>"
body = body & "<font face='tahoma' size='2' color='#000000'>"
body = body & "<strong>Din overskrift! </strong><br>"
body = body & "Din tekst"
body = body & "</font>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</body>"


Send_html_Mail "Shara Young", "pk@minmail.dk","" & request.form("email") & "",  "Bestilling på salgsnet.dk!!", body, 3

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

on error resume next

  Set jmail = Server.CreateObject("JMail.Message")
  jmail.Clear()
  jmail.AddRecipient to_email, to_email
  jmail.From = from_email
  jmail.FromName = from_name
  '1 = High
  '3 = Normal
  '4 = Low
  jmail.priority = importance
  jmail.Subject = subject
 
  'Til dem der ikke har mulighed for at læse HTML mails, skriver vi lige en lille besked
  jmail.Body = "Du har desværre IKKE mulighed for at læse denne HTML email."
  jmail.HTMLBody = body
  jmail.Send "pasmtp.tele.dk"
  set JMail = nothing

end function


%>

jeg har et felt der hedder "firma" hvordan får jeg det op i min tabel ?

sætter f.eks. flg. ind på rette plads

body = body & "Firma: " & Request.form("firma")&"<br>"

godt det virker... men jeg får stadig ikke mailen selv ? det er kun kunden der modtager den .....

jmail.AddRecipient to_email, from_email

jmail.AddRecipient pk@minmail.dk, from_email

det virker ikke ? hvordan skal jeg skrive det ?

nøjagtig sådan her:
jmail.AddRecipient to_email, from_email

tingene er jo defineret her
Send_html_Mail "Shara Young", "pk@minmail.dk","" & request.form("email") & "",  "Bestilling på salgsnet.dk!!", body, 3

og tildelt navn  her:

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

altså
Shara Young = from_name

ok det virker så ikke helt for mig sorry..  jeg får den ikke men kunden gør ?

er koden ikke rigtig ?

<%
dim body

body = "<body bgcolor='#EEF0F4'>"
body = body & "<table width='750' bgcolor='#666666'>"
body = body & "<tr><td valign='middle'>"
body = body & "<table width='100%' bgcolor='#FFFFFF' height='50'>"
body = body & "<tr><td valign='top'>"
body = body & "<table border='0' width='90%' align='center'>"
body = body & "<tr><td> </td></tr>"
body = body & "<tr><td>"
body = body & "<font face='tahoma' size='2' color='#000000'>"
body = body & "<strong>Din overskrift! </strong><br>"
body = body & "Din tekst"
body = body & "Firma: " & Request.form("firma")&"<br>"
body = body & "</font>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</td></tr>"
body = body & "</table>"
body = body & "</body>"


Send_html_Mail "Shara Young", "pk@minmail.dk","" & request.form("email") & "",  "Bestilling af Økonomi pakken.", body, 3

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

on error resume next

  Set jmail = Server.CreateObject("JMail.Message")
  jmail.Clear()
  jmail.AddRecipient to_email, from_email
  jmail.From = from_email
  jmail.FromName = from_name
  '1 = High
  '3 = Normal
  '4 = Low
  jmail.priority = importance
  jmail.Subject = subject
 
  'Til dem der ikke har mulighed for at læse HTML mails, skriver vi lige en lille besked
  jmail.Body = "Du har desværre IKKE mulighed for at læse denne HTML email."
  jmail.HTMLBody = body
  jmail.Send "pasmtp.tele.dk"
  set JMail = nothing

end function


%>

OK Koden ser ok ud ! Jeg har ikke mere tid i dag men du kan sætte følgende ind efter:
end function

Send_html_Mail "" & request.form("email") & "","" & request.form("email") & "","pk@minmail.dk",  "Bestilling af Økonomi pakken.", body, 3

function Send_html_Mail(from_name, from_email, to_email, subject, body, importance)

on error resume next

  Set jmail = Server.CreateObject("JMail.Message")
  jmail.Clear()
  jmail.AddRecipient to_email, from_email
  jmail.From = from_email
  jmail.FromName = from_name
  '1 = High
  '3 = Normal
  '4 = Low
  jmail.priority = importance
  jmail.Subject = subject
 
  'Til dem der ikke har mulighed for at læse HTML mails, skriver vi lige en lille besked
  jmail.Body = "Du har desværre IKKE mulighed for at læse denne HTML email."
  jmail.HTMLBody = body
  jmail.Send "pasmtp.tele.dk"
  set JMail = nothing

end function


så sender den mailen i to omgange....
Det er naturligvis en nødløsning - men den virker ;-)

jeg fandt selv fejlen.. super mange tak for hjælpe......