Søg
Avatar billede kivig Nybegynder
19. januar 2006 - 11:58 Der er 22 kommentarer og
1 løsning

ASPemail layout problem!

Hejsa.

Jeg bruger ASPemail som virker fint. Dog vil jeg gerne have at den sendte email indeholder samme layout som selve html/asp-siden i stedet for bokstaver alene. Jeg går ud fra at det er i denne kode at ændringen skal ske men hvordan?

If Request("Send") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "gate1.sikkermail.nu"
  Mail.From = "email@navn.dk"
 
  Mail.AddAddress "email@navn.dk"
  Mail.Subject = "Indberetningsskema"

  body = "Indberetningsskema" & vbCrLF & vbCrLF
  body = body & "Firma :      " & Request.Form("VirksomhedensNavn") & vbCrLf
  body = body & "CVR-nr:      " & Request.Form("CVR-nr") & vbCrLf
  body = body & "Adresse:    " & Request.Form("Adresse") & vbCrLf
  body = body & "Post-nr/By:  " & Request.Form("Post-nr/By") & vbCrLf & vbCrLF
 
  body = body & "Antal Medarbejdere Ialt:  " & Request.Form("Antal_Medarbejdere_Ialt") & vbCrLf
  body = body & "Heraf Kvinder:  " & Request.Form("Heraf_Kvinder") & vbCrLf
  body = body & "Heraf Mænd:      " & Request.Form("Heraf_Mænd") & vbCrLf & vbCrLF
 
  body = body & "Dato:            " & Request.Form("Dato") & vbCrLf
  body = body & "Kontakt Person:  " & Request.Form("Kontaktperson") & vbCrLf & vbCrLF

  Mail.Body =  body


  On Error Resume Next
  Mail.Send
  If Err <> 0 Then
    Response.Write "Skemaet kunne desværre ikke sendes, prøv venligst igen.: <B>" & err.Description & "</B>"
  Else
    Response.Write "Tak! Skemaet er afsendt og modtaget."
  End If
End If
%>
Avatar billede jansangill Nybegynder
19. januar 2006 - 14:40 #1
Hvis du vil have det skal du have lavet hele din asp/html side som en variabel, ligesom du gør nu med body.Og din CSS skal self være inkluderet.
Avatar billede kivig Nybegynder
19. januar 2006 - 14:58 #2
Jeg forstår hvad du mener, men kan du give et eksempel? :)
Avatar billede jansangill Nybegynder
19. januar 2006 - 14:58 #3
<%
'variablen
body = "<html>"
body = body & "<head>"
body = body & "<title>xxx</title>"
body = body & "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">"
body = body & "<link href="xxx" rel="stylesheet" type="text/css">"
body = body & "</head>"

body = body & "<body>"
body = body & "xxx"
body = body & "</body>"
body = body & "</html>"


'mail (her jmail dog)

set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = true
msg.silent = true
msg.From = "email@navn.dk"
msg.FromName = "afsender"
msg.AddRecipient "email@navn.dk"
msg.Subject = "Indberetningsskema"
msg.HTMLBody = body
msg.Send("gate1.sikkermail.nu")
%>
Avatar billede jansangill Nybegynder
19. januar 2006 - 15:01 #4
denne linie:
body = body & "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">"


skal nok rettes til dette:
body = body & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
Avatar billede kivig Nybegynder
19. januar 2006 - 15:19 #5
umiddelbart får jeg følgende fejl:

Expected end of statement

body = body & "<link href="csskoop.css" rel="stylesheet" type="text/css">"
---------------------------^

?
Avatar billede jansangill Nybegynder
19. januar 2006 - 15:55 #6
jeg hav dig løsningen på dette lige efter mit eksempel.

denne linie:
body = body & "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">"


skal nok rettes til dette:
body = body & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"


I stedet for "" , læg mærke til disse '
Avatar billede jansangill Nybegynder
19. januar 2006 - 16:05 #7
Hvis det heller ikke virker så paste alt koden ind, så jeg kan se det
Avatar billede kivig Nybegynder
19. januar 2006 - 16:12 #8
If Request("Send") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "gate1.sikkermail.nu"
  host //gate1.sikkermail.nu
  Mail.From = "mail@mail.dk"
 
  Mail.AddAddress "mail@mail.dk"
  Mail.Subject = "Indberetningsskema"

  body = "<html>"
body = body & "<head>"
body = body & "<title>Indberetningsskema</title>"
body = body & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
body = body & "<link href="csskoop.css" rel="stylesheet" type="text/css">"
body = body & "</head>"

body = "Indberetningsskema" & vbCrLF & vbCrLF
  body = body & "Firma :      " & Request.Form("VirksomhedensNavn") & vbCrLf
  body = body & "CVR-nr:      " & Request.Form("CVR-nr") & vbCrLf
  body = body & "Adresse:    " & Request.Form("Adresse") & vbCrLf
  body = body & "Post-nr/By:  " & Request.Form("Post-nr/By") & vbCrLf & vbCrLF
 
  body = body & "Antal Medarbejdere Ialt:  " & Request.Form("Antal_Medarbejdere_Ialt") & vbCrLf
  body = body & "Heraf Kvinder:  " & Request.Form("Heraf_Kvinder") & vbCrLf
  body = body & "Heraf Mænd:      " & Request.Form("Heraf_Mænd") & vbCrLf & vbCrLF
 
  body = body & "Dato:            " & Request.Form("Dato") & vbCrLf
  body = body & "Kontakt Person:  " & Request.Form("Kontaktperson") & vbCrLf & vbCrLF

body = body & "<body>"
body = body & "xxx"
body = body & "</body>"
body = body & "</html>"

  Mail.IsHTML = True

  On Error Resume Next
  Mail.Send
  If Err <> 0 Then
    Response.Write "Skemaet kunne desværre ikke sendes, prøv venligst igen.: <B>" & err.Description & "</B>"
  Else
    Response.Write "Tak! Skemaet er afsendt og modtaget."
  End If
End If
%>
Avatar billede jansangill Nybegynder
19. januar 2006 - 16:22 #9
prøv dette:


<%
body = "<html>"

body = body & "<head>"

body = body & "<title>Indberetningsskema</title>"

body = body & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"

body = body & "<link href='csskoop.css' rel='stylesheet' type='text/css'>"

body = body & "</head>"

body = body & "<body>"

body = "Indberetningsskema" & vbCrLF & vbCrLF

body = body & "Firma :      " & Request.Form("VirksomhedensNavn") & vbCrLf

body = body & "CVR-nr:      " & Request.Form("CVR-nr") & vbCrLf

body = body & "Adresse:    " & Request.Form("Adresse") & vbCrLf

body = body & "Post-nr/By:  " & Request.Form("Post-nr/By") & vbCrLf & vbCrLF
 
body = body & "Antal Medarbejdere Ialt:  " & Request.Form("Antal_Medarbejdere_Ialt") & vbCrLf

body = body & "Heraf Kvinder:  " & Request.Form("Heraf_Kvinder") & vbCrLf

body = body & "Heraf Mænd:      " & Request.Form("Heraf_Mænd") & vbCrLf & vbCrLF
 
body = body & "Dato:            " & Request.Form("Dato") & vbCrLf

body = body & "Kontakt Person:  " & Request.Form("Kontaktperson") & vbCrLf & vbCrLF

body = body & "</body>"

body = body & "</html>"


If Request("Send") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "gate1.sikkermail.nu"
  host //gate1.sikkermail.nu
  Mail.From = "mail@mail.dk"
 
  Mail.AddAddress "mail@mail.dk"
  Mail.Subject = "Indberetningsskema"



  Mail.IsHTML = True

  On Error Resume Next
  Mail.Send
  If Err <> 0 Then
    Response.Write "Skemaet kunne desværre ikke sendes, prøv venligst igen.: <B>" & err.Description & "</B>"
  Else
    Response.Write "Tak! Skemaet er afsendt og modtaget."
  End If
