Set objOutl = WScript.CreateObject("Outlook.Application")
Set oNameSpace = objOutl.GetNamespace("MAPI")
Set PublicContactFolder = oNameSpace.GetDefaultFolder(18).Folders("контакты")
Set objContact = objOutl.CreateItem(2)
objContact.FirstName = "john"
objContact.LastName = "smith"
objContact.Email1Address = "john@world.com"
objContact.Move PublicContactFolder
objContact.Save()Посмотреть методы и свойства Item.Contact можно тут:
http://msdn.microsoft.com/en-us/library … 12%29.aspx
а посмотреть значения для переменных типа olFolderContacts можно тут:
http://msdn.microsoft.com/en-us/library … 12%29.aspx
Есть общая папка \\Общие папки\Все общие папки\контакты, как там создать контакт ?
Знаю что в обычной папке "контакты" создать можно так:
Set objOutl = WScript.CreateObject("Outlook.Application")
Set objContact = objOutl.CreateItem(2)
objContact.FirstName = "john"
objContact.LastName = "smith"
objContact.Email1Address = "john@world.com"
objContact.Save()