Excel vba outlook getdefaultfolder

Sub SaveAttachedItemsFromOutlook()
    Dim objOutlApp As Object, oNSpace As Object, oIncoming As Object
    Dim oIncMails As Object, oMail As Object, oAtch As Object
    Dim IsNotAppRun As Boolean
    Dim sFolder As String, s As String
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
 
    'подключаемся к Outlook
    On Error Resume Next
    Set objOutlApp = GetObject(, "outlook.Application")
    If objOutlApp Is Nothing Then
        Set objOutlApp = CreateObject("outlook.Application")
        IsNotAppRun = True
    End If
    'получаем доступ к папкам почты
    Set oNSpace = objOutlApp.GetNamespace("MAPI")
    'подключаемся к папке Входящие, почтового ящика по умолчанию
    Set oIncoming = oNSpace.GetDefaultFolder(6)
    'Удаленные ==> GetDefaultFolder(3)
    'Исходящие ==> GetDefaultFolder(4)
    'Отправленные ==> GetDefaultFolder(5)
    'Входящие ==> GetDefaultFolder(6)
 
    'получаем коллекцию писем Входящие(включая подпапки)
    Set oIncMails = oIncoming.Items
    'просматриваем каждое письмо
    For Each oMail In oIncMails
        'просматриваем каждое вложение письма
        For Each oAtch In oMail.Attachments
            'отбираем только файлы Excel
            If oAtch Like "*.xl*" Then
                s = GetAtchName(sFolder & oAtch)
               oAtch.SaveAsFile s
            End If
        Next
    Next
    'Если приложение Outlook было открыта кодом - закрываем
    If IsNotAppRun Then
        objOutlApp.Quit
    End If
    'очищаем переменные
    Set oIncMails = Nothing
    Set oIncoming = Nothing
    Set oNSpace = Nothing
    Set objOutlApp = Nothing
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------------------------------------
' Procedure : GetAtchName
' Purpose   : Функция получения уникального имени файла
'             если файл с именем s уже есть - добавляет номер в скобках
'---------------------------------------------------------------------------------------
Function GetAtchName(ByVal s As String)
    Dim s1 As String, s2 As String, sEx As String
    Dim lu As Long, lp As Long
 
    s1 = s
    lp = InStrRev(s, ".", -1, 1)
    If lp Then
        sEx = Mid(s, lp)
        s1 = Mid(s, 1, lp - 1)
    End If
    s2 = s
    lu = 0
    Do While (Dir(s2, 16) <> "")
        lu = lu + 1
        s2 = s1 & "(" & lu & ")" & sEx
    Loop
    GetAtchName = s2
End Function

ки CDO (о ней — в разд. 13.8), на использование объектной модели

Outlook.

GetSharedDefaultFolder() — этот метод делает то же, что и

GetDefaultFolder(), но применяется тогда, когда у пользователя в Outlook кроме своего ящика открыты еще и почтовые ящики других пользователей. Метод позволяет получить ссылку, например, на папку Inbox в другом почтовом ящике.

Logon() — позволяет установить соединение по протоколу MAPI (т. е. установить соединение с Exchange Server). В качестве необязательных параметров принимает имя почтового профиля, параметр, определяющий, показывать ли пользователю диалоговое окно выбора профиля и т. п. Разрыв соединения производится при помощи метода Logoff().

PickFolder() — открывает диалоговое окно Выбор папки. Если пользователь выбрал папку в этом окне и нажал OK, то возвращается объект MAPIFolder для выбранной папки.

Обычно, когда мы программным образом работаем с Outlook, нам нужно чтото сделать с его элементами — почтовыми сообщениями, контактами, встречами в календаре и т. п. Все эти элементы расположены в папках Outlook (либо встроенных, либо созданных пользователем). Папкам в объектной модели Outlook соответствуют объекты MAPIFolder, которые сведены в коллек-

цию Folders.

В Outlook папки могут быть вложены друг в друга. На самом верху расположены папки верхнего уровня (это не Входящие, Контакты, Черновики и т. п., как вы могли подумать, а папки более высокого уровня, например,

Личные папки, Общие папки, Mailbox — Administrator). Доступ к кол-

лекции Folders, представляющей собой папки самого верхнего уровня, производится через свойство Folders объекта Namespace (см. разд. 13.4):

Dim oOutlook As New Outlook.Application

Dim oNameSpace As Outlook.NameSpace

Dim oFolder As Outlook.MAPIFolder

Set oNameSpace = oOutlook.GetNamespace(«MAPI»)

For Each oFolder In oNameSpace.Folders

Debug.Print oFolder.Name

Next

Если вам нужна конкретная встроенная папка, например Inbox, то проще всего найти ее при помощи метода GetDefaultFolder() объекта Namespace:

Dim oOutlook As New Outlook.Application

Dim oNameSpace As Outlook.NameSpace

Dim oFolder As Outlook.MAPIFolder

Set oNameSpace = oOutlook.GetNamespace(«MAPI»)

Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)

Debug.Print oFolder.Name

Очень часто требуется пройти циклом по всем папкам в почтовом ящике Outlook (а иногда даже в нескольких ящиках), просмотреть все сообщения в каждой папке (и во всех вложенных папках) и что-то сделать с этими сообщениями, например, собрать все письма от определенного отправителя, разбросанные по разным папкам, в одну специальную. В нашем примере мы просто пройдем циклом по всем папкам Outlook и выведем их имена, но, конечно, этот пример несложно переделать так, чтобы он выполнял какоенибудь действие над ними в зависимости от условия. В нашем случае удобнее всего использовать две процедуры, одна из которых будет вызывать саму себя:

Public Sub StartProc1()

Dim oOutlook As New Outlook.Application

Dim oNamespace As Outlook.NameSpace

Dim oChildFolder As Outlook.MAPIFolder

Set oNamespace = oOutlook.GetNamespace(«MAPI»)

‘Перебираем каждую папку верхнего уровня и ‘вызываем для нее процедуру DoFolder()

For Each oChildFolder In oNamespace.Folders DoFolder oChildFolder

Next

End Sub

‘Эта процедура выводит имя всех сложенных папок и ‘для каждой из них опять вызывает саму себя

Public Sub DoFolder(ByVal oFolder As MAPIFolder)

Dim oChildFolder As Outlook.MAPIFolder

For Each oChildFolder In oFolder.Folders Debug.Print oChildFolder.Name

‘Для каждой вложенной папки опять вызываем процедуру DoFolder() DoFolder oChildFolder

Next

End Sub

Далее представлена информация о свойствах и методах коллекции Folders и

объекта MAPIFolder.

У коллекции Folders свойства и методы стандартные, как и у большинства коллекций (Count, Item(), Add(), Remove() и т. п.). Зато у объекта MAPIFolder

важных свойств и методов очень много.

Самые важные свойства объекта MAPIFolder приведены в следующем списке.

AddressBookName — позволяет поменять имя папки с контактами для отображения в адресной книге пользователя. Для других папок применяться не может (вернется ошибка).

CurrentView — возвращает объект View, который определяет, как отображается данная папка для пользователя. Для объекта MAPIFolder это свойство доступно только для чтения.

DefaultItemType — это свойство позволяет вернуть (в виде константного значения) тип элемента папки по умолчанию (почтовое сообщение, контакт и т. п.). Это свойство определяется при создании папки и после изменено быть не может. Обычно это свойство используется для исключения каких-то папок из обработки (чтобы, например, не искать почтовые сообщения в папке с контактами).

DefaultMessageClass — то же самое, что и DefaultItemType, но информация возвращается не в виде числа, а в виде строкового значения. Выбирайте, что вам удобнее.

Description — просто описание папки. При использовании графического интерфейса Outlook доступно через свойства папки.

EntryID — это свойство очень удобно использовать как уникальный идентификатор сообщения, который создается автоматически при появлении сообщения в любом MAPI-совместимом хранилище (например, в файле Outlook или в почтовом ящике Exchange Server) и изменяется только при переносе в другое хранилище.

FolderPath — полный путь к папке в иерархии хранилища Outlook, напри-

мер, «\Личные папкиВходящие».

