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