Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како да проверите адресе примаоца пре него што пошаљете Оутлоок?

У неким временима можете пропуштати додавање неких важних прималаца у поља То, ЦЦ или БЦЦ док шаљете е-пошту преко Оутлоок-а. Овде, могу вам представити метод да проверим да ли су додате одређене адресе е-поште прије слања преко Оутлоок-а.

Проверите адресе пре слања са ВБА кодом

Одговор на све искључите себе у перспективи

Када користимо Одговор на све функције у програму Оутлоок, можемо додати наше налоге у поље За ако е-маилови које сте примили садрже још два ваша налога. У том случају, можда ћете желети да уклоните своје рачуне из поља За и ЦЦ. Ктоолс за Оутлоок's Зовем се може вам учинити услугу за брзо решавање овог посла. Потребан вам је само један клик, сви миселфт рачуни у Оутлоок-у ће бити уклоњени из поља То и ЦЦ. Кликните за бесплатни пробни период КСНУМКС дана!
доц одговори искључи налог
доц арров Довм

доц одговор искључи налог КСНУМКС
Кутоолс фор Оутлоок: са више десетина практичних Оутлоок додатака, слободно да се испробавају без ограничења у КСНУМКС данима.

Проверите адресе пре слања са ВБА кодом

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

КСНУМКС. Притисните Алт + ФКСНУМКС кеис то енабле Мицрософт Висуал Басиц за апликације прозор.

КСНУМКС. Дупли клик ТхисОутлоокСессион од ПројецтКСНУМКС окно да отворите уредјивач кода, копирајте и налепите испод кода у едитор.

ВБА: проверите адресу примаоца у поље За слање пре слања

Привате Суб Апплицатион_ИтемСенд (БиВал Итем Ас Објецт, Откажи као Боолеан) 'УпдатебиЕктендоффицеКСНУМКС Дим кАддрессАрр () Као варијанта Дим кАддресс Ас Стринг Дим кРеципиент Као Прималац Дим кПромпт Ас Стринг Дим кИесНо Ас Интегер Дим кДицтионари Као Сцриптинг.Дицтионари Он Еррор Ресуме Нект Сет кДицтионари = Нев Сцриптинг.Дицтионари кАддрессАрр = Арраи ("екамплеКСНУМКС@КСНУМКС.цом", "екамплеКСНУМКС@КСНУМКС.цом", "екамплеКСНУМКС@КСНУМКС.цом") За и = ЛБоунд (кАддрессАрр) УБоунд (кАддрессАрр) кДицтионари.Адд кАддрессАрр ), Труе Нект и За сваки кРеципиент у Итем.Реципиентс Ако кРеципиент.Типе = олТо Ако је кДицтионари.Екистс (кРеципиент.Аддресс) Затим кДицтионари.Ремове кРеципиент.Аддресс Крај Ако Следећи Ако кДицтионари.Цоунт = КСНУМКС Затим ГоТо ЛКСНУМКС За и = КСНУМКС Да кДицтионари.Цоунт - КСНУМКС Ако кАддресс = "" Затим кАддресс = кДицтионари.Кеис (и) Елсе кАддресс = кАддресс + ";" & кДицтионари.Кеис (и) Крај Ако Следеће и кПромпт = "Не шаљете ово у: "& кАддресс &" .Да ли сте сигурни да желите послати Маил? " кИесНо = МсгБок (кПромпт, вбКуестион + вбИесНо, "Кутоолс фор Оутлоок") Ако кИесНо = вбНо Затим Откажи = Труе ЛКСНУМКС: Сет кРеципиент = Ништа Сет кДицтионари = Ништа Енд Суб

доц проверите адресу примаоца пре слања КСНУМКС-а

У коду можете да промените ("example1@126.com", "example2@126.com", "example3@126.com") стварним примаоцима који су вам потребни.

КСНУМКС. Затим и у Мицрософт Висуал Басиц за апликације прозор, кликните алат > Референце. Провера Мицрософт Сцриптинг Рунтиме цхецкбок ин Референце-ПројецтКСНУМКС дијалог.

доц проверите адресу примаоца пре слања КСНУМКС-а доц стрелица десно доц проверите адресу примаоца пре слања КСНУМКС-а

КСНУМКС. клик OK и сачувајте код.

Сада Ако се наведени примаоци не појављују у пољу За слање е-поште, дијалог ће се појавити да вас подсети да ли ћете послати е-пошту.
доц проверите адресу примаоца пре слања КСНУМКС-а

Уз горњи код, он само провјерава адресе е-поште у До поље, ако желите да се пријавите До, CC и БЦЦ поља, можете користити код испод.

ВБА: проверите адресу примаоца у поља То / ЦЦ / БЦЦ прије слања

Привате Суб Апплицатион_ИтемСенд (БиВал Елемент Ас Објецт, Цанцел ас Боолеан) 'УпдатебиЕктендоффицеКСНУМКС Дим кРеципиентс Ас Оутлоок.Реципиентс Дим кРеципиент Ас Оутлоок.Реципиент Дим кПос Ас Интегер Дим кИесНо Ас Интегер Дим кПромпт Ас Стринг Дим кАддресс Ас Стринг Он Ресуме Нект Иф Итем. Цласс <> олМаил Затим Екит Суб Сет кРеципиентс = Итем.Реципиентс кАддресс = "екамплеКСНУМКС@гмаил.цом" За сваки кРеципиент у кРеципиентс кПос = ИнСтр (ЛЦасе (кРеципиент.Аддресс), кАддресс) Ако кПос = КСНУМКС Затим кПромпт = "Слање ово на "& кАддресс &". Да ли сте сигурни да желите да га пошаљете? " кИесНо = МсгБок (кПромпт, вбИесНо + вбКуестион + КСНУМКС, "Кутоолс фор Оутлоок") Ако кИесНо = вбНо Затим Откажи = Исти Крај Ако Следећи кРеципиент Енд Суб

Са овим кодом, не морате да проверавате Мицрософт Сцриптинг Рунтиме потврдите поље, само директно сачувајте код за ступање на снагу.



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.