Folders — очень важное свойство, которое возвращает коллекцию вложенных папок для данной папки. Как уже говорилось, очень часто используется для того, чтобы пройти циклом по всему дереву папок.

InAppFolderSyncObject — определяет, будет ли эта папка синхронизироваться при работе специальной группы синхронизации (объекта SyncObject) под названием Application Folders. Эта группа синхронизации (она видна через меню Сервис | Отправить/Получить) отличается тем, что только ее можно изменять программным образом.

IsSharePointFolder — позволяет определить, находится ли эта папка с контактами или элементами календаря на Windows SharePoint Services

Работа с элементами папок (почтовыми сообщениями, контактами, элементами календаря и т. п.) — это обычно самая важная часть программ, исполь-

зующих объектную модель Outlook. Именно с ними и приходится выполнять различные операции.

Доступ к элементам папок чаще всего производится через свойство Items объекта MAPIFolder, которое возвращает коллекцию Items. В этой коллекции находятся все элементы данной папки. Однако единого объекта для них не предусмотрено. Вместо этого в вашем распоряжении 16 отдельных объектов для каждого вида элементов в Outlook.

AppointmentItem — то, что на графическом интерфейсе русского Outlook называется Встречей. Этот элемент обычно находится в папке Кален-

дарь.

ContactItem — это контакт. Создавать новые контакты программным образом приходится очень часто.

DistList — это еще один элемент, который обычно находится в папке Контакты. Он представляет собой список рассылки.

DocumentItem — это любой файл, который помещен внутрь хранилища Outlook и не совпадает по своему формату ни с одним другим элементом Outlook. Объектом DocumentItem может быть, например, документ Word,

книга Excel, ZIP-архив, файл Acrobat Reader PDF, исполняемый EXE-файл и т. п. — в общем, любой файл операционной системы. Однако увлекаться хранением файлов в хранилищах Outlook (файлах PST, а также в почтовых ящиках и общих папках Exchange Server), конечно, не стоит. Это замедлит доступ к обычным элементам Outlook. Такая возможность изначально была предусмотрена для того, чтобы, например, в общей папке Outlook для проекта вместе с перепиской по нему хранить также и различные, относящиеся к нему файлы.

JournalItem — это запись в дневнике.

MailItem — наиболее привычный многим элемент. Представляет собой сообщение электронной почты.

MeetingItem — приглашение на встречу (специальный тип электронного сообщения). Обычно встречается там же, где и обычные сообщения электронной почты, например, в папке Inbox. Создать программным образом этот элемент невозможно — он создается только автоматически при получении соответствующего сообщения (отправить его можно при помощи объекта AppointmentItem, что соответствует элементу Встреча в Кален-

даре).

NoteItem — объект заметки (из папки Заметки). От всех других элементов отличается минимальным количеством свойств и методов.

344 Глава 13

и отправка электронного сообщения средствами Outlook выглядит очень просто:

Dim oOutlook As New Outlook.Application Dim oMessage As Outlook.MailItem ‘Создаем объект сообщения

Set oMessage = oOutlook.CreateItem(olMailItem) ‘Кому

oMessage.To = «Administrator@nwtraders.msft» ‘Тема сообщения

oMessage.Subject = «Привет из VBA»

‘Текст сообщения. Использование свойства Body означает, ‘что мы посылаем сообщение обычным текстом.

‘Можно также послать сообщение в формате HTML или RTF oMessage.Body = «Текст сообщения»

‘Добавляем вложение

oMessage.Attachments.Add («C:installlog.txt») ‘Отправляем сообщение

oMessage.Send

Однако чтобы усложнить жизнь вирусам, вместо простой отправки сообщения появляется окно, аналогичное представленному на рис. 13.3. Более того, чтобы добиться окончательной победы над вирусами, кнопка Да на протяжении нескольких секунд будет недоступна.

Рис. 13.3. Предупреждающее окно в Outlook

Что же делать в такой ситуации? Варианты могут быть разными:

первый вариант — отправлять сообщение из макроса, который находит-