End If
%>
Avatar billede jansangill Nybegynder
19. januar 2006 - 16:25 #10
og husk at sætte din body variabel ind i din mail......fra hvad jeg kan se, sender du ikke din body i det du pastede.
Avatar billede kivig Nybegynder
19. januar 2006 - 16:41 #11
er min body variabel denne?

Mail.Body = body
Avatar billede jansangill Nybegynder
19. januar 2006 - 16:54 #12
ja det må du vide, jeg bruger aldrig persist. Men det ville være en god bud
Avatar billede jansangill Nybegynder
19. januar 2006 - 16:54 #13
lad mig vide hvordan det går btw
Avatar billede kivig Nybegynder
20. januar 2006 - 10:53 #14
Hejsa.. sorry jeg ikke svarede tilbage i går, tiden løb fra mig :)

Jeg har roddet lidt med koden men kan stadig ikke få afsendt mailen med et ordentligt layout. Med nedenstående kode modtager jeg en mail, men indholdet står på samme linie som een lang streng. Da jeg aldrig har roddet med ASPemail før, har jeg svært ved at gennemskue hvad der sker.

Jeg definere alle html tags vha. body = "<html>" osv. men i selve mailen er der intet html indhold kun teksten fra tekstfelterne fra formen, hvor jeg iøvrigt bruger "POST" og ikke "GET".

<%

body = "<html>"

body = body & "<head>"

body = body & "<title>Indberetningsskema</title>"

body = body & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"

body = body & "<link href='csskoop.css' rel='stylesheet' type='text/css'>"

body = body & "</head>"

body = body & "<body>"


body = body & "Firma :      " & Request.Form("VirksomhedensNavn") & vbCrLf

body = body & "CVR-nr:      " & Request.Form("CVR-nr") & vbCrLf

body = body & "Adresse:    " & Request.Form("Adresse") & vbCrLf

body = body & "Post-nr/By:  " & Request.Form("Post-nr/By") & vbCrLf & vbCrLF
 
body = body & "Antal Medarbejdere Ialt:  " & Request.Form("Antal_Medarbejdere_Ialt") & vbCrLf

body = body & "Heraf Kvinder:  " & Request.Form("Heraf_Kvinder") & vbCrLf

body = body & "Heraf Mænd:      " & Request.Form("Heraf_Mænd") & vbCrLf & vbCrLF
 
body = body & "Dato:            " & Request.Form("Dato") & vbCrLf

body = body & "Kontakt Person:  " & Request.Form("Kontaktperson") & vbCrLf & vbCrLF

body = body & "</body>"

body = body & "</html>"


If Request("Send") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "gate1.sikkermail.nu"
  Mail.From = "lk@expozed.net"
 
  Mail.AddAddress "lk@expozed.net"
  Mail.Subject = "Indberetningsskema"

  Mail.IsHTML = True
  Mail.Body =  body
 
On Error Resume Next
  Mail.Send
  If Err <> 0 Then
    Response.Write "Skemaet kunne desværre ikke sendes, prøv venligst igen.: <B>" & err.Description & "</B>"
  Else
    Response.Write "Tak! Skemaet er afsendt og modtaget."
  End If
End If
%>
Avatar billede jansangill Nybegynder
21. januar 2006 - 13:39 #15
selvfølgelig står det hele på en linie da du ikke har lavet linieskift i din kode. altså <br>...

ydermere skal der gres meget for at få det til at se pænt ud i mail layoutet. Hvis du vil have indsat billeder osv, eller tables skal du jo gøre dette i din body.


Hvis du ikke er helt med, kan du sende filerne til mig på mail, så skal jeg kigge lidt på det engang jeg får tiden


men her kommer en eksempel på hvad der kan gøres:


csskoop.css:

/*Måske en body til din layout*/

