Како слати е -пошту из Екцел табеле помоћу ВБА скрипти

Како слати е -пошту из Екцел табеле помоћу ВБА скрипти

За слање е -поште из програма Мицрософт Екцел потребно је само неколико једноставних скрипти. Додајте ову функционалност у своје табеле и заиста можете побољшати колико можете постићи у Екцелу.





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



Радије гледате овај водич као видео запис? Побринули смо се за вас!



Зашто послати е -пошту из програма Екцел?

Постоји много разлога зашто бисте можда желели да пошаљете е -пошту из програма Мицрософт Екцел.

Можда имате особље које ажурира документе или табеле недељно, и желели бисте да примите обавештење путем е -поште о томе када се та ажурирања заврше. Или можда имате табелу контаката и желите да им пошаљете једну е -поруку одједном.



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

Техника у овом чланку ће користити функцију која је дуго доступна у програму Екцел ВБА, Објекти података о сарадњи (ЦДО).



ЦДО је компонента за размену порука која се користи у оперативном систему Виндовс још од првих генерација ОС -а. Некада се звао ЦДОНТС, а затим је појавом Виндовс 2000 и КСП замењен са 'ЦДО за Виндовс 2000'. Ова компонента је већ укључена у вашу ВБА инсталацију у оквиру програма Мицрософт Ворд или Екцел и спремна је за употребу.

Коришћење компоненте чини слање е -поште из Виндовс производа са ВБА изузетно једноставним. У овом примеру ћете користити компоненту ЦДО у Екцелу за слање е -поште која ће испоручити резултате из одређене ћелије програма Екцел.



Корак 1: Креирајте ВБА макро

Први корак је да одете на картицу Екцел Девелопер.

Унутар картице Девелопер кликните на Инсерт у пољу Контроле, а затим изаберите командно дугме.

Нацртајте га у лист, а затим креирајте нови макро за њега кликом на Макрои на траци за програмере.

Када кликнете на Креирај дугме, отвориће се ВБА едитор.

Додајте референцу у библиотеку ЦДО навигацијом до Алати > Референце у уреднику.

Померајте се надоле по листи док не пронађете Мицрософт ЦДО за библиотеку Виндовс 2000 . Означите поље за потврду и кликните У реду .

Када кликнете У реду , забележите назив функције на коју лепите скрипту. Требаће вам касније.

Корак 2: Поставите ЦДО поља „Од“ и „До“

Да бисте то урадили, прво морате да креирате објекте поште и подесите сва поља која су неопходна за слање е -поште.

Имајте на уму да, иако су многа поља опционална, Фром и До поља су обавезна.

како преузети видео запис перископа
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = 'Results from Excel Spreadsheet'
strFrom = 'rdube02@gmail.com'
strTo = 'rdube02@gmail.com'
strCc = ''
strBcc = ''
strBody = 'The total results for this quarter are: ' & Str(Sheet1.Cells(2, 1))

Супер ствар у вези са овим је то што можете да креирате било који низ који желите да прилагодите пуну поруку е -поште и доделите је стрБоди променљива.

Саставите компоненте поруке помоћу & стринг за уметање података са било ког Мицрософт Екцел листа директно у поруку е -поште, баш као што је приказано горе.

Корак 3: Конфигуришите ЦДО за употребу спољног СМТП -а

Следећи одељак кода је где ћете конфигурисати ЦДО да користи било који спољни СМТП сервер за слање е -поште.

Овај пример је подешавање које није ССЛ путем Гмаил-а. ЦДО је способан за ССЛ, али то је изван опсега овог чланка. Ако требате да користите ССЛ, ово напредни код у Гитхуб -у може да помогне.

Set CDO_Mail = CreateObject('CDO.Message')
On Error GoTo Error_Handling
Set CDO_Config = CreateObject('CDO.Configuration')
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') = 2
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') = 'smtp.gmail.com'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') = 1
.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') = 'email@website.com'
.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') = 'password'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') = 25
.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With

Корак 4: Довршите постављање ЦДО -а

Сада када сте конфигурисали везу са СМТП сервером за слање е -поште, све што треба да урадите је да попуните одговарајућа поља за Објекат ЦДО_Маил , и издати Пошаљи команда.

Ево како то радите:

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description '' Then MsgBox Err.Description

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

