Errore di runtime "429": il componente ActiveX non può creare un oggetto

Anonimo

Buongiorno a tutti,

ho un problema con la stringa sotto la quale mi da l'errore scritto nella domanda, quale può essere il problema

Private Sub Cmdinvia_Click()

Dim OutApp As Outlook.Application QUI MI DA L'ERRORE DELLA DOMANDA

Dim OutMail As Object

Dim strbody As String

Dim Percorso As String

Dim Filename As String

Dim Allegato As String

ActiveWorkbook.Save

Foglio3.Activate

'Foglio3.Range ("A2;J500")

Foglio3.Copy

ActiveWorkbook.SaveAs "c:\user\desktop\venduto.xlsx"

Set OutApp = CreateObject("Outlook.Application.12")

Set OutMail = OutApp.CreateItem(2)

On Error Resume Next

With OutMail 

    .To = "" 

    .CC = "******@gigi.com"  

    .BCC = "" 

    .Subject = "Venduto della settimana"

Filename = ActiveWorkbook.Name

Percorso = ThisWorkbook.Path

Allegato = Percorso & "" & Filename

.Attachments.Add Allegato

.Display

End With

On Error GoTo 0 

Set OutMail = Nothing 

Set OutApp = Nothing

End Sub

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

Ci sono degli errori, legati al nome e percorso del file salvato e che, suppongo, debba essere allegato, che non vengono segnalati grazie all'istruzione "On Error Resume Next" ma che poi comportano che l'email non venga creata.

Prova con questa modifica:

Private Sub Cmdinvia_Click() 

   Dim OutApp As Object 

   Dim OutMail As Object 

   Dim strbody As String 

   Dim Percorso As String 

   Dim Filename As String 

   Percorso = "C:\tmp\" 

   Filename = "venduto.xlsx" 

   Application.DisplayAlerts = False 

   Foglio3.Copy 

   With ActiveWorkbook 

      .SaveAs Percorso & Filename 

      .Close 

   End With 

   Set OutApp = CreateObject("Outlook.Application") 

   Set OutMail = OutApp.CreateItem(0) 

   With OutMail 

      .To = "" 

      .CC = "" 

      .BCC = "" 

      .Subject = "Venduto della settimana" 

      .Attachments.Add Percorso & Filename 

      .Display 

   End With 

   Application.DisplayAlerts = True 

   Set OutMail = Nothing 

   Set OutApp = Nothing 

End Sub

Edit: naturalmente imposta il percorso in cui desideri venga salvato il file excel che poi va allegato all'email

0 commenti

5 risposte aggiuntive

Anonimo

Prova con questa modifica:

Private Sub Cmdinvia_Click() 



   Dim OutApp As Object 



   Dim OutMail As Object 



   Dim strbody As String 



   Dim Percorso As String 



   Dim Filename As String 



    



   Percorso = "C:\tmp\" 



   Filename = "venduto.xlsx" 



    



   Application.DisplayAlerts = False 



    



   Foglio3.Copy 



   With ActiveWorkbook 



      .SaveAs Percorso & Filename 



      .Close 



   End With 



    



   Set OutApp = CreateObject("Outlook.Application") 



   Set OutMail = OutApp.CreateItem(0) 



 



   With OutMail 



      .To = "" 



      .CC = "" 



      .BCC = "" 



      .Subject = "Venduto della settimana" 



      .Attachments.Add Percorso & Filename 



      .Display 



   End With 



    



   Application.DisplayAlerts = True 



   Set OutMail = Nothing 



   Set OutApp = Nothing 



End Sub

Edit: naturalmente imposta il percorso in cui desideri venga salvato il file excel che poi va allegato all'email

Grazie 1000 casanmaner, ora funziona perfettamente

0 commenti