--- title: "ASP Email -- hur fungerar det!?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/191051-asp-email-hur-fungerar-det" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "civilpolisen" published: "2013-01-10T13:25:56.000Z" updated: "2013-01-11T15:01:10.000Z" replies: 8 views: 1497 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/191051-asp-email-hur-fungerar-det" --- # ASP Email -- hur fungerar det!? ## #1 — civilpolisen, 2013-01-10T13:25Z 154 = Mail.Send ' send message > Persits.MailSender.4 error '800a0019' > > Connect has been reset by server. > > /admin/open.asp, line 154 ``` ' ## M A I L = ASP-EMAIL FUNCTION funcSendASPEmail(strSubject, strText, strSender, strReciver) IF strText <> "" THEN ' ## SEND MAIL TO HOST Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = "pop3." & session("strDomainName") Mail.From = strSender ' From address Mail.FromName = "No reply" ' optional Mail.AddAddress strReciver ' message subject Mail.Subject = strSubject & " - " & Request.ServerVariables("SERVER_NAME") ' message body Mail.Body = strText & vbCRLF & vbCRLF _ & "* * * * * * * * * * * * * * * * * * * * * * * * *" & vbCRLF _ & "Code found in file:" & vbCRLF _ & Request.ServerVariables("SERVER_NAME") & " " & Request.ServerVariables("PATH_INFO") _ & vbCRLF & "See form at:" & vbCRLF & Request.ServerVariables("HTTP_REFERER") strErr = "" bSuccess = False ' On Error Resume Next ' catch errors 154 = Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If END IF END FUNCTION ``` Permalänk: https://www.webforum.nu/p/191051 ## #2 — Quid, 2013-01-10T14:14Z På *Mail.Host* måste du skriva in den server som du har tänkt att skicka med. Permalänk: https://www.webforum.nu/p/2307258 ## #3 — civilpolisen, 2013-01-11T12:50Z Allright. Har du något förslag på någon som fungerar? Jag borde givetvis konsultera Binero med dessa frågor, vilket jag också har gjort, men i mina ögon är det enda de klarar av att leverera utan anmärkning är besvikelse. Jag vet att jag är rätt ensam på detta forumet om att tycka att Bineros support har "goda utvecklingsmöjligheter". Jag tyckte det i somras, trots förnyad kontakt i olika ärenden har inget uppenbart fått mig att revidera detta intryck. Snarare tvärt om. Permalänk: https://www.webforum.nu/p/2307282 ## #4 — noshornin, 2013-01-11T13:14Z Frågan är väll om du har satt session("strDomainName") till ditt domännamn? din mejl värd är förmodligen pop3.dindomän.se. Permalänk: https://www.webforum.nu/p/2307283 ## #5 — voigtann1, 2013-01-11T13:44Z > **[noshornin skrev:](https://www.webforum.nu/p/1557858)** > > Frågan är väll om du har satt session("strDomainName") till ditt domännamn? din mejl värd är förmodligen pop3.dindomän.se. Det få man hoppas ju :) Har du även kontrollerat att du skickar in strSender och strReciver så de har ett värde? Din funktion retunera inget värde, vet inte om det är meningen eller om du ville retunera **bSuccess**, men du borde även stänga ner objektet **Mail** när du är färdig med den. Permalänk: https://www.webforum.nu/p/2307284 ## #6 — civilpolisen, 2013-01-11T14:14Z sessionen fungerar, det har fungerat i 8 år, så det är inte problemet. Jag har tagit koden från [denna sidan](http://www.aspemail.com/manual_02.html), manualen, efter halva sidan ungefär. Till saken hör att kunden inte har e-post hos Binero utan någon annan stans och jag vet inte var. Jag prövade att sätta upp ett eget konto på min domän men det fungerade i alla fall inte. Jag har konsulterat supporten men då jag postar detta har deras assistans inte varit av tillräcklig hjälp att få det att fungera. Jag vet inte vad poängen är att byta till denna mailkomponent. Vad var det för fel på CDONTS ??? Det fungerade ju i alla fall... Permalänk: https://www.webforum.nu/p/2307285 ## #7 — voigtann1, 2013-01-11T14:31Z Som Anders skrev i: > I Binero 2.0 krävs det tyvärr att du skickar med autentiseringsuppgifter. Jag provade med: ``` Mail.Username = "minepost@xxxx.com" Mail.Password = "******" Mail.Port = 25 Mail.Host = "smtp01.binero.se" ``` (där username och lösenordet är för mitt epost konto hos binero) och fick mail. Permalänk: https://www.webforum.nu/p/2307286 ## #8 — civilpolisen, 2013-01-11T14:56Z Tack!! Verkar vara mer än Binero klarar att hjälpa med! ``` Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'Mail.AddAddress' /admin/open.asp, line 148 ``` Om man tittar i [manualen](http://www.aspemail.com/manual_02.html) så ser man att AddAddress är rakt av från koden: Mail.AddAddress "civilpolisen@domän.se" Hur kan det bli felmeddelande med kod från manualen!? Permalänk: https://www.webforum.nu/p/2307287 ## #9 — voigtann1, 2013-01-11T15:01Z > **[civilpolisen skrev:](https://www.webforum.nu/p/1557862)** > > Tack!! > Verkar vara mer än Binero klarar att hjälpa med! Inte för att vara sådan, men nu få du ge dig, jag kontaktade Binero och frågade om Persits.MailSender och fick alla uppgifter jag har gett. Jag körde din kod rakt upp och ner på Binero 2.0 och det gick inte, men Anders svar gav en bra fingervisning på vad man behövde fixa. Jag har fått alla mail med DIN funktion om bara man la in kod stycket: ``` <% ' ## M A I L = ASP-EMAIL FUNCTION funcSendASPEmail(strSubject, strText, strSender, strReciver) IF strText <> "" THEN ' ## SEND MAIL TO HOST Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = strSender Mail.Password = "xxxxxxx" Mail.Port = 25 Mail.Host = "smtp01.binero.se" Mail.From = strSender ' From address Mail.FromName = "No reply" ' optional Mail.AddAddress strReciver ' message subject Mail.Subject = strSubject & " - " & Request.ServerVariables("SERVER_NAME") ' message body Mail.Body = strText & vbCRLF & vbCRLF _ & "* * * * * * * * * * * * * * * * * * * * * * * * *" & vbCRLF _ & "Code found in file:" & vbCRLF _ & Request.ServerVariables("SERVER_NAME") & " " & Request.ServerVariables("PATH_INFO") _ & vbCRLF & "See form at:" & vbCRLF & Request.ServerVariables("HTTP_REFERER") strErr = "" bSuccess = False ' On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If END IF END FUNCTION t = funcSendASPEmail("test", "hej", "min-epost@doman.se", "motagare@doman.se") %> ``` är den koden jag testade. Permalänk: https://www.webforum.nu/p/2307288 --- Tråden på webben: https://www.webforum.nu/amne/asp/191051-asp-email-hur-fungerar-det