Toon posts:

[ASP/CDO] E-mail verzenden werkt niet meer

Pagina: 1
Acties:

Verwijderd

Topicstarter
Erg raar probleem:

We programmeren hier onze websites met ASP (VBScript). E-mail die vanaf een webpagina verzonden moet worden regelen we met CDONTS. Het geheel draait op Windows NT Server 4.0 en IIS 4.0

Dit heeft altijd goed gewerkt tot afgelopen vrijdag. Nu krijgen we ineens de melding:
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

email_lib.asp, line 296
De regel code waarover hij op z'n bek gaat is:
objEMail.send
De mail wordt dus niet meer verstuurd.

Ik heb de afgelopen 4 uur overal gezocht (MSDN, ASP sites, Google) op alle mogelijke combinaties van zoekopdrachten, maar nergens een oplossing te vinden.

Kan iemand me helpen?

  • Greyfox
  • Registratie: Januari 2001
  • Laatst online: 21:53

Greyfox

MSX rulez

Is er niet iemand die stiekum een service pack geinstalleerd heeft?

MSX 2 rulez more


Verwijderd

Topicstarter
Er zijn geen Windows NT Service Packs geinstalleerd, nee... (op SP 6 na dan, da's de laatste)

Maar hoezo? De downgrade naar een oudere service pack zou inderdaad voor problemen kunnen zorgen.

Of bedoel je geen WinNT SP?

Verwijderd

Topicstarter
Ff omhoog schoppen.. Net er nog 3 uur aan gezeten en nog niet opgelost... BOEHOE!

Iemand?

Verwijderd

hehehe kennet probleem :-)
hadden hier hetzelfde
kweet niet precies waar het inzit maar volgens mij is het een servicepack of een patch geweest, want wij krijgen het ook

iig, de oplossing:

zet bovenaan je file

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

Die libraries heb je nodig voor constantes die in onderstaande ASP code worden gebruikt.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
    .Item(cdoSendUsingMethod)        = cdoSendUsingPickup
    .Item(cdoSMTPServerPickupDirectory) = "c:\Inetpub\mailroot\Pickup"
    .Update
End With
    
Set objMsg               = Server.CreateObject("CDO.Message")
Set objMsg.Configuration = iConf  
    
With objMsg
    .To             = strRecipient
    .From           = strSender
    .Subject        = strSubject
    .HTMLBody       = strHTML
    .Send
End With

Set objMsg = Nothing

khep ff alle CDONTS code voor het versturen van een mailtje neergegooid, maar wat er dus nieuw is, is die Configuration, dat path naar je pickup directory is het default path dat IIS altijd neemt, neem aan dat dat bij jou hetzelfde is.

Succes.