Notifikationer

Markér alle som læst Log ud

Slettet bruger

23. december 2005 - 12:54 Der er 12 kommentarer og
1 løsning

Formater tekst i smtpmail

Jeg har flg. kode som sender en mail, men hvordan får jeg f.eks. linie 2 ("nr") til at være fed i mailen.
<%
Dim CR
Dim MyBody
Dim MyCDONTSMail
CR = Chr(9) & Chr(10)

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From ="test@test.dk"
MyCDONTSMail.To= "test@test.dk"
MyCDONTSMail.Subject="aftale "
MyBody = MyBody & "nr:.............. "& Request.Form("nr") & CR
MyBody = MyBody & "Printet"& Request.Form("afleveret") & CR
MyBody = MyBody & "Løbenummer:........................ "& Request.Form("afsendt") & CR

MyBody = MyBody
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>

Synes godt om

flashit Nybegynder

23. december 2005 - 13:09 #1

MyCDONTSMail.BodyFormat = 0
MyCDONTSMail.MailFormat = 0

så skulle du bare kunne bruge html tags (nr)

Jeg har ikke testet det :-)

Synes godt om

Slettet bruger

23. december 2005 - 13:18 #2

Kan du uddybe det lidt, hvor præcis skal de tags sættes ind ?

Synes godt om

flashit Nybegynder

23. december 2005 - 15:39 #3

Ja.

<%
Dim CR
Dim MyBody
Dim MyCDONTSMail
CR = Chr(9) & Chr(10)

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From ="test@test.dk"
MyCDONTSMail.To= "test@test.dk"
MyCDONTSMail.Subject="aftale "
MyBody = MyBody & "nr:.............. "& Request.Form("nr") & CR
MyBody = MyBody & "Printet"& Request.Form("afleveret") & CR
MyBody = MyBody & "Løbenummer:........................ "& Request.Form("afsendt") & CR

MyCDONTSMail.BodyFormat = 0
MyCDONTSMail.MailFormat = 0
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send

set MyCDONTSMail=nothing
%>

igen ikke testet

Synes godt om

Slettet bruger

27. december 2005 - 09:36 #4

Desværre, det er ikke rigtigt

Synes godt om

flashit Nybegynder

27. december 2005 - 11:21 #5

kommer der en fejl? eller....

Synes godt om

Slettet bruger

27. december 2005 - 11:24 #6

Ja, jeg får bare nr>/b> skrevet ud som tekst. Dette er fra mailen:
 nr.....123654

Synes godt om

flashit Nybegynder

27. december 2005 - 12:41 #7

prøv lige med:
MyCDONTSMail.BodyFormat = 1
MyCDONTSMail.MailFormat = 1

Hvis dette virker, så prøv dette i stedet.

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "udgåemde mailserver"

Mailer.FromName = "Tilmelding til Nyhedsbrev"
Mailer.FromAddress = Request.form("email")
Mailer.AddRecipient "skriv et navn her", "modtager email skrives her"
Mailer.ContentType = "text/html"

Mailer.Subject = "Jeg vil gerne tilmeldes nyhedsbrevet"
Mailer.BodyText = "<html><body>"
Mailer.BodyText = "Navn: " & Request.form("Full_Name")
Mailer.BodyText = " "
Mailer.BodyText = "e-mail: " & Request.form("email")
Mailer.BodyText = "</body><html>"

if not Mailer.SendMail then
Response.Write " Mailing Failed... Error is: "
Response.Write Mailer.Response
else
Response.redirect("Tak.asp?ID=1")
end if

Set Mailer = nothing

%>

Synes godt om

Slettet bruger

27. december 2005 - 12:47 #8

Jeg har fundet ud af det, så tusind tak for hjælpen, læg et svar - så får du dine point

Synes godt om

flashit Nybegynder

27. december 2005 - 12:51 #9

kunne du bruge noget af det jeg skrev?. og skriver du ikke lige hvordan, bare så man kan bruge det én anden gang :-)

Synes godt om

Slettet bruger

27. december 2005 - 12:59 #10

Jeg fandt et eks, jeg kunne bruge:
<%

Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF""<table>"
HTML = HTML & ""
HTML = HTML & "Microsoft Exchange CDONTS Example"
HTML = HTML & ""
HTML = HTML & "CDO for NTS allows an easy way to send mail. "
HTML = HTML & "This example shows how the content can be.... "
HTML = HTML & ""
HTML = HTML & request.form("nr")
HTML = HTML & ""
HTML = HTML & " an HTML page "
HTML = HTML & "which allows you to send rich text and"
HTML = HTML & "inline graphics. "
HTML = HTML & "</body>"
HTML = HTML & "</html>"

myMail.From=""
myMail.To=""
myMail.Subject="Dette er en test"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>

Synes godt om

flashit Nybegynder

27. december 2005 - 13:28 #11

ok, super. Snup du bare p'erne selv :-)

Synes godt om

Slettet bruger

27. december 2005 - 13:29 #12

Nej, jeg synes du skal have dem for ulejligheden og så er det jo jul :-)

Synes godt om

flashit Nybegynder

27. december 2005 - 13:37 #13

;-) TAK

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 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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS