--- title: "Kolla mail från ASP-sida" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13793-kolla-mail-från-asp-sida" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "janfang" published: "2002-01-07T10:56:00.000Z" updated: "2002-01-16T02:03:00.000Z" replies: 13 views: 367 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/13793-kolla-mail-från-asp-sida" --- # Kolla mail från ASP-sida ## #1 — janfang, 2002-01-07T10:56Z Hej, Kan man kolla om man fått mail från en ASP-sida? Alltså anropa en POP-server för att kolla om man fått ngt mail. Går detta? / Jan. Permalänk: https://www.webforum.nu/p/13793 ## #2 — @nders, 2002-01-07T11:08Z Det gör att lösa, men jag tror minsann du måste installera någon form av komponent på servern. En komponent som hjälper dig att lösa problemet är JMail. Mer information om denna komponent hittar du på [www.dimac.net](http://www.dimac.net) . Mvh, Permalänk: https://www.webforum.nu/p/303977 ## #3 — janfang, 2002-01-07T11:11Z Jag har Jmail på servern, ska kolla på din länk. Jag har letat efter Jmail:s hemsida, tackar! Red. Har hittat funktionen, den heter Jmail.POP3: Det finns mer information på: [Jmails hemsida](http://tech.dimac.net/isapiscript.dll?action=read&id=32584&refId=32592) \[Redigerat av janfang den 07 jan 2002\] Permalänk: https://www.webforum.nu/p/303978 ## #4 — Bob, 2002-01-08T03:40Z Har du kommit på hur du tar fram hur många olästa e-post det finns i inboxen? Jag har tittat runt på sidan du anger ovan men hittar inget. Kanske är jag för trött... :) Men hur som helst skulle jag vara tacksam om någon kunde hjälpa mig. \-Bob \[Redigerat av Bob den 08 jan 2002\] Permalänk: https://www.webforum.nu/p/303979 ## #5 — PatrikB, 2002-01-08T12:20Z Metoden: DownloadUnreadMessages() borde funka att få tag på olästa meddelanden eftersom alla medellanden som tankas hem bockas av som lästa på servern cya, PatrikB Permalänk: https://www.webforum.nu/p/303980 ## #6 — Bob, 2002-01-14T06:13Z vad jag skulle vilja göra är endast en "förhandsgranskning" av olästa emila på servern. om någon loggar in på vår "arbetsplats" så vill jag att det på startsidan som den ny-inloggade skickas till ska stå ungefär "Du har 8 st nya mail i din inbox". Om personen inte väljer att kolla inboxen vid denna tidpunkt utan istället loggar ut så vill jag att det även nästa gång ska stå "Du har 8 st nya mail i din inbox". Men om jag redan har tankat ner alla UnReadMessages så blir det inte så? Eller? hoppas ni förstår vad jag menar... Permalänk: https://www.webforum.nu/p/303981 ## #7 — PatrikB, 2002-01-14T07:05Z om du tankar ned alla meddelanden så blir de "av flaggade". Undrar om inte [DownloadHeaders()](http://tech.dimac.net/isapiscript.dll?action=read&id=32584&refId=32592#DownloadHeaders) funkar som du vill. Bara att testa ..... har inte gjort det själv. Återkom med testresultat cya, PatrikB Permalänk: https://www.webforum.nu/p/303982 ## #8 — OveRRidE, 2002-01-14T19:18Z Jag har skrivit ett eget ganska enkelt webbmail-gränssnitt till just denna komponent, jag återkommer med kod. Permalänk: https://www.webforum.nu/p/303983 ## #9 — OveRRidE, 2002-01-14T19:25Z Ok då kör vi. ``` <% Dim myPath myPath = Server.MapPath("\data\data.mdb") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open ("driver={Microsoft Access Driver (*.mdb)};dbq=" & myPath ) Set RecSet = Connect.Execute("SELECT * FROM mail_uppg WHERE namn = '" & session("username") & "' ") if recset.eof then response.redirect "/sys/sys_felmess.asp?mess=Du har inte något e-postkonto konfigurerat på servern eller så har du angivit felaktiga uppgifter under Din Profil." response.end end if Set pop3 = Server.CreateObject("JMail.POP3") pop3.Connect recset("user"), recset("passw"), recset("pop3server") 'Verifiera att ämne eller avsändare inte är tomma, isf ersätt med textsträng function chkFieldNotEmpty(strSubj) if strSubj = "" then chkFieldNotEmpty = "(Inget)" else chkFieldNotEmpty = strSubj end if end function %> inbox
<% If pop3.count > 0 then %> <% Do Until i = pop3.count i = i + 1 Set msg = pop3.Messages.item(i) %> <% Loop End If %>
Inbox
Du har <%=pop3.count%> nya meddelanden i din inbox.
  Från Ämne E-post Datum
