Ho un foglio excel che contiene i dati per creare contatti e liste di distribuzione in outlook.
Ho scritto il seguente codice VBScript per creare una macro in excel:
codice:
Sub FillUp()

    Dim myOlApp As Outlook.Application
    Dim w As Workbook
    Dim s As Worksheet
    Dim r As Range
    Dim myList

    Set s = Worksheets("dataextract_16022005_")
    Set myOlApp = CreateObject("Outlook.Application")
    
    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItem(olContactItem)
    
    For i = 1 To s.Range("a1").CurrentRegion.Rows.Count
    
        Set r = s.Cells(i, 1)
         
        With myItem
            .FullName = r.Offset(0, 4).Value
            .CompanyName = r.Offset(0, 1).Value
            .OfficeLocation = r.Offset(0, 2).Value
            .JobTitle = "Owner"
            .Save
            
        End With
        
        Set myList = myOlApp.CreateItem(olDistributionListItem)
        Set objRcpnt = myOlApp.Session.CreateRecipient(myItem.FullName)
        
        myList.DLName = r.Value
        
        'MsgBox myItem.FullName
        

        If objRcpnt.Resolve Then
        
            myList.AddMember objRcpnt
            myList.Save
            
        Else
            MsgBox "niente da fa"
         
        End If
        
   Next
 
        
End Sub
Il problema sta nel codice in rosso. Non riesce a trovare (Resolve) il contatto appena creato.

il foglio excel, a partire dall cella a1, è così composto
codice:
Gruppo, Fabbrica, Indirizzo, Paese, Nome e Cognome.
Avevo già provato questo codice e funzionava, l'unica differenza è che la lista di distribuzione me la inventavo, senza prendere il valore da una cella del foglio.

Suggerimenti? Grazie.