body {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 12px;
    margin:0px;
    background-color: #dddfff;
}

/*Måske en class til din layout*/


.link1 {
    color:#FFFFFF;
    text-decoration:none;
}


osv....



Indberetningsskema:


<%

body = "<html>"

body = body & "<head>"

body = body & "<title>Indberetningsskema</title>"

body = body & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"

body = body & "<link href='csskoop.css' rel='stylesheet' type='text/css'>"

body = body & "</head>"

body = body & "<body>"


body = body & "<strong>Firma :</strong>      " & Request.Form("VirksomhedensNavn") & "<br><br>"

body = body & "<strong>CVR-nr: <strong>    " & Request.Form("CVR-nr") & "<br><br>"

body = body & "<strong>Adresse:  </strong>  " & Request.Form("Adresse") & "<br><br>"

body = body & "<strong>Post-nr/By:</strong>  " & Request.Form("Post-nr/By") & "<br><br>"

body = body & "<strong>Antal Medarbejdere Ialt:</strong>  " & Request.Form("Antal_Medarbejdere_Ialt") & "<br><br>"

body = body & "<strong>Heraf Kvinder:</strong>  " & Request.Form("Heraf_Kvinder") & "<br><br>"

body = body & "<strong>Heraf Mænd:<strong>      " & Request.Form("Heraf_Mænd") & "<br><br>"

body = body & "<strong>Dato:</strong>            " & Request.Form("Dato") & vbCrLf

body = body & "<strong>Kontakt Person:</strong>  " & Request.Form("Kontaktperson") & "<br><br>"


'''''''''''''''måske en billede ind'''''''''''''''''''


body = body & "<img src='http://www.domæne.dk'/>"

'''''''''''billede slut

body = body & "</body>"


body = body & "</html>"


