[Iska]

Спасибо, теперь ясно. Посмотрим.

[Iska]

Смотрите, как это работает в целом:

Код:

$oOutlook    = New-Object -ComObject Outlook.Application
$oNameSpace  = $oOutlook.GetNamespace("MAPI")
$oMAPIFolder = $oNameSpace.GetDefaultFolder(10)


# Подключаемся или создаём папку «Контакты моей компании»
try {
    $oMyMAPIFolder = $oMAPIFolder.Folders.Item("Контакты моей компании")
} catch {
    $oMyMAPIFolder = $oMAPIFolder.Folders.Add("Контакты моей компании")
}

$cContacts = $oMyMAPIFolder.Items


# Добавляем Контакт №1
$oContact = $cContacts.Add(2)

$oContact.LastName         = "Test_LastName"
$oContact.Email1Address    = "test@email.ru"
$oContact.CompanyName      = "Моя компания"
$oContact.Department       = "test_Department"
$oContact.BusinessHomePage = "http://company.com/"
$oContact.Mileage          = "1"

$oContact.Save()

# Добавляем Контакт №2
$oContact = $cContacts.Add(2)

$oContact.LastName         = "Test_LastName2"
$oContact.Email1Address    = "test2@email.ru"
$oContact.CompanyName      = "Моя компания"
$oContact.Department       = "test_Department"
$oContact.BusinessHomePage = "http://company.com/"
$oContact.Mileage          = "1"

$oContact.Save()

# Добавляем Контакт №3
$oContact = $cContacts.Add(2)

$oContact.LastName         = "Test_LastName3"
$oContact.Email1Address    = "test3@email.ru"
$oContact.CompanyName      = "Не моя компания"
$oContact.Department       = ""
$oContact.BusinessHomePage = "http://non-my-company.com/"
$oContact.Mileage          = "1"

$oContact.Save()


# Перечисляем все контакты из папки «Контакты моей компании»
$cContacts | ForEach-Object -process {
    Write-Host $oContact.LastName $oContact.Email1Address $oContact.EntryID -ForegroundColor Blue
}


# Удаляем контакты из папки «Контакты моей компании»
$oContact = $cContacts.Find("[Mileage] = ""1"" AND [BusinessHomePage] = ""http://company.com/""")

while ($oContact -ne $null) {
    Write-Host $oContact.LastName $oContact.Email1Address $oContact.EntryID -ForegroundColor Red
    
    $oContact.Delete()
    $oContact = $cContacts.FindNext()
}

[dosperados]

Iska, Ты крут! так работает... подскажи книжки по PS чтобы поизучать, желательно рускоязычные) Ещё раз хочу выразить тебе свою огромную презнательность!!! Спасибо за помощь!!!

[Iska]

Iska, Ты крут! »

Нет. Я сам неспешно учусь этому языку.

подскажи книжки по PS чтобы поизучать, желательно рускоязычные »

Windows PowerShell: Коллекция ссылок. Там есть и про книги. На русском мало. Читайте русскоязычные блоги Гусева, Сотникова и других специалистов.

[Бетке Сергей Сергеев]

Накидал модуль для PowerShell - ITG.Outlook. Пока в нём только обработку контактов и реализовал. Примеры кода с применением модуля привёл у себя в блоге - http://sergey-s-betke.blogs.novgaro....from-csv-or-ad.
Пример кода:

Код:

Get-ADUser ` 
    -Filter * ` 
    -SearchBase $OU ` 
    -SearchScope Subtree ` 
    -Properties ` 
        displayName, givenName, sn, initials, title, userPrincipalName, info, ` 
        manager, ` 
        company, department, ` 
        co, countryCode, postalCode, st, l, streetAddress, ` 
        telephoneNumber, facsimileTelephoneNumber, homePhone, ipPhone, mobile, otherTelephone, wWWHomePage, mail ` 
| New-OutlookContact -Force -PassThru ` 
| Select-Object Subject, EMail1DisplayName, EMail1Address ` 
| Out-GridView ` 
;