ся в модуле VBA самого Outlook (без программного открытия Outlook). В этом случае такое окно появляться не будет. Но такое решение обычно не очень удобно, особенно с точки зрения переноса этого программного кода для запуска на разных компьютерах;

Рис. 13.4. Создаем контакт

Следующее, что нужно сделать, — написать программный код, в котором был бы создан объект данного элемента. Например, если этот контакт находится в папке Контакты, то код (из макроса в Outlook) может быть таким:

Dim oNamespace As NameSpace

Dim oFolder As MAPIFolder

Dim oContactItem As ContactItem

Set oNamespace = Application.GetNamespace(«MAPI»)

Set oFolder = oNamespace.GetDefaultFolder(olFolderContacts)

Set oContactItem = oFolder.Items(«Контакт1»)

Stop

Команда Stop здесь предназначена для того, чтобы остановиться в нужном месте.

Затем нужно запустить код на выполнение и, когда он остановится на последней строке, открыть (при помощи меню View) окно Locals.

В нашем случае вы увидите в нем четыре объекта (рис. 13.5).

Конечно же, нам нужно развернуть узел объекта oContactItem и поискать его свойство, для которого установлено значение «Краткое имя». К своему

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cfOutlook As Outlook.Folder
Dim ifOutlook As Outlook.Folder

‘Create a new instance of the Outlook application. Set the Application object as follows:
Set applOutlook = New Outlook.Application

‘use the GetNameSpace method to instantiate (ie. create an instance) a NameSpace object variable, to access existing Outlook items. Set the NameSpace object as follows:
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘assign the object variable cfOutlook to the default Contacts folder:
Set cfOutlook = nsOutlook.GetDefaultFolder(olFolderContacts)
MsgBox cfOutlook

‘assign the object variable ifOutlook to the default Inbox folder:
Set ifOutlook = nsOutlook.GetDefaultFolder(olFolderInbox)
MsgBox ifOutlook

Dim applOutlook As Object
Dim nsOutlook As Object
Dim cfOutlook As Object
Dim ifOutlook As Object

‘Create a new instance of the Outlook application, if an existing Outlook object is not available. Set the Application object as follows:
On Error Resume Next
Set applOutlook = GetObject(, «Outlook.Application»)
‘if an instance of an existing Outlook object is not available, an error will occur (Err.Number = 0 means no error):
If Err.Number <> 0 Then

End If
‘disable error handling:
On Error GoTo 0

‘use the GetNameSpace method to instantiate (ie. create an instance) a NameSpace object variable, to access existing Outlook items. Set the NameSpace object as follows:
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘assign the object variable cfOutlook to the default Contacts folder:
‘The numerical value of olFolderContacts is 10. The following code has replaced the Outlook’s built-in constant olFolderContacts by its numerical value 10.
Set cfOutlook = nsOutlook.GetDefaultFolder(10)
MsgBox cfOutlook

‘assign the object variable ifOutlook to the default Inbox folder:
‘The numerical value of olFolderInbox is 6. The following code has replaced the Outlook’s built-in constant olFolderInbox by its numerical value 6.
Set ifOutlook = nsOutlook.GetDefaultFolder(6)
MsgBox ifOutlook

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cfOutlook As Outlook.Folder
Dim csfOutlook As Outlook.Folder

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

Set cfOutlook = nsOutlook.GetDefaultFolder(olFolderContacts)

‘refer to a folder named «cont_1» which is a subfolder of the default Contacts folder (note that folder names are case-sensitive):
Set csfOutlook = cfOutlook.Folders(«cont_1»)
MsgBox csfOutlook

‘refer to the first folder which is a subfolder of the default Contacts folder.
Set csfOutlook = cfOutlook.Folders(1)
MsgBox csfOutlook

‘refer to the second folder which is a subfolder of the default Contacts folder.
Set csfOutlook = cfOutlook.Folders(2)
MsgBox csfOutlook

‘return the number of subfolders of the default Contacts folder:
MsgBox cfOutlook.Folders.Count

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim fOutlook As Outlook.Folder
Dim sf1Outlook As Outlook.Folder
Dim sf2Outlook As Outlook.Folder

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘assign the object variable fOutlook to the «Personal Folders» folder:
Set fOutlook = nsOutlook.Folders(«Personal Folders»)
MsgBox fOutlook

