[ASP] Vreemd probleem met zenden van e-mails via CDO.Message

[Urk]

Ik heb onderstaande code:

ASP:

'Send e-mail to company
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = Request.Form("email") & " (" & Request.Form("name") & ")"
MyMail.To = Application("emailaddress")
MyMail.Subject = "E-mail from website"
BodyText = "The message below was send from the website on " & Now() & " by " & Request.Form("name") & " (" & Request.Form("email") & ") from country " & Request.Form("country") & "." & vbCrlf & vbCrlf
BodyText = BodyText & "--------------------------------------------------------------------------" & vbCrlf & vbCrlf
BodyText = BodyText & Request.Form("message")
MyMail.TextBody = BodyText
Set MyMail = Nothing

'Send e-mail to recipient
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = "[e-mail] (Bedrijfsnaam)"
MyMail.To = Request.Form("email")
MyMail.Subject = "Website e-mail form"
BodyText = "Your message below was send to Bedrijfsnaam on " & Now() & "." & vbCrlf
BodyText = BodyText & "Bedrijfsnaam will contact you soon regarding your message." & vbCrlf & vbCrlf
BodyText = BodyText & "--------------------------------------------------------------------------" & vbCrlf & vbCrlf
BodyText = BodyText & Request.Form("message")
MyMail.TextBody = BodyText
MyMail.Send()
Set MyMail = Nothing

Deze ASP code stuurt 2 e-mails vanaf een ingevuld formulier op een website, 1 e-mail naar de ontvanger ter bevestiging en 1 naar het bedrijf waarvoor de e-mail bestemd is.
Het vreemde is dat dit prima werkte, een paar maanden geleden heb ik dit ontwikkeld en getest met het bedrijf, alles werkte toen prima.
Nu werkt het opeens niet meer, de code stuurt alleen nog de tweede e-mail, maar niet de eerste!

Ook het omdraaien van de code maakt niet uit.

De e-mail word via de IIS SMTP service via een smarthost lokaal door MDaemon verstuurd. In de log van MDaemon was alleen de eerste e-mail zichtbaar. De tweede niet!
Omdat ik eerst dacht dat het aan MDaemon lag heb ik ervoor gezorgd dat de IIS SMTP service direct de e-mails zelf verzend, ook dan word de eerste e-mail niet verstuurd en de tweede wel!

Alles draait onder Windows 2000 Server. Zowel op de live server als de ontwikkelserver (beide Win2k Server) gaat het niet goed.

Ook in de Windows Event Viewer is niks te zien hierover.

Heel vreemd dus allemaal, en dit lijkt wel op een bug.
Heeft iemand enig idee?

[gorgi_19]

Je mist eenmaal een MyMail.Send()

[RobIII]

gorgi_19 schreef op dinsdag 22 februari 2005 @ 12:33:
Je mist eenmaal een MyMail.Send()

/edit
laat maar

[ Voor 7% gewijzigd door RobIII op 22-02-2005 12:34 ]

[Urk]

gorgi_19 schreef op dinsdag 22 februari 2005 @ 12:33:
Je mist eenmaal een MyMail.Send()

T*ring wat lomp!!
Sjonge jonge, loop ik me blind te starten, is het gewoon zoiets simpels! Kan je nagaan hoe snel je iets makkelijk over het hoofd kan zien

Hartelijk dank voor het wijzen op mijn stommiteit!

[Gert]

Tijd dus om dit in een functie sendMail(sendTo, body) te stoppen.

Hoe kan code trouwens zomaar in de loop van de tijd uit zichzelf veranderen?

[RobIII]

Gert schreef op dinsdag 22 februari 2005 @ 13:01:
Hoe kan code trouwens zomaar in de loop van de tijd uit zichzelf veranderen?

• Self modifying code
• Virus
• Find en Replace op complete directories heb ik nog wel eens voor elkaar gekregen
• Vergeetachtige programmeurs
• ...?

En meestal is het die 4e

[ Voor 18% gewijzigd door RobIII op 22-02-2005 13:16 ]

[sopsop]

RobIII schreef op dinsdag 22 februari 2005 @ 13:15:
En meestal is het die 4e

En die personen van die 4e roepen allemaal om de beurt en heilig overtuigd de overige mogelijkheden (met name de 5e)

[Urk]

Ik weet nu achteraf hoe het komt dat het Send commando was verdwenen!
Dat had ik natuurlijk zelf gedaan, wilde iets testen zonder steeds een mail te verzenden, blijkbaar heb ik het wel weer aangezet voor de tweede mail maar dus niet voor de eerste...