Isso é muito fácil com a biblioteca de Resgates .
set Session = CreateObject("Redemption.RDOSession")
Session.Logon
set Contacts = Session.GetDefaultFolder(olFolderContacts)
set DL = Contacts.Items.Add("IPM.DistList")
DL.DLName = "sample distribution list"
DL.AddMember("test <[email protected]>")
DL.Save