Buongiorno a tutti.
Da qualche giorno riscontro una anomalia sull'istruzione .diplay all'interno di codice che ha sempre funzionato sia in Excel che su vari Db.
L'istruzione era posta dopo tutte le altre e funzionava correttamente visualizzando la mail dopo la creazione. Ora invece da il seguente errore
run-time 2147221233 (8004010f) - operazione non riuscita, impossibile trovare oggetto.
la mail viene creata in bozze, ma il codice si interrompe sull'istruzione .display
Se sposto l'istruzione all'inizio del codice, tutto funziona anche se la finestra di imputbox viene sovrapposta dalla mail visualizzata, e quindi è poco funzionale (si deve spostarla o ridurla a icona, riempire la inputbox e quindi inviare).
L'altra cosa strana è che lo stesso codice inserito all'interno del Vba di outlook non da il problema e l'istruzione può rimanere l'ultima. Anche dentro alcuni db di Access seguita a funzionare, in altri no. Ho pensato ai riferimenti, ma sembrano esserci tutte le librerie occorrenti.
Posto il codice di excel non funzionante (se sposto .display all'inizio invece funziona).
Grazie a chi vorrà provare a capire la causa.
Dim appOutlook As Object
Dim mail As Object
Set appOutlook = CreateObject("outlook.application")
Set mail = appOutlook.CreateItemFromTemplate(conpercorso)
With mail
.Attachments.Add (conAllegato)
.Subject = "Invio Foglio Presenze Impiegati - Mese di " & InputBox("Inserisci Mese e Anno")
.Display
End With
Set mail = Nothing