Два доленаведена макроа показују како можете да шаљете информације у Оутлоок
(нпр. слање поруке е-поште) и како можете да преузмете информације из програма Оутлоок
(нпр. преузимање листе свих порука у пријемном сандучету).
Белешка! Прочитајте и уредите пример кода пре него што га покушате извршити у свом пројекту!
„захтева референцу на библиотеку објеката Мицрософт Оутлоок 8.0 Суб СендАнЕмаилВитхОутлоок ()“ креира и шаље нову поруку е-поште са програмом Оутлоок Дим ОЛФ као Оутлоок.МАПИФолдер, олМаилИтем као Оутлоок.МаилИтем Дим ТоЦонтацт Ас Оутлоок.Реципиент Сет ОЛФ = ГетОбјецт ( "", _ "Оутлоок.Апплицатион"). ГетНамеспаце ("МАПИ"). ГетДефаултФолдер (олФолдерИнбок) Постави олМаилИтем = ОЛФ.Итемс.Адд 'ствара нову поруку е-поште са олМаилИтем .Субјецт = "Предмет за нову е- маил мессаге "'субјецт мессаге Сет ТоЦонтацт = .Реципиентс.Адд (" наме@домаин.цом ")' додај примаоца Сет ТоЦонтацт = .Реципиентс.Адд (" наме@цомпани.цом ") 'додај примаоца ТоЦонтацт.Типе = олЦЦ 'постави најновијег примаоца као ЦЦ Постави ТоЦонтацт = .Реципиентс.Адд ("наме@орг.нет")' додај примаоца ТоЦонтацт.Типе = олБЦЦ 'постави последњег примаоца као БЦЦ .Боди = "Ово је текст поруке" & Цхр (13) 'текст поруке са преломом реда. Прилози. Додајте "Ц: \ Име фасцикле \ Име датотеке.ткт", олБиВалуе,, _ "Прилог"' уметните прилог '. Прилози. Додајте "Ц : \ Име фасцикле \ Име датотеке.ткт ", олБиРеференце,, _" Пречица до прилога "'убаци пречицу'. Прилози. Додајте" Ц: \ Име фасцикле \ Име датотеке.ткт ", олЕмбеддедИтем,, _" Уграђени прилог "'уграђени прилог'. Аттацхментс.Адд "Ц: \ ФолдерНаме \ Филенаме.ткт", олОЛЕ,, _ "ОЛЕ Аттацхмент" 'ОЛЕ прилог. Сенд 'шаље поруку е-поште (ставља је у Оутбок) Енд Витх Сет ТоЦонтацт = Нотхинг Сет олМаилИтем = Нотхинг Сет ОЛФ = Нотхинг Енд Суб Суб ЛистАллИтемсИнИнбок () Дим ОЛФ Ас Оутлоок.МАПИФолдер, ЦуррУсер Ас Стринг ДимИмаилЦоунт Ас Интегер, и Као Интегер, ЕмаилЦоунт Ас Интегер Апплицатион.СцреенУпдатинг = Фалсе Воркбоокс.Адд 'цреате а нев воркбоок' адд хеадингс Целлс (1, 1) .Формула = "Субјецт" Целлс (1, 2) .Формула = "Рецивед" Целлс (1 , 3) .Формула = "Прилози" ћелије (1, 4) .Формула = "Читање" са опсегом ("А1: Д1"). Фонт .Болд = Труе .Си зе = 14 Заврши са Апплицатион.Цалцулатион = клЦалцулатионМануал Сет ОЛФ = ГетОбјецт ("", _ "Оутлоок.Апплицатион"). ГетНамеспаце ("МАПИ"). ГетДефаултФолдер (олФолдерИнбок) ЕмаилИтемЦоунт = ОЛФ.Итемс.Цоунт и = 0: ЕмаилЦоунт = 0 'читање информација е-поште Док сам <ЕмаилИтемЦоунт и = и + 1 Ако сам Мод 50 = 0 Тада Апплицатион.СтатусБар = "Читање порука е-поште" & _ Формат (и / ЕмаилИтемЦоунт, "0%") & "… "Са ОЛФ.Итемс (и) ЕмаилЦоунт = ЕмаилЦоунт + 1 ћелије (ЕмаилЦоунт + 1, 1). Формула = .Предметне ћелије (ЕмаилЦоунт + 1, 2). Формула = Формат (.РецеиведТиме," дд.мм.ииии хх: мм ") Ћелије (ЕмаилЦоунт + 1, 3) .Формула = .Аттацхментс.Цоунт Целлс (ЕмаилЦоунт + 1, 4) .Формула = Нот .УнРеад Енд Витх Венд Апплицатион.Цалцулатион = клЦалцулатионАутоматиц Сет ОЛФ = Ништа колоне (" А: Д ") .АутоФит распон (" А2 "). Изаберите АцтивеВиндов.ФреезеПанес = Истина АцтивеВоркбоок.Савед = Истинска апликација.СтатусБар = Потврда погрешног краја