Овај макро ће послати сваки лист једној особи.
- Направите нову радну свеску са листом.
- Сачувајте радну свеску пре него што је пошаљете
- Избришите датотеку са чврстог диска након што је послата.
Суб Маил_евери_Ворксхеет () Дим стрДате Ас Стринг Дим сх Ас Ворксхеет Апплицатион.СцреенУпдатинг = Фалсе За сваки сх у ТхисВоркбоок.Ворксхеетс Иф сх.Ранге ("а1"). Вредност Као "*@*" Затим сх.Цопи стрДате = Формат (Датум , "дд-мм-ии") & "" & Формат (Време, "х-мм-сс") АцтивеВоркбоок.СавеАс "Део" & ТхисВоркбоок.Наме _ & "" & стрДате & ".клс" АцтивеВоркбоок.СендМаил АцтивеСхеет.Ранге ("а1"). Вредност, _ "Ово је ред предмета" АцтивеВоркбоок.ЦхангеФилеАццесс клРеадОнли Килл АцтивеВоркбоок.ФуллНаме АцтивеВоркбоок.Цлосе Фалсе Енд Иф Нект сх Апплицатион.СцреенУпдатинг = Труе Енд Суб