<%=chkFieldNotEmpty(msg.FromName)%> <%=chkFieldNotEmpty(msg.Subject)%> <%=msg.From%> <%=msg.Date%>
 
<% pop3.Disconnect RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing %> ``` Denna kod förutsätter att du hämtar inloggningsnamn, lösenord och pop-server ur en databas, som görs på denna raden: ``` pop3.Connect recset("user"), recset("passw"), recset("pop3server") ``` Ersätt bara dessa tre bitar och inneslut user, psw och server i dubbelfnuttar ( " ). Sen är det en länk på varje "subject" som går till en annan sida, som visar det aktuella mailet, denna sida kan du enkelt snickra ihop med hjälp av den lysande manualen som finns att ladda ner på [tillverkarens hemsida](http://www.dimac.org). Lycka till! \[redigering\]Tilläggas kan även, att scriptet ovan inte hämtar ner mailen "permanent", utan lämnar dem på servern tills du hämtar dem med ett annat gränssnitt eller en mail-klient, t.ex. Outlook. Hur du flaggar av, raderar och fipplar vidare med mailen på servern står också i manualen.\[/redigering\] Permalänk: https://www.webforum.nu/p/303984 ## #10 — - Henke -, 2002-01-14T22:47Z Exakt var hittar ni den utmärkta manualen? Hittar inte ens msg.From osv på de sidor ni angett. Permalänk: https://www.webforum.nu/p/303985 ## #11 — OveRRidE, 2002-01-14T23:09Z Adressen i ovan inlägg var felaktig. Rätt adress skall givetvis vara eller . Håll till godo med manualen på sidan . Jag ändrade ovan i mitt inlägg med. Permalänk: https://www.webforum.nu/p/303986 ## #12 — janfang, 2002-01-15T09:33Z Manualen finns också utan PDF-format [här \>\>](http://tech.dimac.net/isapiscript.dll?action=read&id=32584). / Jan. Permalänk: https://www.webforum.nu/p/303987 ## #13 — doggelito, 2002-01-15T10:07Z duktdogge lär bara säga att eftersom dimac är svenskt så finns faktiskt adressen [www.dimac.se](http://www.dimac.se) Permalänk: https://www.webforum.nu/p/303988 ## #14 — Bob, 2002-01-16T02:03Z Jag har fortfarande inte lyckats visa antalet olästa meddelanden på servern. För tillfället använder jag koden nedan. En temporär lösning som visar antalet meddelanden i inboxen och berättar för användaren när sista e-postet inkom och med vilket ärende. ``` <% Set pop3 = Server.CreateObject( "JMail.POP3") pop3.Connect "username", "password", "mail.domain.com" Response.Write( "Du har " & pop3.count & " meddelanden i din inbox.
" ) if pop3.count > 0 then pop3.DownloadSingleHeader pop3.count 'förhindrar att meddelandet flaggas som läst Response.Write "Ditt senaste e-post inkom: " & pop3.Messages.item(pop3.count).Date Response.Write "
Med ärendet: " & pop3.Messages.item(pop3.count).Subject end if pop3.Disconnect %> ``` I mitt inlägg ovan har jag förklarat vad jag vill göra. Är det så svårt att få fram antalet olästa meddelanden? Eller har jag stirrat mig blind på deras manual, kanske svaret finns där framför ögonen på mig? :) Någon? PatrikB, tack för ditt tips om "DownloadHeaders"! Du har rätt att meddelandena inte blir 'avflaggade' när detta används. Finns det någon info i headern som talar om ifall meddelandet är flaggat som läst/oläst? Mvh, Bob Permalänk: https://www.webforum.nu/p/303989 --- Tråden på webben: https://www.webforum.nu/amne/asp/13793-kolla-mail-från-asp-sida