Hi, I created an Agent with the code below that seemed to work, but after restarting Notes, it doesnt work anymore and shows an error "Error creating product object"... Can someone help me?

Sub Initialize
    
    Dim x As Long
    Dim x_total As Long
    Dim Date_temp As Variant
    Dim Date_txt As String
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim workspace As New NotesUIWorkspace
    Dim view2 As NotesUIView
    Dim Compteur As Long
    Dim ListeResultats() As String
    Dim Long_texte As String
    Dim a As Long
    Dim t As String
    Dim mail As notesdocument 
    Dim MailTo As String
    Dim MailSubject As String
    Dim MailBody As String
    Dim richText As New NotesRichTextItem(mail, "Body")
    
    Set view2 = workspace.CurrentView
    Set db = session.CurrentDatabase
    Set view = db.GetView(view2.viewname)
    Set doc = view.GetFirstDocument
    
    
    x_total = 0
    x= 0
    Compteur = 1
    
'Compte des courriels par date
    Date_temp = doc.Created 'date temp = date du courriel précédent
    Date_txt = Left$(Cstr(Date_temp),10)
    
    While Not(doc Is Nothing)
        
        If Date_txt = Left$(Cstr(Date_temp),10) Then 'comparaison de la date du courriel précédent et du courant
            x = x + 1            'compteur de courriels par date
        Else
            Redim Preserve ListeResultats(Compteur) As String 'si date change, redimentionner Array
            If x > 1 Then 'selon le nombre de courriel par date, choix du s ou non dans le texte
                t = "s."
            Else 
                t = "."
            End If
            ListeResultats(Compteur) = "En date du : " & Date_txt & ", il y a eu " & x & " courriel" & t 'Écriture du résultat pour la date 
            Compteur = Compteur + 1 'modification du compteur du Array
            Date_txt = Left$(Cstr(Date_temp),10) 'changement de la date pour prochain test de date
            x_total = x_total + x 'total des courriels du répertoire
            x = 1 'réinitialisation du nombre de courriel de la date
            
        End If
        
        Set doc = view.GetNextDocument(doc) 'changement de courriel pour la boucle
        
        If doc Is Nothing Then 'si le document suivant est vide, terminer la boucle
            Redim Preserve ListeResultats(Compteur)  'si date change, redimentionner Array
            ListeResultats(Compteur) = "En date du : " & Date_txt & ", il y a eu " & x & " courriels." 'Écriture du résultat pour la date
            Date_txt = Left$(Cstr(Date_temp),10) 'changement de la date pour prochain test de date
            x_total = x_total + x 'total des courriels du répertoire
        Else
            Date_temp = doc.Created 
        End If 
        
    Wend
    
    Long_Texte = "Résultats du répertoire " & view2.ViewName &" : " & Chr(10)
    
'création d'une variable texte pour l'ensemble des données comprises dans le Array    
    For a = 1 To Compteur
        
        Long_texte = Long_texte & Chr(10) & ListeResultats(a)
        
    Next a
    
    Long_texte = Long_texte & Chr(10) & Chr(10) & "Nombre total de courriels du répertoire : " & x_total
    
    Set mail = New Notesdocument(session.CurrentDatabase)
'Création du courriel à envoyer
    MailTo = "yves.desjardins@ville.montreal.qc.ca"
    MailSubject = "Nombre de courriel dans le répertoire " & view2.ViewName
    MailBody = Long_texte
    
    mail.SendTo = MailTo
    mail.Subject = MailSubject
    mail.Body = MailBody
    mail.form= "Memo" 
    Call mail.Save(True,True)
    Call mail.Send(False )
    
    
End Sub

Yves

Code in some error trap that would show what line the code is raising an error condition