Овај водич ће вам показати како да шаљете е -пошту из програма Екцел кроз Оутлоок помоћу ВБА.
Слање активне радне свеске
| 1234567891011121314151617181920 | Функција СендАцтивеВоркбоок (стрТо Ас Стринг, стрСубјецт Ас Стринг, Оптионал стрЦЦ Ас Стринг, Оптионал стрБоди Ас Стринг) Као логичкоНа Грешка Настави даљеДим аппОутлоок Ас ОбјецтЗатамни ставку као објекат'креирајте нову инстанцу програма ОутлоокПостави аппОутлоок = ЦреатеОбјецт ("Оутлоок.Апплицатион")Постави мИтем = аппОутлоок .ЦреатеИтем (0)Са ставком.То = стрТо.ЦЦ = "".Субјецт = стрСубјецт.Боди = стрБоди.Прилози.Додати АцтивеВоркбоок.ФуллНаме'користите сенд за слање одмах или прикажите за приказ на екрану.Дисплаи 'или .СендЗавршити'очистите предметеСет мИтем = НиштаПодесите аппОутлоок = НиштаЗавршна функција |
Горња функција се може позвати помоћу доње процедуре
| 123456789101112131415 | Суб СендМаил ()Дим стрТо Ас СтрингДим стрСубјецт Ас СтрингДим стрБоди Ас Стринг'попуњавају променљивестрТо = "јон.смитх@гмаил.цом"стрСубјецт = "У прилогу пронађите финансијску датотеку"стрБоди = "неки текст иде овде за тело е -поште"'позовите функцију за слање е -поштеАко је СендАцтивеВоркбоок (стрТо, стрСубјецт,, стрБоди) = тачно ондаМсгбок „Успешно креирање е -поште“ИначеМсгбок "Креирање е -поште није успело!"Заврши акоЕнд Суб |
Коришћење Еарли Биндинг за позивање на Оутлоок Објецт Либрари
Горњи код користи позно везивање за позивање на Оутлоок објекат. Можете додати референцу у Екцел и по жељи прогласити Оутлоок апликацију и Оутлоок Маил ставку користећи Еарли Биндинг. Рано везивање убрзава рад кода, али вас ограничава јер би корисник требао имати исту верзију програма Мицрософт Оффице на свом рачунару.
Кликните на мени Алати и Референце да бисте приказали оквир за дијалог.
Додајте референцу у библиотеку објеката Мицрософт Оутлоок за верзију система Оффице коју користите.
Затим можете изменити свој код да бисте директно користили ове референце.
Велика предност раног везивања су падајуће листе које вам приказују објекте који су доступни за употребу!
Слање једног листа из активне радне свеске
Да бисте послали један лист, прво морате да направите нову радну свеску од постојеће радне свеске са само тим листом у њој, а затим да је пошаљете.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | Функција СендАцтивеВорксхеет (стрТо Ас Стринг, стрСубјецт Ас Стринг, Оптионал стрЦЦ Ас Стринг, Оптионал стрБоди Ас Стринг) Као БоолеанОн Еррор ГоТо ех'декларишите променљиве за држање потребних објекатаДим вбДестинатион Ас ВоркбоокДим стрДестНаме Ас СтрингДим вбСоурце Ас ВоркбоокЗатамните всСоурце као радни листЗатамните ОутАпп као објекатЗатамњивање поште као објектаДим стрТемпНаме Ас СтрингДим стрТемпПатх Ас Стринг'прво креирајте одредишну радну свескуСет вбДестинатион = Воркбоокс.АддстрДестНаме = вбДестинатион.Наме'подесите изворну радну свеску и листПодесите вбСоурце = АцтивеВоркбоокПоставите всСоурце = вбСоурце.АцтивеСхеет'копирајте активни лист у нову радну свескувсСоурце.Цопи Афтер: = Радне свеске (стрДестНаме). Табеле (1)'сачувај са привременим именомстрТемпПатх = Енвирон $ ("темп") & "\"стрТемпНаме = "Листа добијена из" & вбСоурце.Наме & ".клск"Са вбДестинатион.СавеАс стрТемпПатх & стрТемпНаме'сада пошаљите е -поруку одредишној радној свесциПостави ОутАпп = ЦреатеОбјецт ("Оутлоок.Апплицатион")Постави ОутМаил = ОутАпп.ЦреатеИтем (0)Са ОутМаил -ом.То = стрТо.Субјецт = стрСубјецт.Боди = стрБоди.Прилози.Додати вбДестинатион.ФуллНаме'користите сенд за слање одмах или прикажите за приказ на екрану.Дисплаи 'или .ДисплаиЗавршити.Затвори НетачноЗавршити„избришите привремену радну свеску коју сте приложили својој поштиУбијте стрТемпПатх & стрТемпНаме'очистите предмете како бисте ослободили меморијуПостави вбДестинатион = НиштаПостави вбСоурце = НиштаСет всСоурце = НиштаСет ОутМаил = НиштаПодесите ОутАпп = НиштаИзлазна функцијаех:МсгБок Ерр.ДесцриптионЗавршна функција |
и да бисмо покренули ову функцију, можемо креирати следећу процедуру
| 12345678910111213 | Суб СендСхеетМаил ()Дим стрТо Ас СтрингДим стрСубјецт Ас СтрингДим стрБоди Ас СтрингстрТо = "јон.смитх@гмаил.цом"стрСубјецт = "У прилогу пронађите финансијску датотеку"стрБоди = "неки текст иде овде за тело е -поште"Ако је СендАцтивеВорксхеет (стрТо, стрСубјецт,, стрБоди) = ТачноМсгБок "Успешно креирање е -поште"ИначеМсгБок "Креирање е -поште није успело!"Крај АкоЕнд Суб |
