Søg
Avatar billede tinem Novice
04. april 2006 - 13:24 Der er 8 kommentarer og
1 løsning

JMail hos Azero smider mails væk - hvordan tester jeg det?

Jeg har haft en længere mailudveksling med Azero ang. dette problem, da det kun findes hos dem. De vil ikke ændre dette, hvilket jeg synes er meget mærkeligt. Jeg er ikke særlig skrap til at programmere og finder derfor gerne pakkeløsninger, som andre har programmeret, hvor jeg så tilretter. Jeg har nu det problem, at jeg gerne vil have testet, hvad problemer det giver at bruge JMail. De 2 pakkeløsninger som jeg skal bruge det på er:

http://www.ocean12scripts.com/support/docs/?ID=mailinglist og
http://forum.snitz.com/

Hvordan finder jeg ud af hvor mange/hvor lidt mails der bliver sendt?

Tænk på alle de mennesker, som IKKE får læst disse informationer om JMail på Azero. De lever jo i lykkelig uvidenhed med, at nogle af deres medlemmer måske ikke får disse mails.:-(



http://azero.dk/support/programmering/asp/artikler/jmail/

------ indsat ------
Azero skriver:
Det med den 22. e-mail som forsvinder er noget vi har testet
os frem til for lang tid siden. Det er muligt værdien er højere
nu end dengang. Du bør dog regne med 22 for at være på den
sikre side.

Selve begrænsningen kommer sig af indstillingerne på websmtp
servicen, det er ganske rigtig noget vi selv sætter. Simpelthen
for at undgå overbelastning af servicen.
------ indsat ------

/Tine
Avatar billede hnteknik Novice
04. april 2006 - 17:21 #1
Tine - jeg har flere mail scrips kørende hos Azero uden problemer. Script kommer om lidt
Avatar billede hnteknik Novice
04. april 2006 - 17:37 #2
set SendMailRecord = conn.execute( SQLAll & sikniv)
                       
                if (SendMailRecord.BOF Or SendMailRecord.EOF) then
                    Response.Write "<tr><td colspan='3' align='center' class='searchbg'><h2>Der var ingen email adresser i brugerlisten ?!</h2></td></tr></table>"
                else
                    mailnr=1
                    Response.Write"<tr><td colspan='3' align='center' class='searchbg'>"
                    Response.Write "<h4>Meddelelse er sendt til : "  & "</h4>"
                    Response.Write "</td></tr>"
                    Server.ScriptTimeout =3600
                   
                    do while not SendMailRecord.eof
                        Navn= SendMailRecord("FULDE_NAVN")
                        Email= SendMailRecord("Emailad")
                        'subject= Request.Form("subject")
                       
                       
                        if Request.Form("htmltxt")="htmltxt" then
                            Mailtype=2
                            BodyTextto = "<HTML><BODY>"
                            BodyTextto = BodyTextto + "Hej " & Navn & "<BR><BR>" & bodytext & "<BR><BR>" & "<hr>"
                            BodyTextto = BodyTextto + "Denne mail er sendt fra nyhedstjenesten på www.xxx.dk"
                            BodyTextto = BodyTextto + "<BODY><HTML>"
                        else
                            Mailtype=1
                            BodyTextto = "Hej " & Navn & vbCrLf & vbCrLf & bodytext & vbCrLf & vbCrLf &_
                            "-------------------------------------------------------------" & vbCrLf &_
                            "Denne mail er sendt fra nyhedstjenesten på www.xxx.dk"               
                        end if
                        %>
                          <!--#include file="mailsend.asp" -->
                          <%
                        Response.Write"<tr><td align='center' class='searchbg'>"
                        Response.Write "Mail : " & mailnr & "</td><td align='center' class='searchbg'>" & SendMailRecord("FULDE_NAVN") & "</td><td align='center' class='searchbg'>" & SendMailRecord("emailad") &"</td></tr>"
                        SendMailRecord.movenext
                        IF (mailnr mod 20=0) THEN
                            If Response.isclientconnected()=false THEN
                                Response.Write "Vi tabte forbindelsen .... "
                                EXIT DO
                            END IF
                            Response.Write "</table>"
                            Response.Write "<table width='85%' summary='table' cellpadding='0' cellspacing='2' border='0' bgcolor='#006699' align='center'>"
                            Response.Write "<TR><TD>"
                            Response.Write "Vi venter lige ...." & MailDelay & " secs"
                            Response.Write "</TD></TR>"
                            Response.Write "</table>"
                            Response.Write "<table width='85%' summary='table' cellpadding='0' cellspacing='2' border='0' bgcolor='#006699' align='center'>"
                            Response.flush
                            Delay(MailDelay)
                        END IF
                        mailnr = mailnr+1
                    loop
                    Response.Write "</table>"
                end if
            end if

--------------

maildelay er blot for at bryde session hos modtager. 5-10 sek gør, at modtageres spamfilter tillader det at kommer igennem ;-)))

Mailsend includefilen er helt straight jmail kode
Avatar billede hnteknik Novice
04. april 2006 - 17:47 #3
Du får lige jmail koden her. Jeg lukker hver gang jeg sender en mail. Jeg kan sende over 1500 mails inden for 1-2 minutter. Ofter er det spamfiltret hos modtager, der begrænser.

'__________________________________________________________________________________________
    Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' Set logging to true to ease any potential debugging
        ' And set silent to true as we wish to handle our errors ourself
        JMail.Logging = true
        JMail.silent = true
       
        JMail.ServerAddress = "websmtp.xxx.dk"
        JMail.SenderName     = "xxx NYT"
        JMail.Sender        = "admin@xxx.dk"
        JMail.Subject      = subject
        JMail.AddRecipient  Email
        JMail.Priority      = 3
        JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
        if Mailtype=1 then
                JMail.Body=BodyTextto
        else
                JMail.HTMLBody = BodyTextto
        end if
        if not JMail.Execute then
            Response.write "<pre>" & JMail.log & "</pre>"
        else
            'Response.write "Mail OK"
            'Response.write Email  & "<b>"
            'Response.write subject  & "<b>"
            'Response.write BodyTextto
        end if
        JMail.close
        set JMail = nothing
Avatar billede hnteknik Novice
04. april 2006 - 17:51 #4
Du får også lige maildelay selvom du ikke lige har brug for den her. God for at kunne komme igennem spamfilteret:

MailDelay=Request.Form("MailDelay")
Sub Delay(DelaySeconds)
    SecCount = 0
    Sec2 = 0
    While SecCount < DelaySeconds + 1
          Sec1 = Second(Time())         
          If Sec1 <> Sec2 Then
              Sec2 = Second(Time())
              SecCount = SecCount + 1
          End If
    Wend
End Sub
Avatar billede tinem Novice
04. april 2006 - 19:25 #5
Tak for dine svar, MEN hvordan finder jeg så ud af hvor/hvad jeg skal indsætte i hvilke filer til nedenstående

http://www.ocean12scripts.com/support/docs/?ID=mailinglist og
http://forum.snitz.com/

Hvad skal jeg søge på, for at finde den fil som jeg skal indsætte koderne i, for at der skal sendes til ALLE?

På Azeros side står der jo:
For i = 1 to intCount
  If Not JMail.Execute Then
    Response.Write("ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf)
    Response.Write("ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf)
    Response.Write("LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf)
  End If
  If CInt(i/20) = i/20 Then JMail.Close
Next
Avatar billede hnteknik Novice
04. april 2006 - 19:44 #6
Du skal finde det loop som sender mails ud.

Hvis du - som jeg gør for oven - lukker efter hver mail udsendt, så har du ikke noget problem. Hvis du har behov for at se, om alle mails kommer ud, så må du lave en løkke som skriver alle mail adresser ud med et ok for sendt.

Som sagt - jeg har et close for hver mail udsendt og jeg sender ofte 2000 mails ud uden problemer fra Azeros mailservere. Problemet ligger i spamfiltret hos modtageren , hvis alle mails går igenne samme filter.

Jeg har ikke mulighed for at gennemgå ovennævnte mails. beklager.
Avatar billede tinem Novice
05. april 2006 - 07:22 #7
>>>>Du skal finde det loop som sender mails ud.
Kan du hjælpe mig med helt nøjagtigt HVAD jeg skal søge efter?

>>>>Jeg har ikke mulighed for at gennemgå ovennævnte mails. beklager.
Jeg forstår ikke hvad du mener med ovennævnte MAILS?

Skal det forstås sådan, at hvis man har anskaffet en programpakke med filerne, som jeg har gjort til bl.a. http://www.ocean12scripts.com/support/docs/?ID=mailinglist og
http://forum.snitz.com/ som bruger JMail og Azero, så vil de komme ud for dette problem med at ikke ALLE får en mail, da de jo sikkert ikke kender til problemet med en dansk udbyder som Azero?
Avatar billede hnteknik Novice
05. april 2006 - 12:39 #8
> du kan ikke forvente, at jeg går ind og kigger i noget andet kode. Det har jeg ikke tid til. (mails- mailkode). du må selv gå ind og checke i koden om de to anvender en .close for hver mail udsendt.
Avatar billede hnteknik Novice
28. juni 2006 - 12:13 #9
Lukker du ?
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:10 WWAN kort i bærbar Af Gamba i PC
I går 15:46 DBA er ikke hvad det var Af ErikHg i Fri debat
05/0712:15 Totalslette bærbar med Linux Mint Af mort1 i Linux
05/0712:05 Safe Boot, er det et godt rep. værktøj? Af Uvanga i Windows
05/0711:36 strømforsyningstester Af dcedata1977 i PC
White papers
Flere white papers »