CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jenskf Nybegynder

12. februar 2002 - 14:04 Der er 7 kommentarer og
1 løsning

HTML i AspEmail 4.5 eller ASPMail 3.0

Hej

Min webserver understøtter både "AspEmail 4.5 Premium" og "ASPMail 3.0", og jeg vil gerne anvende en af disse mailkomponenter, til at sende en HTML e-mail via et ASP-script, som jeg håber, at du kan give mig? :-)

Synes godt om

rune_c Nybegynder

12. februar 2002 - 14:12 #1

<%
if request.querystring = "1" then
Response.Buffer = True
Response.Expires = 0

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "din.smtp.dk"
Mailer.FromName = request.form("name")
Mailer.FromAddress = request.form("email")
Mailer.AddRecipient "Webmaster", "din@email.dk"
Mailer.Subject = request.form("subject")
Mailer.BodyText = request.form("txt")
Mailer.CharSet = 1

if not Mailer.SendMail then
Response.Write "<p>Mailing Failed... Error is: <br>"
Response.Write Mailer.Response
else
Response.Write "Sent<br>"
end if

Set Mailer = nothing
end if
%>
<html>

<body>
<form action="mail.asp?1" method=post>
Dit navn: <input type=text id=name><br>
Din email: <input type=text id=email><br>
Emne: <input type=text id=subject><br>
Besked: <textarea id=txt></textarea><br>
<br>
<input type=submit value=Send><input type=reset value=slet>
</form>
</body>

Synes godt om

jenskf Nybegynder

12. februar 2002 - 15:06 #2

Men kan scriptet også bruges til at sende en HMTL e-mail? Det tror jeg nemlig ikke.

Helt konkret skal jeg lave et script, som kan omforme følgende URL, som bliver alt for lang, hvis ikke man placerer dens værdi i tekst URL (hvilket jeg ikke kan finde ud af) - ved f.eks. at skrive "Klik her!", og så bliver bruger smidt videre til adresse (med den lange URL).

Mailer.BodyText = "Hej "+ Tryk på følgende link: http://www.minhjemmesideadresse.dk/multimedia/udlaan_af_videotitler3.asp?videotitel1="+ Server.URLEncode(Request.QueryString("videotitel1")) + "&videotitel2="+ Server.URLEncode(Request.QueryString("videotitel2")) + "&videotitel3="+ Server.URLEncode(Request.QueryString("videotitel3")) + "&videotitel4="+ Server.URLEncode(Request.QueryString("videotitel4")) + "&fraNavn="+ Server.URLEncode(Request.QueryString("fraNavn")) + "&fraAdresse="+ Server.URLEncode(Request.QueryString("fraAdresse")) + "&postadresse="+ Server.URLEncode(Request.QueryString("postadresse"))

Synes godt om

jenskf Nybegynder

12. februar 2002 - 15:07 #3

Hov, der var vist en lille fejl i starten af "Mailer.BodyText", men det ser du bare bort fra.

Synes godt om

rune_c Nybegynder

13. februar 2002 - 10:00 #4

<%
if request.querystring = "1" then
Response.Buffer = True
Response.Expires = 0

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "din.smtp.dk"
Mailer.FromName = request.form("name")
Mailer.FromAddress = request.form("email")
Mailer.AddRecipient "Webmaster", "din@email.dk"
Mailer.IsHTML = True
Mailer.Subject = request.form("subject")
Mailer.BodyText = "<HTML><BODY>Hej<br><br>Tryk på følgende link:<br><br><a href='http://www.dinside.dk/default.asp?videotitle1='" & Request.QueryString('videotitle1') & "&videotitle2=" & Request.QueryString('videotitle2') & "</BODY></HTML>"
Mailer.CharSet = 1

if not Mailer.SendMail then
Response.Write "<p>Mailing Failed... Error is: <br>"
Response.Write Mailer.Response
else
Response.Write "Sent<br>"
end if

Set Mailer = nothing
end if
%>

osv. nu skal du bare gøre dit link færdigt. Jeg tror det virker men har ikke testet det, men regner med at du bare vender stærkt tilbage....

Synes godt om

rune_c Nybegynder

13. februar 2002 - 11:01 #5

Denne har jeg gennemtestet og ved at den virker..:

<%
Response.Buffer = True
Response.Expires = 0

Set Mailer = Server.CreateObject("Persits.MailSender")

Mailer.Host = "smtp.xxxxx.dk"
Mailer.FromName = "Afsenders navn"
Mailer.From = "Afsenders@email.dk"
Mailer.AddAddress "Modtagers@mail.dk", "Modtagers navn"
Mailer.Subject = "Emails emne"
Mailer.Body = "<HTML><BODY>Hej<br><br>Tryk på følgende link:<br><br><a href='http://www.mitsite.dk/default.asp?videotitle1=" &

Server.URLEncode(Request.Querystring("videotitle1")) & "&videotitle2=" & Server.URLEncode(Request.Querystring("videotitle2")) & "'>Test</a></BODY></HTML>"
Mailer.IsHTML = True
Mailer.CharSet = 1

On Error Resume Next
Mailer.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
Else
Response.Write "Sent!"
End If

Set Mailer = nothing
%>

Synes godt om

rune_c Nybegynder

13. februar 2002 - 11:04 #6

den sidste udgave er lavet til ASPEmail 4.5

Synes godt om

jenskf Nybegynder

13. februar 2002 - 18:53 #7

Jeg får følgende fejlmelding, når jeg kører dit script:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Left'
/errors.asp, line 4

Kobler jeg linien "Mailer.AddAddress" fra, kommer den ingen fejlmeldnig (men e-mail kan derved ikke afsendes).

Det, som jeg ikke fatter er, hvorfor begynder scriptet at smide mig hen til min "errors.asp" side - det er som om at det script, som du har givet mig ikke kan køre på min webserver. Kan det skyldes, at "AspEmail 4.5 Premium", som jeg har må min webserver skulle være meget anderledes end "AspEmail 4.5"?

Synes godt om

jenskf Nybegynder

13. februar 2002 - 19:53 #8

Det virker nu. Jeg ved ikke, hvad jeg har gjort anderledes, men det virker. Tak for hjælpen.

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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

29/11

Test: Vi prøver håndbygget italiensk lyd til 13.000 kroner - derfor vil du gerne have feinschmecker-streaming

29/11

Et år efter hård kritik: En stribe myndigheder har fortsat store huller i deres kriseberedskaber

29/11

Nørgaard: Sådan spotter du en russisk påvirkningsagent i dit netværk - brug de fem nemme spørgsmål

29/11

Næsten alle de gode navne er taget, men domænehandleren Marcus har en opskrift, der kan hjælpe dig med at kapre drømmeadressen

29/11

Apple får patent på ny teknologi, der kan genkende dig på din fysiske fremtoning - kan komme til at indgå i et helt nyt produkt

29/11

Pønser du på nyt job? Så tjek disse 10 spændende stillinger ud, som er ledige lige nu

29/11

EU åbner NIS2-sag mod Danmark efter store forsinkelser: Får to måneder

29/11

Derfor bør du tøve med at købe en ny gamer-pc: Årets nyhed venter forude

29/11

Sådan håndterer du det som leder, når din virksomhed bliver ramt af en skandale

29/11

Gør som stort konsulenthus: Rekruttér selv og få bedre kvalitet … og spar en masse penge

29/11

Her er Merete Søbys afløser: Tidligere EG-direktør og iværksætter ny CEO i Schultz

Vis flere artikler

IT-JOB

Rambøll Management Consulting

Senior/Lead Software Engineer @ Ramboll Stakeholder Intelligence

Jyske Bank

Erfaren og visionær tværgående arkitekt

Netcompany A/S

Data Management Consultant

HOUSE4IT A/S

System- og netværkskonsulent til en professionel IT-virksomhed i Kolding

Statens IT

It-supportere til Statens Its servicedesk i Sønderborg

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 14:13	Smart Switch Android til Android Af valby i Mobiltelefoner
I dag 08:16	Outlook Af jdann i E-mail programmer
I går 20:00	Genie Timeline Af Malm i Andet software
I går 16:09	Plex virker ikke uden for netværk ??? Af Ronron i Mac
I går 16:03	exFat Af Bruce i Apps til iOS