Libreria non registrata Errore di automazione Errore di run time 2147319779 -

Question

E questo è il mio codice

Dim myOlApp As New Outlook.Application

Set myOlApp = New Outlook.Application

sulla Set mi va in errore!

Cosa fare? grazie!

Answer 1

Nella stessa applicazione access ho altri "programmi VBA che aprono outlook e spediscono email automaticamente.

e gli altri ""programmi VBA che aprono outlook e spediscono email automaticamente" funzionano nella macchina con Windows 7 ?

Ho windows 7 professional e office 2007

Ho kaspersky come internet/antivurus.

umm....

Be careful with Kaspersky Anti-Virus!

disabilita momentaneamente l'antivirus e prova la tua routine, se funziona riabilitalo e configuralo per non bloccare l'automazione di VBA.

Ciao

Giorgio Rancati

Answer 2

Ciao Giorgio!

Nella stessa applicazione access ho altri "programmi VBA che aprono outlook e spediscono email automaticamente.

Ho windows 7 professional e office 2007

Ho kaspersky come internet/antivurus.

Answer 3

Ciao Giorgio,

puoi spiegare l'ultima frase ?

Ho altri programmi che utilizzano outlook e funzionano!

hai altri programmi fatti con Access sulla stessa macchina che utilizzano outlook e che funzionano ???

Mi sembra molto strano, puoi confermare?

Puoi confermare che:

la versione di Access è la 2007

la versione di Outlook è la 2007

??

Hai un antivirus installato ?

se sì controlla che non blocchi gli script di office, cosa che ad esempio Norton antivirus fa di default.

Ciao

Giorgio Rancati

Answer 4

Ciao Giorgio!

Dunque ho eseguito diagnosi e ripristino ed effettivamente mi dice che c'era un test sui 18 (l'ultimo per intendersi) che aveva qualche problema ma che è stato risolto.

Ho modificato le istruzioni come mi hai detto.... ma niente continua a darmi lo stesso messaggio di prima. Tieni conto che la stessa applicazione fino a qualche mese fa funzionava e su XP del cliente funziona tutto'ora.

In Vba sulla Dim mi dice che la variabile oggetto o la variabile del blocco with non impostata! ti posto tutto il codice....

Private Sub Comando26_Click()

DoCmd.SetWarnings False

MsgBox " verranno generate 10 email per volta quindi il programma si chiude e sarà necessario rilanciarlo"

Dim DbCorrente As DAO.Database

Set DbCorrente = CurrentDb

Dim Tr As DAO.Recordset

Set Tr = DbCorrente.OpenRecordset("TotRic1", dbOpenDynaset)

Dim PE As DAO.Recordset

Set PE = DbCorrente.OpenRecordset("Percorsi excel", dbOpenDynaset)

Dim myOlApp As Outlook.Application

Set myOlApp = New Outlook.Application

Dim myItem As Outlook.MailItem

Set myItem = myOlApp.CreateItem(olMailItem)

Dim myAttachments As Outlook.Attachments

Set myAttachments = myItem.Attachments

Dim volte As Integer

volte = 1

    Do Until Tr.EOF Or volte > 10

    DoCmd.OpenForm "TotRicQ1", , , "Email= '" & Tr.Fields("Email") & "'"

    Forms!TotRicQ1.Visible = False

    DoCmd.TransferSpreadsheet acExport, , "TotRicT Query", (PE.Fields("Percorso creazione") & Tr.Fields("Email") & ".xlsx"), True

    DoCmd.Close acForm, "TotRicT"

    Set myItem = myOlApp.CreateItem(olMailItem)

            Set myAttachments = myItem.Attachments

             myAttachments.Add PE.Fields("Percorso creazione") & Tr.Fields("Email") & ".xlsx", _

                olByValue, 1

            With myItem

            .To = Tr.Fields("Email")

            .Subject = "Totale Riconferme per le scuole della sua zona"

            .Body = "Si prega di aprire l'allegato per visionarlo ed intraprendere le opportune azioni  - Andrea Chiaramonti"

            .Display 'Visualizza il messaggio

            '.Send 'ISTRUZIONE EVENTUALE PER SPEDIRE IL MESSAGGIO  

             End With

    Tr.Delete

    volte = volte + 1

    Tr.MoveNext

    Loop

    Set myItem = Nothing

    Set myOlApp = Nothing

    Tr.Close

    PE.Close

    DbCorrente.Close

    MsgBox " elaborazione terminata!"

End Sub

Ho altri programmi che utilizzano outlook e funzionano!

Qualche buco in windows 7?

Answer 5

Ciao Giorgio,

il codice si dovrebbe scrivere così

---

Dim myOlApp As Outlook.Application

Set myOlApp = New Outlook.Application

---

ma non credo sia questo il problema.

L'applicazione Outlook 2007 Funziona ?

Prova ad eseguire Diagnosi e ripristino delle applicazioni di Office tramite Diagnostica Office

Ciao

Giorgio Rancati