Преглед садржаја
Додајте нови лист, промените назив листа у маил.
Свака пошта коју желите послати ће користити 3 колоне.
- у колону А - унесите назив листа или листова које желите да пошаљете.
- у колону Б - унесите адресу е -поште.
- у колони Ц - наслов теме се појављује при врху поруке е -поште.
У колону А: Ц унесите податке за прву пошту, а за другу можете користити колоне Д: Ф.
на овај начин можете послати 85 различитих е-порука (85*3 = 255 колона).
Суб Маил_схеетс () Дим МиАрр Као Вариант Дим ласт Ас Лонг Дим схнаме Ас Лонг Дим а Ас Интегер Дим Арр () Ас Стринг Дим Н Ас Интегер Дим стрдате Ас Стринг Фор а = 1 То 253 Степ 3 Иф ТхисВоркбоок.Схеетс ("маил" ) .Целлс (1, а) .Валуе = "" Затим изађите из под апликације.СцреенУпдатинг = Фалсе ласт = ТхисВоркбоок.Схеетс ("пошта"). Ћелије (Ровс.Цоунт, а) .Енд (клУп) .Ров Н = 0 Фор схнаме = 1 То ласт Н = Н + 1 РеДим Пресерве Арр (1 То Н) Арр (Н) = ТхисВоркбоок.Схеетс ("маил"). Целлс (схнаме, а) .Вредност Нект схнаме ТхисВоркбоок.Ворксхеетс (Арр). Копирај стрдате = Формат (Дате, "дд-мм-ии") & "" & Формат (Тиме, "х-мм-сс") АцтивеВоркбоок.СавеАс "Део" & ТхисВоркбоок.Наме _ & "" & стрдате & " .клс "Витх ТхисВоркбоок.Схеетс (" маил ") МиАрр = .Ранге (.Целлс (1, а + 1), .Целлс (Ровс.Цоунт, а + 1) .Енд (клУп)) Енд витх АцтивеВоркбоок.СендМаил МиАрр , ТхисВоркбоок.Схеетс ("маил"). Целлс (1, а + 2) .Вредност АцтивеВоркбоок.ЦхангеФилеАццесс клРеадОнли Килл АцтивеВоркбоок.ФуллНаме АцтивеВоркбоок.Цлосе Фалсе Апплицатион.СцреенУпдатинг = Труе Нект Енд Суб
