outlook code

hi everyone

i've a simple macro to send mail:

Code:

Sub InviaEmail()
       Dim AppOut As Outlook.Application
       Set AppOut = New Outlook.Application
       Set NewMail = AppOut.CreateItem(olMailItem)
       NewMail.To = "INDIRIZZO"
       NewMail.CC = "INDIRIZZO"
       NewMail.BCC = "INDIRIZZO"
       NewMail.Subject = "OGGETTO EMAIL"
       NewMail.Body = " TESTO MESSAGGIO"
       NewMail.Attachments.Add "C:\ALLEGATO.TXT"
       NewMail.Send
       NewMail.Display
End Sub

...i need to get the "NewMail.To" value directly from my contact folder in my personal folder ( exsatly is a group list named Clienti )

there is someone who can help me?