ЦДО једноставно саставља е -пошту и користи податке о вези са вашим СМТП сервером за отпуштање поруке. То је најлакши начин за укључивање е -поште у Мицрософт Ворд или Екцел ВБА скрипте.

Да бисте повезали командно дугме са овом скриптом, идите у уређивач кода и кликните на Схеет1 да бисте видели ВБА код за тај радни лист.

Унесите назив функције на коју сте горе залепили скрипту.

како прећи са иПод -а на итунес

Ево како је изгледала порука коју сам примио у пријемно сандуче:

Белешка : Ако добијете грешку која гласи Транспорт није успео да се повеже са сервером , уверите се да сте унели исправно корисничко име, лозинку, СМТП сервер и број порта у редове кода који су наведени испод Са СМТП_Цонфиг .

Наставите даље и аутоматизујте цео процес

Све је у реду ако можете слати е -пошту из програма Екцел притиском на дугме. Међутим, можда бисте желели да користите ову функцију редовно, у том случају би имало смисла аутоматизовати процес.

Да бисте то урадили, морате да промените макро. Идите у уређивач Висуал Басиц и копирајте и залепите цео код који смо саставили.

Затим изаберите ТхисВоркбоок од Пројекат хијерархија.

Из два падајућа поља при врху прозора кода изаберите Радна свеска и изаберите Отвори са падајућег менија Методе.

Залепите горњу скрипту е -поште у Привате Суб Воркбоок_Опен () .

Ово ће покренути макро сваки пут када отворите Екцел датотеку.

Затим отворите Планер задатака .

Помоћу овог алата ћете замолити Виндовс да аутоматски отвара табелу у редовним интервалима, када ће се покренути ваш макро и послати е -поруку.

Изаберите Направи основни задатак ... од поступак мени и прођите кроз чаробњак док не дођете до поступак екран.

Изаберите Покрените програм и кликните Следећи .

Користити Прегледај дугме да бисте пронашли локацију програма Мицрософт Екцел на рачунару или копирајте и залепите путању у Програм/скрипта поље.

Затим унесите путању до Мицрософт Екцел документа у Додајте аргументе поље.

Довршите чаробњака и ваше заказивање ће бити на месту.

Вреди покренути тест тако што ћете заказати радњу за неколико минута у будућности, а затим изменити задатак када можете да потврдите да ради.

Белешка : Можда ћете морати да прилагодите поставке центра за поузданост да бисте се уверили да се макро правилно изводи.

Да бисте то урадили, отворите табелу и идите на Датотека > Опције > Центар за поверење .

Одавде кликните Подешавања центра за поузданост , а на следећем екрану поставите точкић за избор радија на Никада не приказујте информације о блокираном садржају .

Нека Мицрософт Екцел ради за вас

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

најбоља апликација за спавање за сат Аппле 6

Међутим, резултати говоре сами за себе. Уз мало ВБА искуства, ускоро ћете моћи да натерате Мицрософт Екцел да аутоматски извршава основне задатке, дајући вам више времена да се концентришете на хитније ствари.

Потребно је време да се изгради стручност са ВБА, али ускоро ћете видети плодове свог рада ако се тога придржавате.

Једно одлично место за почетак је наш ауторитативан водич о коришћењу ВБА у Екцелу . Када завршите с тим, ова једноставна скрипта за слање е -поште из програма Екцел осећат ће се као дјечја игра.

Објави Објави Твеет Емаил Цанон против Никона: Која марка фотоапарата је боља?

Цанон и Никон су два највећа имена у индустрији фотоапарата. Али који бренд нуди бољу линију камера и објектива?

Прочитајте следеће Повезане теме
  • Продуктивност
  • Програмирање
  • Савети за е -пошту
  • Програмирање
  • Висуал Басиц програмирање
  • Мицрософт Екцел
  • Савети за Мицрософт Оффице
О аутору Риан Дубе(942 објављених чланака)

Риан има диплому електротехнике. Радио је 13 година у инжењерингу аутоматизације, 5 година у ИТ -у, а сада је инжењер апликација. Бивши главни уредник МакеУсеОф -а, говорио је на националним конференцијама о визуализацији података и био је представљен на националној телевизији и радију.

Више од Риана Дубеа

Претплатите се на наш билтен

Придружите се нашем билтену за техничке савете, критике, бесплатне е -књиге и ексклузивне понуде!

Кликните овде да бисте се претплатили