Это очень легко с библиотекой Redemption .
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 <test@example.com>") DL.Save