Страницы: 1
RSS
Рассылка, Как организовать рассылку
 
Добрый вечер.
Помогите пожалуйста решить проблему.
Есть таблица в Экселе, которая отдельным столбиком содержит список электронных адресов (порядка 100). Нужно разделить  таблицу на 100 файликов и отправить информацию на свой электронный адрес.
 
Что нужно чтобы такое реализовать?
Я доступно изложил проблему?
 
Цитата
fortran пишет:
Что нужно
Прочитать правила форума, воспользоваться поиском, посетить Приемы.
Я сам - дурнее всякого примера! ...
 
А быструю наводку можете бросить. Пример подобного в приемах?
 
Вот примеры макросов для рассылки из Excel:
http://excelvba.ru/code/TheBAT
http://excelvba.ru/code/CDO
http://excelvba.ru/code/OutlookSendMail

Ну а это - если захотите одним нажатием кнопки рассылать письма по шаблону, с вложенными файлами:
http://excelvba.ru/programmes/FillDocuments/SendEmail
 
А если рассылка аутлуком, а не программой Бет. Есть такой пример?
 
здесь смотрели? http://planetaexcel.ru/techniques/13/161/
 
Помогите доработать макрос. Сверхздача состоит в том что файл содержит таблицу, с которой нужно нарезать в отдельные файлы содержимое (каждому свое) и отправить помимо текста письма еще и вложение в эксель файле
 
Не понятно, что надо.
1. Как получить кучу файлов из одной таблицы?
  Так это можно понять с помощью записи макроса.
2. Как присоединить файл в ваше сообщение?
 Примерно так - добавить в Ваш код
Dim objAttach As Outlook.Attachments
...............
Set objAttach = oItem.Attachments
objAttach.Add (Ваш файл)
3. АВТОМАТИЧЕСКИ! отправить сообщение?
- отобразить подготовленной сообщение на экране с помощью .Display
- а вот дальше команда .SEND не пройдет - сработает защита MS - потребует ручного подтверждения.
, что можно   эммулировать применяя API ( это геморрой - я долго возился, но как-то работает)
 
1. Не понятно как сделать кучу файлов с таблицы, чтобы каждая строка сохранялась в отдельный файл при этом называть их по-разному
2. Возможно ли создать цикл, чтобы каждому адресу подтягивался свой файл (Add...)
3. Что означает oItem?
 
Как присоединить файл в сообщение чтобы каждый файл направить на свой электронный адрес?
Dim objAttach As Outlook.Attachments
...............
Set objAttach = oItem.Attachments
objAttach.Add (Ваш файл)
Как организовать цикл чтобы макрос искал по названию нужный файл для присоединения?
 
Цитата
1. Не понятно как сделать кучу файлов с таблицы, чтобы каждая строка сохранялась в отдельный файл при этом называть их по-разному
2. Возможно ли создать цикл, чтобы каждому адресу подтягивался свой файл (Add...)

1. Мне тоже непонятно, - ибо нет примеров файлов, которые должны получиться в результате нарезки

2. Да, возможно.
Примера кода не будет, так как вы ни словом не обмолвились о том, как макрос должен искать файл для той или иной строки (или имя файла вложения - в отдельном столбце будет?)

Цитата
3. Что означает oItem?
oItem - это объект «письмо»

Цитата
Как организовать цикл чтобы макрос искал по названию нужный файл для присоединения?
Мы - не телепаты, чтобы догадаться, где макрос должен искать файлы, и по каким признакам.
Хотите, чтобы вам помогли, — обеспечьте помогающих всеми необходимыми исходными данными.
Не будем же мы вам «вслепую» рисовать разные примеры кода, в надежде, что один из них вас устроит...



PS: Не проще ли воспользоваться готовой программой для рассылки?
http://excelvba.ru/programmes/FillDocuments/SendEmail
Там уже реализовано все что вам нужно - и прикрепление разных файлов, и каждому своё сообщение,
и т.д. и т.п.
И ни одной строки кода писать не надо будет. 20 минут на настройку, - и всё будет отправляться нажатием одной кнопки.
Правда, отправка пока только через TheBAT, - но в следующих версиях добавится и Outlook
 
Сорри, что не достаточно информации дал, я Вас понимаю...
Рассылку делаю с помощью Outlook, но все равно спасибо за ссылку.
Внесу ясность:
имя файла вложения - в отдельном столбце будет!
Но как впихнуть в  цикл чтобы по имени искал файл в папке, пока не придумал :(
 
Как в цикле задать выбор нужного файла для добавления в Attachments?
 
Эх, блин... а в какой папке искать, пофиг?
В любой, с корня диска C: начинать? по всем дискам поиск выполнять?

После строки EmailAddr = cell.Value
добавьте:

Код
1
2
3
4
5
      Folder$ = "C:\Documents and Settings\Admin\Рабочий стол\Результат\"
      Filename$ = cell.Offset(0, 2).Value ' из 4-го столбца
      ' если в папке Folder$ есть файл, содержащий в имени текст из 4-го столбца,
      ' то в переменную attach$ будет записано имя найденного файла
      attach$ = "": attach$ = Dir(Folder$ & Filename$ & "*", vbNormal)


ну а потом, после строки .Body = Msg
добавьте это:
Код
1
If Len(attach$) Then .Attachments.Add Folder$ & attach$
 
Большое человеческое спасибо Вам! :)
Посмотрим, что выйдет
Страницы: 1
Читают тему
Наверх
Loading...