Problema con Activex

[Norman Jones]

Ciao Davide,

'----------------
Ho un problema con una mia applicazione che funziona sia su XP che su win2K.
Entrambi hanno office 2003 ma mentre quella che lavora in XP non ha nessun
problema, quella che lavora in Win2K ha il seguente problema quando invio
una
mail.
Al seguente codice:

Set OutApp = CreateObject("Outlook.Application")

appare il messaggio di errore:

Errore Run Time 429
il componente Activex non è in grado di creare l'oggetto.

Ho visionato i riferimenti installati e sembrano tutti uguali quindi non
riesco a capire dove si trova l'errore.

Qualcuno sa dirmi perchè su Win2K l'aplicazione non funziona e come posso
fare per risolvere il problema?
'----------------

Set OutApp = CreateObject("Outlook.Application")

sia sotto xl2k che una versione piu' recente.

Sei sicuro che Outlook sia installato sul PC problematico?


---
Regards,
Norman

[Norman Jones]

Ciao Davide,

'----------------
Ciao Norman
ho provato l'applicazione su di un altro pc con Win2K ed è la stessa cosa
Errore run time 429 impossibile creare l'oggetto.

Su tutti i pc è installato office 2003 (compreso Outlook), sul mio con Xp
tutto funziona bene, su quelli dove vi è installato win2K l'applicazione non
funziona.

Come posso risolvere questo problema e a cosa è dovuto?
'----------------

Post by Norman Jones
Set OutApp = CreateObject("Outlook.Application")

su un PC che utilizza win2k come s.o. - sempre senza problema.

Comunque, vedi MS KnowledgeBase Articolo # 828550

You receive run-time error 429 when you automate Office applications
http://support.microsoft.com/kb/828550/en-us

Inoltre, prova ad utilizzare il metodo 'Early Binding":-

Nel VBA:

Menu | Strumenti | Riferimenti | Seleziona
"Microsoft Outlook 11 Object Library

Poi, nel tuo codice, sostituisci, le dichiarazioni del tipo:

Dim OutApp As Object
Dim OutMail As Object

Set OutMail = OutApp.CreateItem(0)

con:

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutMail = OutApp.CreateItem(olMailItem)

Se hai ancora un problema, potresti postare il tuo codice.


---
Regards,
Norman

[Norman Jones]

Ciao Davide,

Ho provato il tuo codice (sia con il cosidetto "Late binding" che con "Early
binding) su due PC che utilizzano Win2k; ho poi riprovato il codice sun un
altro PC che utilizza un s.o piu; recente. Non ho potuto riprodurre il tuo
problema.

Pero', io potevo riprodurre il tuo errore (Run-time error #429), sostituendo
Outlook con un programma non presente; ad esempio, sostituendo l'istruzione:

Set OutApp = CreateObject("Outlook.Application")

con

Set OutApp = CreateObject("Publisher.Application")


---
Regards,
Norman

[Norman Jones]

Ciao Davide,

'----------------
Ciao Norman, ma cosa intendi per non presenti?
Sui pc dove è installato win2k ed office 2003 Outlook funziona perfettamente
visto che inviano e ricevono mail tutto il giorno.
Non riesco a capire questo problema.
'----------------

Forse non sono stato chiaro - per un pc con Outlook installato,
non potevo riprodurre il tuo problema.

Per testare che non sia un problema di COM, prova il segente
codice:

'=============>>
Public Sub TestComLayer()
Dim oWordApp As Object

Set oWordApp = CreateObject("Word.Application")
MsgBox oWordApp.Name
oWordApp.Quit
Set oWordApp = Nothing
End Sub
'<<=============


---
Regards,
Norman