[VBScript] Rubrica Outlook, problemi Distribution List

[Leandro]

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:

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

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.

[br1]

Questo forum tratta scripting orientato alle pagine web... per il tuo quesito c'e' il forum Programmazione

[Leandro]

Grazie per l'informazione, avendo letto VBScript tra gli argomenti pensavo di metterlo qui piuttosto che nella sezione Visual Basic.
Scusassero

[Leandro]

niente?