🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: dk.edb.internet.webdesign.serverside
Article #449

J-mail igen

#449
From: Is
Date: Mon, 18 Oct 2010 20:16
73 lines
2997 bytes
Hej igen

jeg havde i en periode hen over sommeren store problemer med af f� disse 
frem. men der er l�st nu

Nu er problemet at mailen bliver fordoblet, d.v.s. at jeg f�r to mail 
hver gang der bliver sendt en. (tror jeg nok)

Men hvordan finder jeg frem til �rsagen  ???

Fordi jeg har haft s� mange problemer, har jeg lavet s� indholdet af det 
der sendes gemmes i en database.

mvh Erik

den sidste del af koden er her.


   Set JMail           = Server.CreateObject("JMail.SMTPMail")



   JMail.Logging = True
   JMail.Silent = True

   JMail.ServerAddress = "websmtp.dch-haslev.dk"

   JMail.Charset = "iso-8859-1"
   JMail.ContentTransferEncoding = "8bit"
'  JMail.Message.ReplyTo = "dch-haslev@dch-haslev.dk"

   JMail.Message.ReplyTo = strEmail
   JMail.Sender        = "dch-haslev@dch-haslev.dk"
   JMail.Subject       = "Indmeldelse fra hjemmesiden"
   JMail.AddRecipient  strModtager
   JMail.AddRecipientBCC strEmailBCC1
'  JMail.AddRecipientBCC strEmailBCC2
'  JMail.AddRecipientBCC strEmailBCC3
   JMail.Priority      = 3
   JMail.AddHeader     "Originating-IP", 
Request.ServerVariables("REMOTE_ADDR")





   ' ********** Her starter selve email-en
    JMail.Body = body_text
   ' ********** Her slutter selve email-en
	JMail.Execute
	
'    test stop efter Execute
'	response.write "ReplyTo  " & strEmail & "<br>"
'	response.write "Mail er netop afsendt  " & strModtager & "<br>"
'	response.end
'    test stop efter Execute slut
	
	
   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
   Else
     Response.Write "<html><body>Emailen er sendt igen !</body></html>"

'	response.end
'    test stop efter Execute slut
   End If

   Set JMail = Nothing
	
	Response.Redirect ("tak.asp?hunden=" & strHundnavn)
%>
Technical Details
Message-ID: <4cbcab0c$0$23755$14726298@news.sunsite.dk>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!goblin1!goblin2!goblin.stu.neva.ru!news.net.uni-c.dk!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: 855c6d7664,b6c164725a8396b6,start
X-Google-Attributes: gid855c6d7664,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: DANISH,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!news2.google.com!goblin1!goblin2!goblin.stu.neva.ru!news.net.uni-c.dk!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
Date: Mon, 18 Oct 2010 22:16:13 +0200
From: Is <erikisager@mail.dk>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; da; rv:1.9.2.9) Gecko/20100915 Thunderbird/3.1.4
MIME-Version: 1.0
Newsgroups: dk.edb.internet.webdesign.serverside
Subject: J-mail igen
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Lines: 73
Message-ID: <4cbcab0c$0$23755$14726298@news.sunsite.dk>
Organization: SunSITE.dk - Supporting Open source
NNTP-Posting-Host: 93.166.57.168
X-Trace: news.sunsite.dk DXC=B1l7gM?AW864KInH<KUX42YSB=nbEKnk;OoZn^kHoPe8m?_8IKE8UT6eMGJZPcZga?6Bjai]Q1fF0\NiUE=T]Zk2dlEG1hi;^6:
X-Complaints-To: staff@sunsite.dk