none
Macro estrazioni info contatto Outlook RRS feed

  • Domanda

  • Buongiorno, sto provando a scrivere una macro per estrarre informazioni dei contatti con con il nome di chi ha effettuato la modifica dell' ultimo contatto.  La macro che riporto sotto mi da un errore "Errore di compilazione; Sub o Function non definita".

    Sub ReadContactProperties()
       Const olFolderContacts As Long = 10
       Dim OLApp As Object
       Dim oMAPI As Object
       Dim oContacts As Object
       Dim oContact As Object
       Dim cont As Long
       Set OLApp = CreateObject("Outlook.application")
       Set oMAPI = OLApp.GetNamespace("MAPI")
       Set oContacts = oMAPI.GetDefaultFolder(olFolderContacts)
       For Each oContact In oContacts.Items
          With oContact
             cont = cont + 1
             Cells(cont + 1, 1).Value = .LastNameAndFirstName
             Cells(cont + 1, 2).Value = .LastModificationTime
          End With
       Next oContact
    End Sub

    martedì 19 novembre 2019 08:24