Salve a tutti ,
sono un neofita della programmazione vba di outlook , difatti ho un problema con lo start up del codice che ho scritto .
mi spiego....
ho scritto il codice(funzionante) ma non riesco a farlo eseguire da outlook in automatico all'avvio di seguito il codice scritto
se lo eseguo "a mano" funziona benone ...ma da solo niente ...non legge neanche una riga per sbaglio :D :D
Grazie
Public WithEvents myItem As Outlook.MailItem
Public Sub Initialize_Handler()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub
Private Sub myItem_Forward(ByVal Forward As Object, Cancel As Boolean)
Dim oggetto As String
Set oggetto = Mid(myItem.Subject, 10, 1)
If oggetto = "Versamento" Then
Cancel = True
End If
End Sub
Private Sub myItem_Close(Cancel As Boolean)
If Cancel = False Then
myItem.UnRead = True
End If
End Sub