1 Тема от Rialto

  • Rialto
  • Участник
  • Неактивен

Тема: VBS: Создать контакт в Outlook'е в Общих папках

Собственно подскажите как создать объект "контакт" с оутлуке в общих папках (exchange server)

Есть общая папка \\Общие папки\Все общие папки\контакты, как там создать контакт ?
Знаю что в обычной папке "контакты" создать можно так:

Set objOutl = WScript.CreateObject("Outlook.Application")
Set objContact = objOutl.CreateItem(2)
objContact.FirstName = "john"
objContact.LastName = "smith"
objContact.Email1Address = "john@world.com"
objContact.Save()

2 Ответ от Rialto

  • Rialto
  • Участник
  • Неактивен

Re: VBS: Создать контакт в Outlook'е в Общих папках

Нашёл и сделал сам.

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