'''''MAIL påbegyndt''''''''''''

If Request("Send") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "gate1.sikkermail.nu"
  Mail.From = "lk@expozed.net"

  Mail.AddAddress "lk@expozed.net"
  Mail.Subject = "Indberetningsskema"

  Mail.IsHTML = True
  Mail.Body =  body

On Error Resume Next
  Mail.Send
  If Err <> 0 Then
    Response.Write "Skemaet kunne desværre ikke sendes, prøv venligst igen.: <B>" & err.Description & "</B>"
  Else
    Response.Write "Tak! Skemaet er afsendt og modtaget."
  End If
End If
%>
Avatar billede kivig Nybegynder
24. januar 2006 - 10:39 #16
Hej igen.

Jeg har forsøgt mig med diverse metoder, men kan ikke få layout-billeder til at være baggrund i mailen. Hvis jeg bare kunne få et billede som baggrund i mailen med tekst-indholdet ovenpå ville det være helt perfekt. Det hjalp lidt med "<body background="images/mailbg.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">" Men billedet blev gentaget, ved ikke om en no wrap vil kunne løse det problem?

Har du nogle idéer ?

Og mange tak for dit tilbud om hjælp.. jeg tror meget snart at jeg vil benytte mig af det :)
Avatar billede jansangill Nybegynder
27. januar 2006 - 10:55 #17
kan du ikke bare formindske din billede i width elle rheight=?

det skulle da effektivt löse det problem....

sorry jeg ikke har svaret tilbage för nu......i sverige atm....


bare sät din width og height til hvad du vil have den sat til.
Avatar billede kivig Nybegynder
31. januar 2006 - 11:47 #18
Hej igen. :)

Den laver en border på 1 og en width på 500, men billedet bliver ikke vist? her er min kode:

<%
body = body & "<table border=""1"" width=""500"" background=""images/mailbg.gif"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
body = body & "<tr>"
body = body & "<td>"

body = body & "<center><H2>Indberetningsskema</H2></center>"

body = body & "<center><strong>    Firma :</strong>      " & Request.Form("VirksomhedensNavn") & "</center>" & "<br>"

body = body & "<center><strong>    CVR-nr: </strong>    " & Request.Form("CVR-nr") & "</center>" & "<br>"

body = body & "<center><strong>    Adresse:  </strong>  " & Request.Form("Adresse") & "</center>" & "<br>"

body = body & "<center><strong>    Post-nr/By:</strong>  " & Request.Form("Post-nr/By") & "</center>" & "<br><br><br>"

body = body & "<center><strong>      Antal Medarbejdere Ialt:</strong>  " & Request.Form("Antal_Medarbejdere_Ialt") & "</center>" & "<br>"

body = body & "<center><strong>      Heraf Kvinder:</strong>  " & Request.Form("Heraf_Kvinder") & "</center>" & "<br>"

body = body & "<center><strong>      Heraf Mænd:</strong>      " & Request.Form("Heraf_Mænd") & "</center>" & "<br><br>"

body = body & "<center><strong>    Dato:</strong>            " & Request.Form("Dato") & "</center>" & "<br>"

body = body & "<center><strong>    Kontakt Person:</strong>  " & Request.Form("Kontaktperson") & "</center>" & "<br><br>"

body = body & "</td>"
body = body & "</tr>"
body = body & "</table>"

If Request("Send") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "gate1.sikkermail.nu"
  Mail.From = "lk@kooperationen.dk"
 
  Mail.AddAddress "lk@kooperationen.dk"
  Mail.Subject = "Indberetningsskema"

  Mail.IsHTML = True
  Mail.Body =  body
  On Error Resume Next
  Mail.Send
  If Err <> 0 Then
    Response.Write "Skemaet kunne desværre ikke sendes, prøv venligst igen.: <B>" & err.Description & "</B>"
  Else
    Response.Write "Tak! Skemaet er afsendt og modtaget."
  End If
End If
%>
Avatar billede jansangill Nybegynder
03. februar 2006 - 14:51 #19
okay grunden til at billedet ikke bliver vist kan väre fölgende:

1) du henviser til den forkerte sted:)))
2)du skal måske göre dette:background-image:url(http://www.hjemmeside.dk/billede.gif);


HUSK PÅ AT DET JEG GÖR BLIVER GJORDT I CSS......derfor skal du enten henvise til en CSS dokument hvor du indsätter din billede, eller bare göre det direkte i din dokument.
Avatar billede kivig Nybegynder
10. februar 2006 - 11:57 #20
Hej igen. :) jeg har været uden internet et stykke tid så undskyld det sene svar.

Jeg kan desværre stadig ikke få billedet vist. Stien er rigtig nok og jeg har også forsøgt mig med dit 2 forslag, men desværre med samme resultat.

Hvordan indsætter du billede i css?
Avatar billede jansangill Nybegynder
10. februar 2006 - 15:53 #21
dette putter du ind i css'en.


css:

#billede {

background-image:url(http://www.hjemmeside.dk/billede.gif);
left:50px;
top;30px;

}


sådan sætter du det ind i html'en:


body = "<HTML>"
body = body & "<head>"
body = body & "<title>xx</title>"
body = body & "CSS STI"
body = body & "</head>"
body = body & "<body>"
body = body & "<div id='billede'>HER er billedet</div>"
body = body & "</body>"
body = body & "</html>"
Avatar billede kivig Nybegynder
30. maj 2006 - 13:24 #22
Jansangill send et svar og jeg lukker denne tråd. Tak for hjælpen. :)
Avatar billede jansangill Nybegynder
30. maj 2006 - 13:52 #23
ok:)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 15:37 Et wifi net til en kolonihave uden wifi Af Andershoegh i Andet hardware
I går 14:29 IIS Kan ikke Redirecte til anden side Af bsn i Webservere
I går 14:19 ESET Af hkprofil i Backup- & Antivirus
I går 12:16 diskpart - slet harddisk Af Uvanga i Windows
07/0717:39 oprette gruppe i outlook.dk Af fase i E-mail programmer
White papers
Flere white papers »