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