‘»Friends» is a subfolder of «Personal Folders» folder:
Set sf1Outlook = fOutlook.Folders(«Friends»)
MsgBox sf1Outlook

‘»Friend_1″ is a subfolder of «Friends» folder:
Set sf2Outlook = sf1Outlook.Folders(«Friend_1»)
MsgBox sf2Outlook

‘return the number of subfolders in the «Personal Folders» folder:
MsgBox fOutlook.Folders.Count

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim fOutlook As Outlook.Folder
Dim sf1Outlook As Outlook.Folder
Dim sf2Outlook As Outlook.Folder
Dim pFolder As Outlook.Folder

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘assign the object variable fOutlook to the «Personal Folders» folder:
Set fOutlook = nsOutlook.Folders(«Personal Folders»)
MsgBox fOutlook
‘use the Folders.Add Method to create a new folder «New Folder 1» in the «Personal Folders» folder:
Set sf1Outlook = fOutlook.Folders.Add(«New Folder 1»)
‘use the Folders.Add Method to create a new folder «New Folder 2» in the «New Folder 1» folder:
Set sf2Outlook = sf1Outlook.Folders.Add(«New Folder 2»)

‘Use the Parent Property to return the Parent folder of the «New Folder 1» folder:
Set pFolder = sf1Outlook.Parent
MsgBox pFolder
‘Use the Parent Property to return the Parent folder of the «New Folder 2» folder:
Set pFolder = sf2Outlook.Parent
MsgBox pFolder

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cFolder As Outlook.Folder
Dim cItem As Outlook.ContactItem

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set reference to the default Contacts folder where the new item is being created:
Set cFolder = nsOutlook.GetDefaultFolder(olFolderContacts)

‘Use the Items.Add method (message class for a custom form is specified) to add a new contact item, using the custom contact form called «custForm1». Remember that the custom form «custForm1» should already have been created.:
Set cItem = cFolder.Items.Add(«IPM.Contact.custForm1»)

‘Alternate 1: Use the Items.Add method (a default Outlook message class is specified) to add a new contact item, based on the standard/default contact form:
‘Set cItem = cFolder.Items.Add(«IPM.Contact»)

‘Alternate 2: Use the Items.Add method (OlItemType constant is specified) to add a new contact item, based on the standard/default contact Form:
‘Set cItem = cFolder.Items.Add(olContactItem)

‘Alternate 3: Use the Items.Add method (item type not specifically mentioned) to add a new contact item, based on the standard contact form. If the item type is not specified after Add, it defaults to its parent folder’s type:
‘Set cItem = cFolder.Items.Add

‘set properties of the new contact item:

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cFolder As Outlook.Folder
Dim cItem As Outlook.ContactItem
Dim cItem1 As Outlook.ContactItem
Dim cItem2 As Outlook.ContactItem

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set reference to the folder where a new item is to be created:
Set cFolder = nsOutlook.GetDefaultFolder(olFolderContacts)
‘set an existing contact item, to copy some of its properties to the new item:
Set cItem1 = cFolder.Items(«Hutch Care»)
‘add a new contact item:
‘Note that it if the item type is not specified after Add [viz. Add(olContactItem)], it defaults to its parent folder’s type.
Set cItem2 = cFolder.Items.Add

‘check if contact name already exists in the contacts folder:
For Each cItem In cFolder.Items

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cFolder As Outlook.Folder
Dim subFolder1 As Outlook.Folder
Dim cItem As Outlook.ContactItem

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set reference to the folder (named «cont») where a new item is to be created:
Set cFolder = nsOutlook.Folders(«Personal Folders»)
Set subFolder1 = cFolder.Folders(«cont»)

Set cItem = subFolder1.Items.Add(olContactItem)

Dim applOutlook As Outlook.Application
Dim miOutlook As Outlook.MailItem

Set applOutlook = New Outlook.Application
‘create and display a new email item:
Set miOutlook = applOutlook.CreateItem(olMailItem)

‘set properties of the new mail item:
With miOutlook

Dim applOutlook As Outlook.Application
Dim cItem As Outlook.ContactItem

Set applOutlook = New Outlook.Application
‘create and display a new contact form for input, using the Application.CreateItem Method:
Set cItem = applOutlook.CreateItem(olContactItem)

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim delFolder As Outlook.Folder
Dim delItems As Outlook.Items
Dim dItem As Object
Dim count As Long, n As Long

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set the default Deleted Items folder:
Set delFolder = nsOutlook.GetDefaultFolder(olFolderDeletedItems)
‘set the items collection:
Set delItems = delFolder.Items

‘determine number of items in the collection:
count = delItems.count
‘start deleting from the last item:
For n = count To 1 Step -1

Next n

‘Alternate Code: start deleting from the last item. Declare dItem as Object:
‘For n = count To 1 Step -1

‘Next n

‘Caution: Do not use the For Each … Next vba statement as below, to delete (or move) items because it cannot handle the updated collection (ie. number of items) on deletion of an item, and not all items will get deleted. It is best to use a loop which down counts, as in this example.
‘Dim dItem As Object
‘For Each dItem In delItems

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim mFolder As Outlook.Folder
Dim mItems As Outlook.Items
Dim mItem As Outlook.MailItem
Dim count As Long, i As Long

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set the default Invbox folder:
Set mFolder = nsOutlook.GetDefaultFolder(olFolderInbox)
‘set the items collection:
Set mItems = mFolder.Items

i = 1
count = mItems.count
Do While i <= count

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cFolder As Outlook.Folder
Dim cItems As Outlook.Items
Dim cItem As Outlook.ContactItem
Dim ws As Worksheet

‘set the worksheet:
Set ws = ActiveWorkbook.Sheets(«Sheet1»)

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set reference to the default Contact Items folder:
Set cFolder = nsOutlook.GetDefaultFolder(olFolderContacts)
‘set the items collection:
Set cItems = cFolder.Items

‘post each outlook item in the items collection, to a new worksheet row:
i = 0
For Each cItem In cItems

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cFolder As Outlook.Folder
Dim cItem As Outlook.ContactItem

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set reference to the folder where the item is located:
Set cFolder = nsOutlook.Folders(«Personal Folders»).Folders(«Contacts»)

‘returns the number of items in the folder:
MsgBox cFolder.Items.count

‘find contact name in the folder:
For Each cItem In cFolder.Items

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim cFolder As Outlook.Folder
Dim cItems As Outlook.Items
Dim cItem As Outlook.ContactItem

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘set reference to the default Contact Items folder:
Set cFolder = nsOutlook.GetDefaultFolder(olFolderContacts)
‘set the items collection:
Set cItems = cFolder.Items

‘find the contact item name «Alan Croft», in the folder:
Set cItem = cItems.Find(«[FullName]=«»Alan Croft»»»)

‘return properties of the contact item name «Alan Croft»:
MsgBox cItem.Email1Address
MsgBox cItem.MobileTelephoneNumber

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim eFolder As Outlook.Folder
Dim eItems As Outlook.Items
Dim eItem As Outlook.MailItem
Dim att As Outlook.Attachment
Dim atts As Outlook.Attachments
Dim i As Long

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘assign the object variable eFolder to the default Inbox folder:
Set eFolder = nsOutlook.GetDefaultFolder(olFolderInbox)
‘set the items collection:
Set eItems = eFolder.Items

‘search emails in Inbox folder which have no subject:
Set eItem = eItems.Find(«[Subject]=«»»»»)

Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim eFolder As Outlook.Folder
Dim eItems As Outlook.Items
Dim eItem As Outlook.MailItem
Dim eResItems As Outlook.Items
Dim strCriteria As String

Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace(«MAPI»)

‘assign the object variable eFolder to the default Inbox folder:
Set eFolder = nsOutlook.GetDefaultFolder(olFolderInbox)
‘set the items collection:
Set eItems = eFolder.Items

‘set criteria viz. Importance set to High:
strCriteria = «[Importance]=«»High»»»
‘set collection of items meeting the specified criteria:
Set eResItems = eItems.Restrict(strCriteria)