J-mail igen

Thread View: dk.edb.internet.webdesign.serverside

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Is Mon, 18 Oct 2010 20:16

#449

Author: 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)
%>

Re: J-mail igen

#450

Author: Is
Date: Tue, 19 Oct 2010 19:16

26 lines
1833 bytes

Den 18-10-2010 22:16, Is skrev:
> 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


kan jeg lave nogle midlertidige stop    ???????

enten ved at inds�tte en "timer"

eller lave en "confirm"

s� kan jeg m�ske derved finde fejlen.

mvh Erik

Re: J-mail igen

#451

Author: Is
Date: Tue, 19 Oct 2010 20:45

67 lines
2751 bytes

Jeg har fundet ud af hvad der gentager mailen

JMail.Execute

efter jeg har fjernet den, kommer der kun en mail
men hvad bruger man den s� til ????


mvh Erik







> 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)
> %>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads