| Цитата |
|---|
| написал: Sub test() ' --------------------------------------------- Dim dic As Object, i&, txt$ Dim allrange As Range, rng As Range ' --------------------------------------------- Application.ScreenUpdating = False Set dic = CreateObject("Scripting.Dictionary") Set allrange = Application.InputBox("Выберите диапазон", Type:=8) arr = Worksheets("ReplaceList").UsedRange.Value For i = 1 To UBound(arr) txt = arr(i, 1) dic.Item(txt) = arr(i, 2) Next i For Each rng In allrange txt = rng.Value If dic.exists(txt) Then rng.Value = dic.Item(txt) Next rng Application.ScreenUpdating = True End Sub |
Макрос для поиска и замены текста в ячейках согласно списка
Массовая рассылка, Массовая рассылка с использование outlook по шаблону
|
11.08.2018 01:20:19
Друзья, привет!
Нужна ваша экспертная помощь. Давно пытаюсь найти макрос для рассылки писем через Outlook. Моя работы связана с частыми переписками по почте, но самое важно с рассылкой заданий для поставщиков. Всем отправляется письмо с одинаковым текстом, но разными кусочками одной таблицы Excel Я пользуюсь шаблонами писем Outlook, но бывает, что нужно выслать более 100 писем и сил не хватает копипастить. Требуемый порядок действий от макроса- Открой шаблон письма > вставь часть таблицы (или вложи) по фирме ГОЛУБЬ (указано в 1 столбце) в текст письма > отправь ГОЛУБЮ взяв почту из контактного листа (другая табличка excel). Буду рада любым идеям и помощи. Все добра 
Изменено: - 11.08.2018 01:20:51
|
|
|
|
|
