errore

[s.lucesoli]

in un foglio excel ho inserito un pulsante per inviare automaticamente una
mail ad alcuni destinatari.
Funziona in tutti i pc tranne in alcuni dove da l'errore: -2147024770
rispetto alla riga [(Set OutApp = CreateObject("Outlook.Application")]
del seguente codice:

Sub Pulsante1_Clic()
Dim OutApp, OutMail, objatm As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxxxx"
.Subject = "Foglio dati giornalieri"
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub

Ci sono altre righe di codice che ho tralasciato ma penso non siano
significative.
Ho anche inserito nel pc imputato i riferimenti ad outlook ma non c'è niente
da fare.
Dove sbaglio?
Grazie a tutti.
simone

[Franz Verga]

Post by s.lucesoli
in un foglio excel ho inserito un pulsante per inviare
automaticamente una mail ad alcuni destinatari.
Funziona in tutti i pc tranne in alcuni dove da l'errore: -2147024770
rispetto alla riga [(Set OutApp = CreateObject("Outlook.Application")]
Sub Pulsante1_Clic()
Dim OutApp, OutMail, objatm As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxxxx"
.Subject = "Foglio dati giornalieri"
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub
Ci sono altre righe di codice che ho tralasciato ma penso non siano
significative.
Ho anche inserito nel pc imputato i riferimenti ad outlook ma non c'è
niente da fare.
Dove sbaglio?
Grazie a tutti.
simone

Domanda stupida...
Outlook è installato sui PC dove hai l'errore?

[s.lucesoli]

In effetti mi sono dimenticato di dire che in tutti i pc è presente Office
2003 compreso dell'outlook ben funzionante.
Grazie.
Simone

Post by Franz Verga

Post by s.lucesoli
in un foglio excel ho inserito un pulsante per inviare
automaticamente una mail ad alcuni destinatari.
Funziona in tutti i pc tranne in alcuni dove da l'errore: -2147024770
rispetto alla riga [(Set OutApp = CreateObject("Outlook.Application")]
Sub Pulsante1_Clic()
Dim OutApp, OutMail, objatm As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxxxx"
.Subject = "Foglio dati giornalieri"
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub
Ci sono altre righe di codice che ho tralasciato ma penso non siano
significative.
Ho anche inserito nel pc imputato i riferimenti ad outlook ma non c'è
niente da fare.
Dove sbaglio?
Grazie a tutti.
simone

Domanda stupida...
Outlook è installato sui PC dove hai l'errore?
--
Spero d'esserti stato d'aiuto.
Ciao
Franz Verga

[Maurizio Borrelli]

Post by s.lucesoli
in un foglio excel ho inserito un pulsante per inviare automaticamente una
mail ad alcuni destinatari.
Funziona in tutti i pc tranne in alcuni dove da l'errore: -2147024770
rispetto alla riga [(Set OutApp = CreateObject("Outlook.Application")] del
Sub Pulsante1_Clic()
Dim OutApp, OutMail, objatm As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxxxx"
.Subject = "Foglio dati giornalieri"
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub
Ci sono altre righe di codice che ho tralasciato ma penso non siano
significative.
Ho anche inserito nel pc imputato i riferimenti ad outlook ma non c'è
niente da fare.
Dove sbaglio?

Ciao, simone.

Se, come dici nella tua replica a Franz Verga, in tutti i pc e'
installato e funzionante Outlook, allora apparentemente non sbagli e il
problema dovrebbe essere un altro. Vedi se puo' aiutarti nell'individuazione
dell'errore il seguente articolo:

INFO: Traduzione degli errori di automazione per VB/VBA (Long)
http://support.microsoft.com/kb/186063/it

Potresti anche verificare cosa succede usando, invece di quella con
CreateObject, l'istruzione:

Set OutApp = GetObject(, "Outlook.Application")

Non c'entra col discorso ma considera che scrivere:

Dim OutApp, OutMail, objatm As Object

equivale a:

Dim OutApp As Variant, OutMail As Variant, objatm As Object

che forse non e' cio' che intendi scrivere tu.

[s.lucesoli]

Niente da fare ho tentato in tutti i modi.
Funziona in 19 pc e in 3 no.
l'errore è:
errore run time -2147024770 (8007007e) errore di automazione. Impossibile
trovare il modulo specificato.

Se uso Getobject l'errore e:
run tim 429
il componente activex non è in grado di creare l'oggetto.

Adesso sto scaricando tutti gli aggiornamenti di office e windows, ma sono
in crisi nera!!!
aiuto......

Post by Maurizio Borrelli

Post by s.lucesoli
in un foglio excel ho inserito un pulsante per inviare automaticamente una
mail ad alcuni destinatari.
Funziona in tutti i pc tranne in alcuni dove da l'errore: -2147024770
rispetto alla riga [(Set OutApp = CreateObject("Outlook.Application")] del
Sub Pulsante1_Clic()
Dim OutApp, OutMail, objatm As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxxxx"
.Subject = "Foglio dati giornalieri"
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub
Ci sono altre righe di codice che ho tralasciato ma penso non siano
significative.
Ho anche inserito nel pc imputato i riferimenti ad outlook ma non c'è
niente da fare.
Dove sbaglio?

Ciao, simone.
Se, come dici nella tua replica a Franz Verga, in tutti i pc e'
installato e funzionante Outlook, allora apparentemente non sbagli e il
problema dovrebbe essere un altro. Vedi se puo' aiutarti nell'individuazione
INFO: Traduzione degli errori di automazione per VB/VBA (Long)
http://support.microsoft.com/kb/186063/it
Potresti anche verificare cosa succede usando, invece di quella con
Set OutApp = GetObject(, "Outlook.Application")
Dim OutApp, OutMail, objatm As Object
Dim OutApp As Variant, OutMail As Variant, objatm As Object
che forse non e' cio' che intendi scrivere tu.
--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)
Ciao :o)
Maurizio Borrelli, Microsoft Office Access MVP
-------- RIO - http://www.riolab.org/
?SPQR(C)
X
--------

[Maurizio Borrelli]

Post by s.lucesoli

Post by Maurizio Borrelli

Post by s.lucesoli
in un foglio excel ho inserito un pulsante per inviare automaticamente
una mail ad alcuni destinatari.
Funziona in tutti i pc tranne in alcuni dove da l'errore: -2147024770
rispetto alla riga [(Set OutApp = CreateObject("Outlook.Application")]

[...]

Post by s.lucesoli

Post by Maurizio Borrelli

Post by s.lucesoli
Ci sono altre righe di codice che ho tralasciato ma penso non siano
significative.
Ho anche inserito nel pc imputato i riferimenti ad outlook ma non c'è
niente da fare.
Dove sbaglio?

Se, come dici nella tua replica a Franz Verga, in tutti i pc e'
installato e funzionante Outlook, allora apparentemente non sbagli e il
problema dovrebbe essere un altro.

[...]

Post by s.lucesoli
Niente da fare ho tentato in tutti i modi.
Funziona in 19 pc e in 3 no.
errore run time -2147024770 (8007007e) errore di automazione. Impossibile
trovare il modulo specificato.
run tim 429
il componente activex non è in grado di creare l'oggetto.
Adesso sto scaricando tutti gli aggiornamenti di office e windows, ma sono
in crisi nera!!!
aiuto......

Ciao, s.lucesoli.

E... se usi GetObject con Outlook sicuramente aperto? Questo infatti e'
lo scopo di GetObject, assegnare alla variabile oggetto una istanza
esistente dell'applicazione.

Mi "puzza" ;) un po' la tua frase "Ho [...] inserito nel pc imputato i
riferimenti [...]". Cosa intendi esattamente? Hai gia' provato a "riparare"
l'installazione di Outlook su quei tre pc?

[Maurizio Borrelli]

[...]

Post by s.lucesoli
Niente da fare ho tentato in tutti i modi.
Funziona in 19 pc e in 3 no.
errore run time -2147024770 (8007007e) errore di automazione. Impossibile
trovare il modulo specificato.

[...]

Ciao, s.lucesoli.

Ho fatto una ricerca del numero di errore 8007007e nella Knowledge Base
Microsoft e ho trovato i seguenti articoli che spero possano esserti utili:

PRB: ritorni Server.CreateObject HTTP 500,100 o l'errore ASP
(0x8007007E) 0177
http://support.microsoft.com/kb/273744/it

Gli oggetti di dati di collaborazione per Windows NT, Windows 2000
ed Exchange 2000 richiedono Outlook Express
http://support.microsoft.com/kb/327219/it

Installazione Gestore di sistema viene interromputa con più messaggi
di errore
http://support.microsoft.com/kb/281383/it

Errore 8007007E: The specified module could not be found
http://support.microsoft.com/kb/639425/it

Se per te non e' un problema e' meglio se consulti la versione originale
di questi articoli in quanto la versione italiana e'... troppo originale!
(vedi per es.: "interromputa")

[s.lucesoli]

Dopo diverse ricerche e tentativi sono riuscito a risolvere il problema.
Su alcuni ng stranieri si attribuisce il problema all'applicazione outlook
danneggiata in qualche sua parte e suggerivano diverse probabili soluzioni
(riparare, reistallare...) ma solo disistallando e reistallando completamente
l'outlook ci sono riuscito.
Grazie davvero per la tua disponibilità.
ciao
Simone

Post by Maurizio Borrelli
[...]

Post by s.lucesoli
Niente da fare ho tentato in tutti i modi.
Funziona in 19 pc e in 3 no.
errore run time -2147024770 (8007007e) errore di automazione. Impossibile
trovare il modulo specificato.

[...]
Ciao, s.lucesoli.
Ho fatto una ricerca del numero di errore 8007007e nella Knowledge Base
PRB: ritorni Server.CreateObject HTTP 500,100 o l'errore ASP
(0x8007007E) 0177
http://support.microsoft.com/kb/273744/it
Gli oggetti di dati di collaborazione per Windows NT, Windows 2000
ed Exchange 2000 richiedono Outlook Express
http://support.microsoft.com/kb/327219/it
Installazione Gestore di sistema viene interromputa con più messaggi
di errore
http://support.microsoft.com/kb/281383/it
Errore 8007007E: The specified module could not be found
http://support.microsoft.com/kb/639425/it
Se per te non e' un problema e' meglio se consulti la versione originale
di questi articoli in quanto la versione italiana e'... troppo originale!
(vedi per es.: "interromputa")
--
(Facci sapere se ed eventualmente come hai risolto. Grazie.)
Ciao :o)
Maurizio Borrelli, Microsoft Office Access MVP
-------- RIO - http://www.riolab.org/
?SPQR(C)
X
--------