Newsgroup: it.comp.appl.access
Titolo: Cover Page Object dell' Application Software Development Kit (SDK) di WinFax PRO 10.0 di Symantec

Volendo registrare in una tabella l'elenco delle copertine contenute in
WinFax PRO 10.0, ho scritto:
Dim pageObj As Object
Dim pagesObj As Object
Dim t As Integer
Dim rst As Recordset
Set pagesObj = CreateObject("WinFax.CoverPages")
Set rst = CurrentDb().OpenRecordset("NomeTabella")
For t = 1 To pagesObj.Count
    Set pageObj = pagesObj.Item(t)
    rst.AddNew
    rst.Fields(0) = t
    rst.Fields(1) = pageObj.GetDescription
    rst.Fields(2) = pageObj.GetFilename
    rst.Update
    Set pageObj = Nothing
Next t
Set rst = Nothing
Set pagesObj = Nothing
Naturalmente al database ho aggiunto i riferimanti a WinFax Automation
Server.
Ricevo da access questo errore:
Errore di run-time '-
2147417851
 (80010105)':
Errore di automazione
e viene evidenziata in debug la seguente riga di codice VBA:
For t = 1 To pagesObj.Count
L'errore dovrebbe essere generato sulla riga:
Set pageObj = pagesObj.Item(t)
solo nel caso in cui la variabile t assumesse un valore maggiore del numero
di copertine fax contente in WinFax.
Per ora ho tamponato così :
Dim pageObj As Object
Dim pagesObj As Object
Dim t As Integer
Dim rst As Recordset        ' variabile recordset della tabella in cui
registrare i dati
On Error GoTo ElencoCopertine_Errore
Set pagesObj = CreateObject("WinFax.CoverPages")
Set rst = CurrentDb().OpenRecordset("NomeTabella")
For t = 1 To 1000
    Set pageObj = pagesObj.Item(t)
    rst.AddNew
    rst.Fields(0) = t
    rst.Fields(1) = pageObj.GetDescription
    rst.Fields(2) = pageObj.GetFilename
    rst.Update
    Set pageObj = Nothing
Next t
ElencoCopertine_Esci:
Set rst = Nothing
Set pagesObj = Nothing
Exit Sub
ElencoCopertine_Errore:
If Err.Number <> -
2147417851
 Then
    MsgBox Err.Number & " " & Err.Description
End If
GoTo ElencoCopertine_Esci
Però non riesco a capire perché il metodo Count dell'oggetto
WinFax.CoverPages mi dà quell'errore.
GRAZIE!
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:a8Laa.191025$YG2.5...@twister1.libero.it...

Ciao Roberto
Non ho modo di provare ciò che ti propongo in quanto non ho WinFax Pro ma in
genere quando un oggetto ha la proprietà count puoi riferirti agli elementi
indicizzando l'oggetto stesso ovvero...
 For t = 1 To 1000
     rst.AddNew
     rst.Fields(0) = t
     rst.Fields(1) = pageObj(t).GetDescription
     rst.Fields(2) = pageObj(t).GetFilename
     rst.Update
 Next t
Ciao Giorgio.

 > WinFax PRO 10.0, ho scritto:
Scusa ho copiato il pezzo di codice sbagliato
For t = 1 To pagesObj.Count
     rst.AddNew
     rst.Fields(0) = t
     rst.Fields(1) = pageObj(t).GetDescription
     rst.Fields(2) = pageObj(t).GetFilename
     rst.Update
 Next t
Poi controlla tu se il count parte da 1 o da 0
Ciao Giorgio.

 Set pageObj = pagesObj.Item(t)
    Mi dispiace, non uso winfax e non posso aiutarti. Pero' io farei un
tentativo scrivendo:
        For Each pageObj In pagesObj
che ne dici, va?
[...]
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

 --------
--


 Ciao Giorgio.
Grazie ma mi continua a dare errore; d'altra parte l'errore lo dà su
For t = 1 To pagesObj.Count
e lì non è cambiato nulla.
Grazie comunque: per ora vado avanti con la pezza che ci ho messo, usando la
gestione degli errori.


 ha scritto nel messaggio
news:a8Laa.191025$YG2.5...@twister1.libero.it...

[CUT]
Ho reistallato WinFax e tutto ha funzionato a dovere!!!!
Grazie a tutti per la collaborazione!


In effetti, al verificarsi del problema che ho descritto nel mio messaggio
del 9/3/2003 delle ore 18:48, reinstallando WinFax PRO il problema sparisce,
ma sfortunatamante non definitivamente.
Se nella Gestione messaggi di WinFax opero anche una SOLA volta con la
finestra della gestione delle Copertine, l'errore ritorna con tutta la sua
insistenza sino a quando non si reinstalla WinFax PRO.
Quindo ho dovuto usare la soluzione di ripiego, ovvero la seguente routine:
Dim pageObj As Object
Dim pagesObj As Object
Dim t As Integer
Dim rst As Recordset        ' variabile recordset della tabella in cui
registrare i dati
On Error GoTo ElencoCopertine_Errore
Set pagesObj = CreateObject("WinFax.CoverPages")
Set rst = CurrentDb().OpenRecordset("NomeTabella")
For t = 1 To 1000
    Set pageObj = pagesObj.Item(t)
    rst.AddNew
    rst.Fields(0) = t
    rst.Fields(1) = pageObj.GetDescription
    rst.Fields(2) = pageObj.GetFilename
    rst.Update
    Set pageObj = Nothing
Next t
ElencoCopertine_Esci:
Set rst = Nothing
Set pagesObj = Nothing
Exit Sub
ElencoCopertine_Errore:
If Err.Number <> -
2147417851
  And  Err.Number <> 91 Then
    MsgBox Err.Number & " " & Err.Description
End If
GoTo ElencoCopertine_Esci
Avendo l'accortezza di "intrappolare" due numeri di errore: il primo errore
si verifica se si è usato la finestra delle Copertine nella Gestione
messaggi di WinFax PRO, il secondo errore si verifica in caso contrario.
Da quanto sopra si desume che alcune funzioni, proprietà e metodi di SDK
possono non funzionare correttamente in determinate condizioni: io ne ho
trovata una; questo potrebbe essere il motivo per cui, da una certa data, la
Symantec ha smesso di inserire nel CD di installazione di WinFax PRO 10.0
tutto quello che riguarda SDK (io ce l'ho perché mi è stato gentilmente
inviato da alcuni frequentatori del NG che probabilmente hanno acquistato
WinFax prima di me).


 sparisce, ma sfortunatamante non definitivamente.
[...]
    Azzardo: c'entra forse qualcosa cio' che si legge nel sito della
Symantec?
**********
Using the email fax option with WinFax PRO 10 SDK or DDE
Situation:
You want to use an SDK (Software Development Kit) function or DDE
(Dynamic Data Exchange) to use the fax email feature included with
WinFax PRO 10.
Solution:
Unfortunately, the SDK and DDE do not support the fax email features of
WinFax PRO 10.
**********


 --------
--




non c'entra , si parla di fax via email noi stiamo cercando di fare
fax con il modem
Saluti.
Emanuele.