Преглед садржаја
Овај код чува радни лист као нову радну свеску и креира е -поруку у Оутлооку са приложеном новом радном свеском. Веома је корисно ако имате стандардизовану табелу шаблона која се користи у вашој организацији.
За једноставнији пример погледајте Како послати е -пошту из програма Екцел
Сачувајте радни лист као нову радну свеску и приложите га е -пошти
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Суб Маил_Воркбоок ()Апплицатион.ДисплаиАлертс = НетачноАпплицатион.енаблеевентс = НетачноАпплицатион.СцреенУпдатинг = НетачноАпплицатион.Цалцулатион = клЦалцулатионМануалЗатамните ОутАпп као објекатЗатамњивање поште као објектаДим ФилеПатх Ас СтрингДим Пројецт_Наме Ас СтрингДим Темплате_Наме Ас СтрингДим РевиевДате Ас СтрингЗатамни СавеЛоцатион Ас СтрингДим Патх Ас СтрингДим Наме Ас Стринг'Креирајте почетне променљивеПостави ОутАпп = ЦреатеОбјецт ("Оутлоок.Апплицатион")Постави ОутМаил = ОутАпп.ЦреатеИтем (0)Пројецт_Наме = Схеетс ("схеет1"). Распон ("ПројецтНаме"). ВредностТемплате_Наме = АцтивеСхеет.Наме'Затражите унос који се користи у е -поштиРевиевДате = ИнпутБок (Промпт: = "Наведите датум до када желите да се поднесци прегледају.", Титле: = "Унесите датум", Подразумевано: = "ММ/ДД/ГГГГ")Ако РевиевДате = "Унесите датум" Или РевиевДате = вбНуллСтринг Затим идите на ендмакро'Сачувај радни лист као сопствену радну свескуПутања = АцтивеВоркбоок.ПатхНаме = Трим (Средина (АцтивеСхеет.Наме, 4, 99))Поставите вс = АцтивеСхеетСет олдВБ = ТхисВоркбоокСавеЛоцатион = ИнпутБок (Промпт: = "Одаберите назив датотеке и локацију", Титле: = "Сачувај као", подразумевано: = ЦреатеОбјецт ("ВСцрипт.Схелл"). СпециалФолдерс ("Десктоп") & "/" & Наме & ". клск ")Ако Дир (СавеЛоцатион) "" ТадаМсгБок ("Датотека са тим именом већ постоји. Одаберите ново име или избришите постојећу датотеку.")СавеЛоцатион = ИнпутБок (Промпт: = "Одаберите назив датотеке и локацију", Титле: = "Сачувај као", подразумевано: = ЦреатеОбјецт ("ВСцрипт.Схелл"). СпециалФолдерс ("Десктоп") & "/" & Наме & ". клск ")Крај АкоАко је СавеЛоцатион = вбНуллСтринг Затим идите на ендмакро'уклоните заштиту ако је потребноАцтивеСхеет.Унпротецт Пассворд: = "лозинка"Сет невВБ = Воркбоокс.Адд'Подесите екранАцтивеВиндов.Зоом = 80АцтивеВиндов.ДисплаиГридлинес = Нетачно'Копирај + Залепи вредностиолдВБ.АктивирајтеолдВБ.АцтивеСхеет.Целлс.СелецтСелецтион.ЦопиневВБ.АктивирајтеневВБ.АцтивеСхеет.Целлс.СелецтСелецтион.ПастеСпециал Пасте: = клПастеВалуес, Операција: = клНоне, СкипБланкс _: = Нетачно, Транспонирај: = НетачноСелецтион.ПастеСпециал Пасте: = клПастеФорматс, Операција: = клНоне, _СкипБланкс: = Фалсе, Транспосе: = ФалсеСелецтион.ПастеСпециал Пасте: = клПастеВалидатион, Операција: = клНоне, _СкипБланкс: = Фалсе, Транспосе: = Фалсе'Одаберите нову ВБ и искључите начин копирањаневВБ.АцтивеСхеет.Ранге ("А10"). ИзаберитеАпплицатион.ЦутЦопиМоде = Нетачно'Сними документневВБ.СавеАс Назив датотеке: = СавеЛоцатион, _Формат датотеке: = клОпенКСМЛВоркбоок, ЦреатеБацкуп: = ФалсеФилеПатх = Апплицатион.АцтивеВоркбоок.ФуллНаме„Поново заштитите стари ВБолдВБ.АцтивеСхеет.Протецт Лозинка: = "лозинка", ДравингОбјецтс: = Тачно, Садржај: = Тачно, Сценарији: = Тачно _, АлловФорматтингЦеллс: = Труе, АлловФорматтингЦолумнс: = Труе, _АлловФорматтингРовс: = Тачно'ЕмаилНа Грешка Настави даљеСа ОутМаил -ом.то = "емаил@емаил.цом".ЦЦ = "".БЦЦ = "".Субјецт = Назив_пројекта & ":" & Назив_предложака & "на преглед".Боди = "Назив пројекта:" & Пројецт_Наме & "," & Наме & "За преглед до" & РевиевДате.Аттацхментс.Адд (ФилеПатх).Приказ'.Сенд' Опционално за аутоматизацију слања е -поште.ЗавршитиОн Еррор ГоТо 0Сет ОутМаил = НиштаПодесите ОутАпп = Ништа'Заврши макро, врати ажурирање екрана, калкулације итд … ендмакро:Апплицатион.ДисплаиАлертс = ТачноАпплицатион.енаблеевентс = ТачноАпплицатион.СцреенУпдатинг = ТачноАпплицатион.Цалцулатион = клЦалцулатионАутоматицЕнд Суб |
