Како написати корисне макрое у Оутлоок 2016 и 2019 порукама?

У Мицрософт Оффице-у користимо Висуал Басиц за апликације (ВБА) за креирање прилагођених програма који побољшавају основну функционалност Оффице-а и помажу у уштеди времена аутоматизацијом задатака који се понављају. Ове мале ВБА програме називамо макроима .

У овом водичу желели смо да обезбедимо најкомплетнији ресурс за развој макроа за Оутлоок. Фокусираћемо се на истраживање основа Оутлоок ВБА за почетнике, научити да пишемо макрое, а затим размотримо неке напредније корисне макро идеје. На основу повратних информација које смо добили, након што сте прошли кроз овај водич, требало би да будете у могућности да развијете и покренете једноставне ВБА макрое за Оутлоок.

• Прво основе: Научићемо како да убацимо и сачувамо једноставан прилагођени ВБА макро у активну Оутлоок сесију.
• Затим ћемо подесити окружење за развој макроа на нашем рачунару.
• Проћи ћемо кроз најосновније примере Оутлоок ВБА. Ово ће вам помоћи да схватите основе развоја макроа и омогућити вам да пишете једноставне макрое.
• Затим ћемо наставити и дефинисати икону пречице за наш макро на траци са алаткама за брзи приступ. Ово ће нам омогућити да са лакоћом покренемо макро.
• А завршићемо тако што ћемо омогућити Оутлоок макрое и руковати њиховим безбедносним поставкама како бисмо осигурали да ће се код заиста покренути када се то затражи на нашим рачунарима.

Могу ли да снимим Оутлоок макро?

За разлику од других Оффице апликација, Оутлоок не нуди једноставан снимач макроа за снимање радњи корисника и аутоматско генерисање потребног ВБА кода за нас у позадини. Стога, ако желимо да додамо сопствену прилагођену функционалност Оутлоок-у, мораћемо да научимо да пишемо једноставне ВБА програме и да их уградимо у нашу Оутлоок сесију.

Напомена: Ако сте заинтересовани да знате како заправо функционише Оффице снимач макроа, препоручио бих вам да погледате упутства за МС Ворд макрое и Екцел ВБА макрое .

Писање ВБА макроа у Оутлоок-у

1. Прво отворите Мицрософт Оутлоок.
2. Сада, само напред и притисните дугме Алт + Ф11 .
3. Интегрисано развојно окружење (ИДЕ) за ВБА програмере ће бити отворено.
4. Проширите стабло пројекта до чвора ТхисОутлоокСессион .
5. Кликните десним тастером миша на ТхисОутлоокСессион , а затим притисните Инсерт .
6. Сада ћете уметнути Висуал Басиц модул. Да бисте то постигли, наставите и изаберите Модул .
7. Налепите свој ВБА код у прозор Модула .
8. Притисните Филе , а затим изаберите Сачувај .
9. Само напред и затворите окружење за програмере . Ово ће вас вратити на ваш Оутлоок кориснички интерфејс.

Напомена: Читајте неколико једноставних примера кода да бисте започели са ВБА. Никада немојте копирати ВБА код са непознатих извора.

Како подесити картицу програмера у Оутлоок-у?

Ако ћете често развијати Оутлоок макрое, можда ћете желети да подесите своје Оффице развојно окружење. Звучи отмјено, зар не? У ствари, то је прилично једноставна процедура. Прочитајте даље за детаље:

1. Отворите Оутлоок , кликните десним тастером миша на горњу област траке и изаберите Прилагоди траку .

1. Проверите унос за програмере и притисните ОК .

1. Сада ћете наћи мени за програмере на траци.

Корисни Оутлоок ВБА примери

Креирајте е-поруку

Овај једноставан исечак програмски креира нову ставку е-поруке.

Скрипта почиње креирањем Оутлоок поште, а затим поставља поља за, предмет, текст и ЦЦ. На крају, приказује поруку у Оутлоок-у тако да можете да је прегледате и пошаљете ручно.

Public Sub CreateMail() Dim MyEmail As MailItem ' Create a new Outlook message item programatically Set MyEmail = Application.CreateItem(olMailItem) 'Set your new message to, subject, body text and cc fields. With MyEmail .To = "[email protected]" .Subject = "Insert your message subject here" .Body = "Insert your email text body here" .CC = "[email protected]" End With MyEmail.Display End Sub

Напредна напомена: Можете да користите унапред дефинисане Оутлоок шаблоне када дефинишете нове поруке е-поште помоћу ВБА. Да бисте то урадили, мораћете да искористите методу ЦреатеИтемФромТемплате и наведете локацију ваше датотеке Оутлоок шаблона (*. често ).

Пошаљите е-пошту програмски

Ако желите да Оутлоок аутоматски пошаље е-пошту коју сте управо креирали, можете додати следећи ред у код који је постављен изнад. Налепите следећи ред испред наредбе Енд Суб претходног исечка.

MyEmail.Send

Приложите датотеку е-поруци

У многим случајевима желите да аутоматизујете слање е-поште са приложеном датотеком. То може бити Ворд документ, Екцел табела, Поверпоинт презентација, ПДФ документи итд. Ако желите да пошаљете е-пошту са прилозима програмски, користите овај код:

#VBA Code Dim MyEmail As MailItem ' Create a new Outlook message item programatically Set MyEmail = Application.CreateItem(olMailItem) 'Define your attachment folder path and file name - modify this part as needed Dim AttachFolder, AttachFile As String AttachFolder = "C:\" AttachFile = "test.txt" 'Set your new message to, subject, body text and cc fields. With MyEmail .To = "recipient@my_server.com; mysecondrecipient@my_server.com" .Subject = "This is your message subject" .Body = "Insert your email text body here" .CC = "cc@my_server.com" .Attachments.Add AttachFolder & AttachFile End With MyEmail.Display End Sub

напомене:

• Уверите се да сте поставили тачну путању и име датотеке прилога у исечку.
• У овом примеру сам подесио више прималаца на е-пошту , љубазно их прилагодите по потреби.

Направите задатак помоћу ВБА

Следећи исечак креира Оутлоок задатак, додељује га другој особи и поставља тему задатка и основни текст.

Public Sub CreateTask() Dim MyTask As TaskItem ' Create a new Outlook task Set MyTask = Application.CreateItem(olTaskItem) 'Set your new task recipients and information fields With MyTask .Assign .Recipients.Add "taskrecipient@my_server.com" .Subject = "This is your task subject" .Body = "Insert a thorough explanation of your task here." End With MyTask.Display End Sub

Сачувај као ХТМЛ

Неколико читалаца је питало како да аутоматизују чување е-поште у ХТМЛ-у. Код у наставку постиже управо то.

Public Sub SaveAsHTML() On Error Resume Next Dim MyWindow As Outlook.Inspector Dim MyItem As MailItem Dim FilePath As String FilePath = Environ("HOMEPATH") & "\Documents\" & "\" Dim ItemName As String Set MyWindow = Application.ActiveInspector If TypeName(MyWindow) = "Nothing" Then MsgBox ("Kindly open an email to save") Else Set MyItem = MyWindow.CurrentItem ItemName = MyItem.Subject ' File name will be identical to the message subject With MyItem .SaveAs FilePath & ItemName & ".html", olHTML End With End If End Sub

Напомена: Уверите се да покрећете овај код само на е-порукама које су отворене у Оутлоок-у (не у приказу Инбок/Екплорер).

Питања у вези са макроима за Оутлоок

Где се чувају макрои у Оутлоок-у?

Можда лутате где се тачно чува ваш коришћени макро. Па, за разлику од програма Екцел, на пример, који вам омогућава да чувате макрое у персонал.клб датотеци или у одређеним табелама; сви Мицрософт Оутлоок макрои се чувају у једној глобалној датотеци у вашем систему датотека. Конкретно, датотека која чува све ваше макрое се зове ВБАПројецт.отм. Датотека се може наћи на: Ц:\усерс\\АппДата\Роаминг\Мицрософт\Оутлоок.

Дугме пречице за Оутлоок макрое

Наш следећи корак је да убацимо мало дугме пречице које ће нам омогућити да лако покренемо макро. Ради једноставности, убацићемо ово дугме у траку са алаткама за брзи приступ.

1. Отворите Мицрософт Оутлоок, ако још није отворен.
2. Кликните десним тастером миша на горњу траку програма Оутлоок и изаберите Прилагоди траку са алаткама за брзи приступ .

       Напомена: Можете користити сличну процедуру да поставите своју икону на саму траку уместо на траку са алаткама за брзи приступ.

1. Притисните комбиновани оквир ' Изаберите команде из ' и изаберите Макрои .

1. Изаберите макро који сте управо креирали и притисните Додај .

1. Притисните Измени да бисте дефинисали прилагођену слику иконе за дугме на траци са алаткама за брзи приступ.

1. Када завршите, притисните ОК.

Како омогућити макро у Оутлооку?

Овај корак је опциони и требало би да га следите само ако добијете поруку о грешци када покренете свој новокреирани макро.

1. Следеће је да дозволимо Оутлоок-у да покрене наш ВБА макро. Мицрософт Оффице подразумевано онемогућава макрое и не дозвољава их; тако да ћемо морати да дефинишемо одговарајућу безбедност макроа да бисмо омогућили покретање вашег прилагођеног Оутлоок макроа.
2. У програму Оутлоок 2016 кликните на Девелопер на траци и изаберите Макро безбедност .

1. Изаберите безбедносна подешавања макроа.
   1. У програму Оутлоок 2016: Изаберите Обавештења само за дигитално потписане макрое, све остале онемогућене или Обавештења за све макрое .
   2. У Оутлоок 2019: Изаберите Онемогући све макрое са обавештењем . Ово ће поставити поруку упозорења која захтева одобрење корисника пре него што се ваш макро покрене.
2. Након подешавања безбедносних поставки макроа, притисните ОК .

Напомена: Ваше тренутне безбедносне поставке могу спречити покретање макроа у Оутлоок-у. Ево упутства о томе како да поступите ако су макрои онемогућени у вашем Оутлоок Мацро пројекту .

Како користити свој Оутлоок макро?

На крају, али дефинитивно не и најмање важно, сада је време да покренете свој новокреирани макро.

1. Идите на траку са алаткама за брзи приступ (горња лева страна екрана – мало изнад ХОМЕ менија).
2. Притисните икону коју сте доделили свом макроу.
3. Вои'ла, управо сте завршили и покренули свој (први) Оутлоок ВБА макро!

Додатне идеје за Оутлоок макрое

Неколико наших читалаца је питало да ли можемо да наведемо даље идеје за Оутлоок аутоматизацију. Ево неколико за почетак.

1. Аутоматски чувајте прилоге у долазним порукама у одређени фолдер.
2. Прочитајте листу уноса обавеза из ЦСВ датотеке и аутоматски креирајте обавезе у једном или више календара.
3. Аутоматско креирање задатка/састанка/контакта од долазних е-порука.
4. Визуелизирајте статус статуса одговора учесника на скуп састанака који се понављају.
5. Шаљите Оутлоок е-поруке из програма Екцел, Ворд или Аццесс.
6. Преузмите све прилоге из одређене Оутлоок фасцикле на свој рачунар. Ако је простор на вашем Оутлоок налогу ограничен, можете користити овај макро за преузимање само великих прилога (преко 5Мб, на пример) на диск, уместо да њима управљате у Оутлоок-у.
7. Извезите Оутлоок контакте директно у Аццесс базу података. Имајте на уму да је извоз контаката у ЦСВ доступан у производу.
8. Аутоматски ажурирајте информације о састанцима за појединачне или периодичне састанке.

Следећи кораци

• Потребна вам је посебна ВБА помоћ? Слободно нас контактирајте за прилагођени предлог .