Notifikationer

Markér alle som læst Log ud

smidt Novice

13. marts 2001 - 18:59 Der er 18 kommentarer og
1 løsning

objMail.Body = ??????

Jeg vil gerne skrive meget tekst i Body (mailen) men hvordan skriver jeg det linieskift m.m. uden at få fejl

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<title>test</title>
<title>test</title>
</head>
<body bgcolor=#ffffff>
<%
Dim strName, strEmail, strAdress, strQuery, strBy
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strAdress = Trim(Request.Form(\"ClientAdress\"))
strQuery = Trim(Request.Form(\"ClientQry\"))
strBy = Trim(Request.Form(\"ClientBy\"))

If (strName <> \"\" And strAdress <> \"\" And strBy <> \"\") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject(\"CDONTS.NewMail\")

objMail.From = \"22@xx.dk\"
objMail.To = strEmail
objMail.Subject = \"Fremsendelse af opstilling via eMail til \" & strName

aRecipients = Array(\"11@xx.dk\", _
\"33@xx.dk\")

objMail.AttachFile Server.MapPath(\"../Pdfer/1809_d6.PDF\")

objMail.BCC = Join(aRecipients, \";\")
objMail.Body = \"Hermed fremsendes den bestilte opstilling! \" & strName
objMail.Send

Response.Write \"Tak for din bestilling! \" & strName

Set objMail = Nothing
Else
%>

<h1> </h1>

<p> </p>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<TABLE BORDER=0>
<tr><td>Name:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><INPUT NAME=\"ClientName\" VALUE=\"\" SIZE=57></td></tr>
<tr><td>Adresse:</td><td><IMG border=0 src=\"../images/stjerne.gif\"></td><td><input type=\"text\" name=\"ClientAdress\" size=\"57\"></td></tr>
<tr><td>Postnr. og by:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><input type=\"text\" name=\"ClientBy\" size=\"57\"></td></tr>
<tr><td>Tlf:</td><td></td><td><input type=\"text\" name=\"telefon\" size=\"18\">Tlf (arbejde/mobil):<input type=\"text\" name=\"TlfArbejde\" size=\"16\"></td></tr>
<tr><td>eMail:</td><td></td><td><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></td></tr>
<tr><td valign=top>Comment/Question</td><td></td><td><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></td></tr>
<tr><td></td><td></td><td> 
<p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p>
</td></tr>
</TABLE>
</FORM>

<% End If %>

<p> </p>

</body></html>

Synes godt om

netsrac Praktikant

13. marts 2001 - 19:00 #1

objMail.Body = \"Hermed fremsendes den bestilte opstilling! \" & strName & vbcrlf & \"Nu er vi på en ny linie\" & vbcrlf & \"og igen\"

Synes godt om

smidt Novice

13. marts 2001 - 19:04 #2

Tak
Betyder vbcrlf linjeskift

Synes godt om

netsrac Praktikant

13. marts 2001 - 19:06 #3

Ja vbcrlf er liniskift

Synes godt om

smidt Novice

13. marts 2001 - 19:21 #4

Perfekt
I bogen asp af Christoph bruges der et udtryk der hedder

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Dim objMail, htmlText
Set objMail = Server.CreateObject(\"CDONTS.NewMail\")

htmlText = \"<!DOCTYPE HTML PUBLIC \"\"-//W3C//DTD HTML 4.0 Transitional//EN\"\">\"
htmlText = htmlText & \"<html>\"
htmlText = htmlText & \"<head>\"
htmlText = htmlText & \"<title>ASP24h.com Site Launched!</title>\"
htmlText = htmlText & \"</head>\"
htmlText = htmlText & \"<body bgcolor=#ffffff>\"
htmlText = htmlText & \"<center>\"
htmlText = htmlText & \"<p>A companion site for the \"\"Teach \"
htmlText = htmlText & \"Yourself ASP in 24 Hours\"\" book has been launched at <a href=\"\"http://www.asp24h.com\"\">\"
htmlText = htmlText & \"http://www.asp24h.com</a>.</p>\"
htmlText = htmlText & \"<img src=\"\"softwing.gif\"\">\"
htmlText = htmlText & \"</center>\"
htmlText = htmlText & \"</body>\"
htmlText = htmlText & \"</html>\"

objMail.From = \"webmaster@asp24h.com\"
objMail.To = \"christophw@softwing.com\"
objMail.Subject = \"New ASP Book Site\"
objMail.BodyFormat = 0
objMail.MailFormat = 0

objMail.Body = htmlText
objMail.AttachUrl Server.MapPath(\"softwing.gif\"), \"softwing.gif\"

objMail.Send
Set objMail = Nothing
%>

Men hvordan sætter jeg det ind i min kode

Synes godt om

netsrac Praktikant

13. marts 2001 - 19:24 #5

Hvad er det du vil have sat ind ?

Synes godt om

smidt Novice

13. marts 2001 - 20:11 #6

objMail.Body = htmlText
giver alt den tekst i body (mail) der skrives htmlText = htmlText

For det giver åbenbart mulighed for styre tekst og grafik i mailen.
Sådan noget som centrering bold osv.
Eller findes der også koder (VBScript) for det alla & vbcrlf &
findes der et sted på nettet hvor man kan finde det (ups mange spørgsmål)

Synes godt om

smidt Novice

13. marts 2001 - 20:15 #7

Hvad hvis jeg gerne vil have grafik med....

Synes godt om

netsrac Praktikant

13. marts 2001 - 20:17 #8

Jeg er ikke helt med på hvad du vil, men:

htmltext=\"<body>\"
htmltext = \"Hermed fremsendes den bestilte opstilling! \" & strName & vbcrlf & \"Nu er vi på en ny linie\" & vbcrlf & \"og igen\"
htmltext = \"</body>\"
objMail.Body = htmltext

Synes godt om

smidt Novice

13. marts 2001 - 20:55 #9

Det jeg vil er at kunne sætte grafik i mailen --er det muligt.

Synes godt om

netsrac Praktikant

13. marts 2001 - 20:59 #10

htmltext = htmltext & \"<img src=\'softwing.gif\'>\"
htmltext = \"Hermed fremsendes den bestilte opstilling! \" & strName & vbcrlf & \"Nu er vi på en ny linie\" & vbcrlf & \"og igen\"
objMail.Body = htmltext

objMail.AttachUrl Server.MapPath(\"softwing.gif\"), \"softwing.gif\"

Så skal softwing.gif ligge i samme mappe på serveren også vil den blive vist i emailen.

Synes godt om

smidt Novice

13. marts 2001 - 21:41 #11

Jeg har lidt problemmer
med billeder og tomme linjer..

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<title>Client Questionaire</title>
<title>test</title>
</head>
<body bgcolor=#ffffff>
<%
Dim strName, strEmail, strAdress, strQuery, strBy
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strAdress = Trim(Request.Form(\"ClientAdress\"))
strQuery = Trim(Request.Form(\"ClientQry\"))
strBy = Trim(Request.Form(\"ClientBy\"))

If (strName <> \"\" And strAdress <> \"\" And strBy <> \"\") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject(\"CDONTS.NewMail\")

objMail.From = \"11@xx.dk\"
objMail.To = strEmail
objMail.Subject = \"Fremsendelse af salgsopstilling via eMail til \" & strName

aRecipients = Array(\"22@xx.dk\", _
\"xx@xx.dk\")

objMail.AttachFile Server.MapPath(\"../Pdfer/1809_d6.PDF\")

objMail.BCC = Join(aRecipients, \";\")
objMail.Body = \"Hermed fremsendes den bestilte opstilling på den bestilte xx.\" & vbcrlf & \"opstillinger på Internettet opdateres løbende og er derfor\" & vbcrlf & \"identiske med de opstillinger, du kan få udleveret hos os i dag.\" & vbcrlf & \"opstillingen er en Acrobat/PDF-fil. For at kunne læse filen skal du have installeret \" & vbcrlf & \"programmet Acrobat Reader 4.0, som kan hentes gratis på http://www.adobe.dk/adobe .\" & vbcrlf & Her vil jeg have en to linje\" \"Med venlig hilsen\" \"og her vil jeg have et billed\"

objMail.Send

Response.Write \"Tak for din bestilling! \" & strName

Set objMail = Nothing
Else
%>

<h1> </h1>

<p> </p>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST onsubmit=\"return FrontPage_Form1_Validator(this)\" name=\"FrontPage_Form1\">
<TABLE BORDER=0>
<tr><td>Name:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><INPUT NAME=\"ClientName\" VALUE=\"\" SIZE=57></td></tr>
<tr><td>Adresse:</td><td><IMG border=0 src=\"../images/stjerne.gif\"></td><td><input type=\"text\" name=\"ClientAdress\" size=\"57\"></td></tr>
<tr><td>Postnr. og by:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><input type=\"text\" name=\"ClientBy\" size=\"57\"></td></tr>
<tr><td>Tlf:</td><td></td><td><input type=\"text\" name=\"telefon\" size=\"18\">Tlf (arbejde/mobil):<input type=\"text\" name=\"TlfArbejde\" size=\"16\"></td></tr>
<tr><td>eMail:</td><td></td><td><INPUT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></td></tr>
<tr><td valign=top>Comment/Question</td><td></td><td><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></td></tr>
<tr><td></td><td></td><td> 
<p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p>
</td></tr>
</TABLE>
</FORM>

<% End If %>

<p> </p>

</body></html>

Synes godt om

netsrac Praktikant

13. marts 2001 - 21:45 #12

objMail.AttachUrl Server.MapPath(\"softwing.gif\"), \"softwing.gif\"

objMail.AttachFile Server.MapPath(\"../Pdfer/1809_d6.PDF\")

objMail.BCC = Join(aRecipients, \";\")
objMail.Body = \"Hermed fremsendes den bestilte opstilling på den bestilte xx.\" & vbcrlf & \"opstillinger på Internettet opdateres løbende og er derfor\" & vbcrlf & \"identiske med de opstillinger, du kan få udleveret hos os i dag.\" & vbcrlf & \"opstillingen er en Acrobat/PDF-fil. For at kunne læse filen skal du have installeret \" & vbcrlf & \"programmet Acrobat Reader 4.0, som kan hentes gratis på http://www.adobe.dk/adobe .\" & vbcrlf & vbcrlf & \"Med venlig hilsen\" \"<img src=\'softwing.gif\'>\"

Så skal softwing.gif ligge i samme mappe som scriptet også skulle det gerne blive vist i mailen.

Synes godt om

smidt Novice

13. marts 2001 - 22:14 #13

Den blev vedhæftet mailen, det skulle den ikke men derimod ind i mailen (body) ????

Synes godt om

netsrac Praktikant

13. marts 2001 - 22:17 #14

Hvad så med ?

objMail.AttachUrl Server.MapPath(\"softwing.gif\"), \"softwing.gif\"

objMail.AttachFile Server.MapPath(\"../Pdfer/1809_d6.PDF\")

objMail.BCC = Join(aRecipients, \";\")
objMail.Body = \"Hermed fremsendes den bestilte opstilling på den bestilte xx.\" & vbcrlf & \"opstillinger på Internettet opdateres løbende og er derfor\" & vbcrlf & \"identiske med de opstillinger, du kan få udleveret hos os i dag.\" & vbcrlf & \"opstillingen er en Acrobat/PDF-fil. For at kunne læse filen skal du have installeret \" & vbcrlf & \"programmet Acrobat Reader 4.0, som kan hentes gratis på http://www.adobe.dk/adobe .\" & vbcrlf & vbcrlf & \"Med venlig hilsen\" \"<html><body><img src=\'softwing.gif\'></body></html>\"

Synes godt om

smidt Novice

13. marts 2001 - 22:33 #15

efter med venlih hilsen\" & vbcrlf & \"<html><body osv men nej den vedhæftes....hmmmmm

Men du har hjulpet mig kanon så engenlig er det her vel et nyt spørgsmål

Årsgen til at jeg er så længe om at svare er at min Pws køre på en win 98 så jeg skal oploude hver gang ....

Synes godt om

netsrac Praktikant

13. marts 2001 - 22:36 #16

Hm..jeg ved ikke rigtig hvad man skal gøre så. Har du evt. jmail på serveren ?

Synes godt om

smidt Novice

13. marts 2001 - 22:40 #17

ja det understøttes også....

Synes godt om

netsrac Praktikant

13. marts 2001 - 22:51 #18

Så prøv med:

<% @LANGUAGE = VBScript %>

<html>
<head>
<title>Client Questionaire</title>
<title>test</title>
</head>
<body bgcolor=#ffffff>
<%

strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strAdress = Trim(Request.Form(\"ClientAdress\"))
strQuery = Trim(Request.Form(\"ClientQry\"))
strBy = Trim(Request.Form(\"ClientBy\"))

If (strName <> \"\" And strAdress <> \"\" And strBy <> \"\") Then
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"mail.domain.dk\"
JMail.Sender = \"11@xx.dk\"
JMail.Subject = \"Fremsendelse af salgsopstilling via eMail til \" & strName
JMail.AddRecipientBCC \"22@xx.dk\"
JMail.AddRecipientBCC \"xx@xx.dk\"
JMail.Priority = 3
JMail.HTMLBody = \"<html><body>Hermed fremsendes den bestilte opstilling på den bestilte xx.\" & vbcrlf & \"opstillinger på Internettet opdateres løbende og er derfor\" & vbcrlf & \"identiske med de opstillinger, du kan få udleveret hos os i dag.\" & vbcrlf & \"opstillingen er en Acrobat/PDF-fil. For at kunne læse filen skal du have installeret \" & vbcrlf & \"programmet Acrobat Reader 4.0, som kan hentes gratis på http://www.adobe.dk/adobe .\" & vbcrlf & vbcrlf & \"Med venlig hilsen\" & \"<img src=\'softwing.gif\'></body></html>\"
Jmail.AddAttachment(Server.MapPath(\"..\\Pdfer\\1809_d6.PDF\"))
Jmail.AddAttachment(Server.MapPath(\"softwing.gif\"))
JMail.Execute

Response.Write \"Tak for din bestilling! \" & strName

set Jmail = nothing
Else
%>

<h1> </h1>

<p> </p>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST onsubmit=\"return FrontPage_Form1_Validator(this)\" name=\"FrontPage_Form1\">
<TABLE BORDER=0>
<tr><td>Name:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><INPUT NAME=\"ClientName\" VALUE=\"\" SIZE=57></td></tr>
<tr><td>Adresse:</td><td><IMG border=0 src=\"../images/stjerne.gif\"></td><td><input type=\"text\" name=\"ClientAdress\" size=\"57\"></td></tr>
<tr><td>Postnr. og by:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><input type=\"text\" name=\"ClientBy\" size=\"57\"></td></tr>
<tr><td>Tlf:</td><td></td><td><input type=\"text\" name=\"telefon\" size=\"18\">Tlf (arbejde/mobil):<input type=\"text\" name=\"TlfArbejde\" size=\"16\"></td></tr>
<tr><td>eMail:</td><td></td><td><INPUT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></td></tr>
<tr><td valign=top>Comment/Question</td><td></td><td><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></td></tr>
<tr><td></td><td></td><td> 
<p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p>
</td></tr>
</TABLE>
</FORM>

<% End If %>

<p> </p>

</body></html>

Synes godt om

smidt Novice

20. marts 2001 - 18:34 #19

Det er kanon det virker med Jmail, men se spørgsmål http://www.eksperten.dk/spm/58276

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS