CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede j-roar-h Nybegynder
01. februar 2010 - 16:01 Der er 14 kommentarer og
1 løsning

Formmail bliver uønsket post

Hej..

Jeg har en formmail, som sender en mail et billed samt tekst.

Mit problem er, at når man modtager mailen via formmailen, ryger beskeden i uønsket post.

Nogen der ved hvordan man kan få den til at sende mailen, så det ryger i indbakke?
Avatar billede Slettet bruger
02. februar 2010 - 00:17 #1
tjae... det kan der være mange forklaringer på. Kan du ikke prøve at indsætte det script herinde, som der sender mailen... Så er det noget nemmere at komme med råd.

\Dan
Avatar billede j-roar-h Nybegynder
02. februar 2010 - 11:43 #2
min kode ser sådan ud:

<%   
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
msg = ""
msg = msg & "Hej " & Request("navn") & "<br>" & "<br>" & vbCrLf
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt." & "<br>" & "<br>"
msg = msg & "Du har indtastet følgende:" & "<br>" & "<br>"
msg = msg & "<strong>Email:</strong> " & "<br>" & Request("mail") & "<br>" & "<br>" & vbCrLf
msg = msg & vbCrLf
msg = msg & "<strong>Besked:</strong> " & "<br>" & Request("besked") & "<br>" & "<br>" & vbCrLf
msg = msg & "<html><div class=font-family: Verdana, Geneva, sans-serif><body><strong>Med venlig hilsen</strong><br>Ringsted Tennisklub<br><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif""><p><body></html>" & "<br>" & vbCrLf
Mailer.BodyText = msg


if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>" & replace(msg,vbCrLf,"<br>") & "</p>"
end if
%>
Avatar billede Slettet bruger
02. februar 2010 - 13:12 #3
Som jeg ser det her er der to problemer, som højst sandsynligt er det som gør at mange mailservere vil "opfatte" sådan en mail som spam. Først og fremmest så skal "FromAddress" være en e-mail adresse som er under samme domæne som "RemoteHost", det kunne for eksempel være "webmaster@ringstedtennisklub.dk", eller hvad der nu ellers findes. Og så kan man lave en "ReplyTo", som så indeholder den e-mail adresse, som brugeren har skrevet i "mail"-feltet.

Endvidere bør et html-dokument også starte med "<html>" og slutte med "</html>", det gør det heller ikke her, i "msg".

\Dan
Avatar billede j-roar-h Nybegynder
02. februar 2010 - 13:30 #4
Tak..

Jeg har rettet det med "FromAddress" og det virker faktisk ganske fint.

Nu ryger beskeden ikke i uønsket, men man kan ikke se det billed som det bliver sendt med, før man klikker på "hent fil"

Det med "<html>" er jeg ikke helt med på hvor jeg skal sætte ind?
Avatar billede Slettet bruger
02. februar 2010 - 14:48 #5
ok! Har du indsat en "ReplyTo" også, sådan at modtageren kan besvare mailen?

Det med <html> skal indsættes som det FØRSTE i din mail! Som det er nu står det senere indeni mailen. Det samme gælder i øvrigt også <body>. Og hele din mail skal også afsluttes med </body></html>.

Som eksemlet her:

msg = "<html><body>"
msg = msg & "Hej " & request.form("navn") & " blablabla..."
msg = msg & "</body></html>"

I øvrigt er der da et helt andet problem...! Alle din requests er jo uadresseret! Du skriver bare "Request("navn")" for eksempel, det burde vel være "request.form("navn")", hvis det er hentet fra en formular...
Sidst men ikke mindst, så bør du droppe dine vbCrLf'ere, når det er et html-dokument mailen skal være og ikke bare en tekst-mail...

\Dan
Avatar billede j-roar-h Nybegynder
02. februar 2010 - 15:01 #6
Nu tror jeg, jeg har lavet rod i det... Det virker i hvert fald ikke mere.

Mailen ryger igen i uønsket, og der kommer ikke noget indhold i mail der bliver sendt.

Ved du hvordan jeg får en css på mail, så jeg kan style fonten i mailen?

Min kode ser nu sådan ud, og højst sandsynligt forkert.

<%   
   
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request.form("emne")
Mailer.FromName = Request.form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = Request.form("mail")
Mailer.ContentType = "text/html"
msg = "<html><body>"
msg = msg & "Hej " & Request.form("navn") & "<br>" & "<br>"
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt." & "<br>" & "<br>"
msg = msg & "Du har indtastet følgende:" & "<br>" & "<br>"
msg = msg & "<strong>Email:</strong> " & "<br>" & Request.form("mail") & "<br>" & "<br>"
msg = msg & "<strong>Besked:</strong> " & "<br>" & Request.form("besked") & "<br>" & "<br>"
msg = msg & "<html><body><strong>Med venlig hilsen</strong><br>Ringsted Tennisklub<br><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif""><p></body></html>" & "<br>"
msg = msg & "</body></html>"
Mailer.BodyText = msg


if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>" & replace(msg,vbCrLf,"<br>") & "</p>"
end if
%>
Avatar billede Slettet bruger
02. februar 2010 - 15:44 #7
Tjae... nu har du jo "<html><body>" stående to steder i din mail. Det skal KUN stå som det første...
Du har også "</body></html>" stående to steder, det skal KUN stå som det sidste!

Prøv dette her script i stedet:

<%   
   
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request.Form("emne")
Mailer.FromName = Request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = Request.Form("mail")
Mailer.ContentType = "text/html"
Mailer.BodyText = "<html><body><span style=""font-family: Arial, Verdana, font-size: 12px; color: #000000;"">"
Mailer.BodyText = Mailer.BodyText & "Hej " & Request.Form("navn") & "<br><br>"
Mailer.BodyText = Mailer.BodyText & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt.<br><br>"
Mailer.BodyText = Mailer.BodyText & "Du har indtastet følgende:<br><br>"
Mailer.BodyText = Mailer.BodyText & "<strong>Email: </strong><br>" & Request.Form("mail") & "<br><br>"
Mailer.BodyText = Mailer.BodyText & "<strong>Besked: </strong><br>" & Request.Form("besked") & "<br><br>"
Mailer.BodyText = Mailer.BodyText & "<strong>Med venlig hilsen</strong><br>Ringsted Tennisklub<br><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
Mailer.BodyText = Mailer.BodyText & "</span></body></html>"


if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>" & replace(msg,vbCrLf,"<br>") & "</p>"
end if
%>

\Dan
Avatar billede Slettet bruger
02. februar 2010 - 15:45 #8
Som du kan se i mit eksempel er der også lagt en style ind, css om man vil... Den kan selvfølgelig ændres med de ting, som der nu skal være der.
Avatar billede j-roar-h Nybegynder
02. februar 2010 - 15:50 #9
har nu prøvet at sætte dit script ind, men får denne fejlmeddelse:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BodyText'

/webmaster.asp, line 76

I linje 76 står der:

Mailer.BodyText = Mailer.BodyText & "Hej " & Request.Form("navn") & "<br><br>"
Avatar billede Slettet bruger
02. februar 2010 - 16:16 #10
hmm... fair nok... så prøv med denne her i stedet:

<%   
   
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request.Form("emne")
Mailer.FromName = Request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = Request.Form("mail")
Mailer.ContentType = "text/html"
msg = "<html><body><span style=""font-family: Arial, Verdana, font-size: 12px; color: #000000;"">"
msg = msg & "Hej " & Request.Form("navn") & "<br><br>"
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt.<br><br>"
msg = msg & "Du har indtastet følgende:<br><br>"
msg = msg & "<strong>Email: </strong><br>" & Request.Form("mail") & "<br><br>"
msg = msg & "<strong>Besked: </strong><br>" & Request.Form("besked") & "<br><br>"
msg = msg & "<strong>Med venlig hilsen</strong><br>Ringsted Tennisklub<br><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</span></body></html>"
Mailer.BodyText=msg

if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>" & replace(msg,vbCrLf,"<br>") & "</p>"
end if
%>

\Dan
Avatar billede j-roar-h Nybegynder
02. februar 2010 - 16:33 #11
Det virker stadig ikke korrekt. Den sender ikke det man har indtastet i formlen med, og fonten ændre sig heller ikke. Mailsne ryger igen i uønsket.

Kan det være fordi vbCrLf er blevet fjernet, og det stadig står i denne linje:
Response.Write "<p>Følgende er blevet indtastet</p><p>" & replace(msg,vbCrLf,"<br>") &
Avatar billede Slettet bruger
02. februar 2010 - 18:29 #12
hmm... ok...

Så er jeg nød til at skal vide hvilken komponent du bruger...
Så prøver jeg lige at lave et helt nyt script fra bunden...
Avatar billede j-roar-h Nybegynder
02. februar 2010 - 19:07 #13
Jeg bruger serverobject aspmail.
Avatar billede j-roar-h Nybegynder
03. februar 2010 - 15:45 #14
er det det du skal vide? eller er det ikke komponenten?
Avatar billede j-roar-h Nybegynder
05. december 2010 - 10:33 #15
Lukker
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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP 6 09/03/202418:16 10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
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 dag 14:35 eftersøger pinnacle14 ultimate Af Janove i Foto & video
I dag 13:45 Langsom forbindelse gennem ethernetkabel Af Esben i LAN/WAN
I går 23:37 Poe strøm Af lurup i LAN/WAN
I går 14:46 GIF-EDITOR Af snestrup2000 i Billedbehandling
I går 14:03 Logge ind Af Bob i PC
White papers
Flere white papers »


Premium
Teaser billede
Danmarks to store it-styrelser skal reduceres markant: Skal samlet sige farvel til hver fjerde stilling i de kommende år
Læs mere »
Nu når en af Danmarks helt store GDPR-retssager til vejs ende: Står over for bødekrav på 800.000 kroner
Regeringen vil reducere bevilling til Datatilsynet med millioner: Skal bruge væsentligt færre penge på løn og tilsyn
Selskab med 40.000 ansatte dropper VMware efter ballade - vælger anden løsning
Se alle »
Computerworld
Teaser billede
Næste måned skifter din iPhones Apple-id til et nyt navn
Læs mere »
Nærmest selvkørende: Jeg kørte fra Roskilde til København uden at røre rattet
Test: Denne laptop rammer plet - er utrolig slank men alligevel utrolig stærk
Test af Tesla Model 3 Performance: Aldrig har man fået så meget sportsvogn til så få penge
Se alle »
CIO
Teaser billede
Professor: "Det er på høje tid at opløse virksomhedernes it-afdelinger"
Læs mere »
DSB køber cloud-løsning til 420 millioner kroner af hollandsk it-selskab: Skal afløse 30 år gammelt system
Detailkæde har mistet over 65 millioner kroner efter cyberangreb – kræver erstatning fra it-leverandør
Topchef: Public cloud er alt for dyrt og besværligt - fremtiden for virksomhederne er et helt andet sted
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
KMD-direktør forlader selskabet: Det skal hun nu
Professor: "Det er på høje tid at opløse virksomhedernes it-afdelinger"
Til åbningsfest i det nye NNIT-hovedkontor: ”Som at flytte til New York sammenlignet med der hvor vi kommer fra” - se billederne
Se alle »
White paper
Teaser billede
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Læs mere »
Sikkerhed uden grænser: Cisco Hypershield
SASE: Træf det rette valg – første gang
Optimering af Source-to-Pay: Identificér oplagte gevinster og skær omkostninger
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »