ВБА Пошаљите е-пошту из програма Екцел | Корак по корак за слање е-поште
ВБА код за слање е-поште из Екцела
У ВБА за слање е-поште из програма Екцел можемо аутоматизовати своју функцију слања поште тако да истовремено можемо аутоматски слати е-пошту вишеструким корисницима, да бисмо то учинили, морамо имати на уму да то чини Оутлоок други производ Оутлоок-а, па зато морамо омогућити Оутлоок скриптирање у ВБА-у и Једном када то завршимо, користимо .Апплицатион метход за коришћење Оутлоок обележја.
ВБА-ова свестраност је невероватна. Разлог зашто ВБА кодери воле екцел зато што помоћу ВБА не само да можемо да радимо у екцелу, већ можемо да приступимо и другим Мицрософт алаткама. Можемо приступити ПоверПоинт-у, Ворд-у и Оутлоок-у помоћу ВБА-а. Оно што ме је импресионирало је када сам чуо за „слање е-поште од самог Екцел-а“. Да, истина је да можемо да шаљемо е-пошту од екцела. У овом чланку ћемо вам показати како да шаљете е-пошту из Екцела са прилозима помоћу ВБА кодирања.
Поставите референцу на Мицрософт Оффице Либрари
Морамо да шаљемо е-пошту из програма Оутлоок. Будући да је Оутлоок спољни објекат, прво што треба да урадимо је да поставимо референцу објекта на „Библиотека објеката Мицрософт Оутлоок 16.0”.
- У ВБА Идите на Алати> Референце
- Сада ћемо видети библиотеку референци објекта. У овом прозору морамо поставити референцу на „Библиотека објеката Мицрософт Оутлоок 16.0“
- Након постављања референце објекта кликните на Ок.
Сада можемо приступити Оутлоок објекту у ВБА кодирању.
13 једноставних корака за слање е-поште из програма Екцел
Писање кода за слање е-поште са прилогом из екцела је прилично компликовано, али вреди потрошити неко време.
Овде можете преузети овај ВБА образац за слање е-поште у Екцел-у - ВБА Пошаљите Екцел образац за е-поштуСледите кораке у наставку да бисте написали свој први макро е-поште екцел.
Корак 1
Покрените потпроцедуру у ВБА.
Шифра:
Суб СендЕмаил_Екампле1 () Крај Суб
Корак 2
Прогласите променљиву Оутлоок.Апплицатион
Шифра:
Затамни ЕмаилАпп као Оутлоок.Апплицатион 'За упућивање на Оутлоок апликацију
Корак # 3
Горња променљива је променљива објекта. Морамо засебно створити инстанцу новог објекта. Да бисте креирали нову инстанцу спољног објекта испод је код.
Шифра:
Сет ЕмаилАпп = Нев Оутлоок.Апплицатион 'За покретање Оутлоок апликације
Корак # 4
Сада да напишемо е-пошту, декларишемо још једну променљиву као „Оутлоок.МаилИтем“.
Шифра:
Затамни имејл као Оутлоок.МаилИтем 'Да бисте упутили нову Оутлоок е-пошту
Корак # 5
Да бисмо покренули нову е-пошту, морамо поставити референцу на нашу претходну променљиву као ЦреатеИтем.
Шифра:
Сет ЕмаилИтем = ЕмаилАпп.ЦреатеИтем (олМаилИтем) 'Да бисте покренули нову Оутлоок е-пошту
Ок, сада ће променљива „ЕмаилАпп“ покренути изглед и у променљивој „ЕмаилИтем“ можемо почети са писањем е-поште.
Корак # 6
Сада морамо бити свесни шта имамо предмете док пишемо е-пошту. Прва ствар је да морамо одлучити коме шаљемо е-пошту. Дакле, за ово морамо да приступимо својству „ТО“.
Корак # 7
Унесите ИД е-поште примаоца у двоструким наводницима.
Шифра:
ЕмаилИтем.То = "Хи@гмаил.цом"
Корак # 8
Након обраћања главном примаоцу, ако желите да проследите било коме у е-пошти, можемо користити својство „ЦЦ“.
Шифра:
ЕмаилИтем.ЦЦ = "хелло@гмаил.цом"
Корак # 9
После ЦЦ-а можемо поставити и БЦЦ ид е-поште.
Шифра:
ЕмаилИтем.БЦЦ = "хххх@гмаил.цом"
Корак # 10
Сада морамо да уврстимо Предмет е-поште коју шаљемо.
Шифра:
ЕмаилИтем.Субјецт = "Тестирај е-пошту из Екцел ВБА"
Корак # 11
Сада морамо да напишемо тело е-поште помоћу типа ХТМЛ Боди.
Шифра:
ЕмаилИтем.ХТМЛБоди = "Здраво," & вбНевЛине & вбНевЛине & "Ово је моја прва е-пошта из Екцела" & _ вбНевЛине & вбНевЛине & _ "Поздрав," & вбНевЛине & _ "ВБА кодер" 'ВбНевЛине је ВБА константа за уметање Нова линија
Корак # 12
Ако желимо да додамо прилог као тренутну радну свеску на којој радимо, онда морамо да користимо својство прилога. Прво прогласите извор променљиве као низ.
Шифра:
Пригушени извор као низ
Затим у ову променљиву напишите ТхисВоркбоок.ФуллНаме после тела е-поште.
Шифра:
Извор = ТхисВоркбоок.ФуллНаме
У овом ВБА коду, ТхисВоркбоок користи се за тренутну радну свеску и .Пуно име користи се за добијање пуног назива радног листа.
Затим напишите следећи код да бисте приложили датотеку.
Шифра:
ЕмаилИтем.Аттацхментс.Адд Соурце
Корак # 13
Сада коначно морамо да пошаљемо е-пошту на поменуте ИД-ове е-поште. То се може учинити помоћу методе „Пошаљи“.
Шифра:
ЕмаилИтем.Сенд
У реду, завршили смо са делом кодирања.
Шифра:
Суб СендЕмаил_Екампле1 () Дим ЕмаилАпп као Оутлоок.Апплицатион Дим Соурце Ас Стринг Сет ЕмаилАпп = Нев Оутлоок.Апплицатион Дим ЕмаилИтем Ас Оутлоок.МаилИтем Сет ЕмаилИтем = ЕмаилАпп.ЦреатеИтем (олМаилИтем) ЕмаилИтем.То = "Хи@гмаил.цом" ЕмаилИтем.ЦЦ = "хелло@гмаил.цом" ЕмаилИтем.БЦЦ = "хххх@гмаил.цом" ЕмаилИтем.Субјецт = "Тестирај е-пошту из Екцел ВБА" ЕмаилИтем.ХТМЛБоди = "Здраво," & вбНевЛине & вбНевЛине & "Ово је моја прва е-пошта од Екцел "& _ вбНевЛине & вбНевЛине & _" Поздрав, "& вбНевЛине & _" ВБА кодер "Извор = ТхисВоркбоок.ФуллНаме ЕмаилИтем.Аттацхментс.Адд Соурце ЕмаилИтем.Сенд Енд Суб
Покрените горњи код и он ће послати е-пошту са поменутим телом е-поште са тренутном радном свеском у прилогу.
