Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Рассылка почты по указанному списку. 
:(
    Опции темы
Devourer
Дата 21.10.2008, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 23.8.2008

Репутация: нет
Всего: нет
Есть список имэйл адресов в формате xls.
Как организовать рассылку писем этим людям? 

Текст сообщения находится в том же файле.
PM MAIL ICQ   Вверх
mihanik
Дата 21.10.2008, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Модератор: 
Эм...
Что-то смахивает на спамерство...
Докажешь, что у тебя благие намерения, поможем.



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Ved
Дата 21.10.2008, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1
mihanik, 
Цитата

Докажешь, что у тебя благие намерения, поможем.



 Мне бы тоже было интересно как сделать такое!

Я работник минздрава, у меня список адресов если сравнить с печатным вариантом для представления формат ариал шрифт 12 на 12 листах  
.xls есть тоже такой фаил с эитми адресами
бывают такие случаи, что надо отправить всем письмо или же выборочно адресам всех районов ЦРБ!
Ну там мало ли иногда просят разослать в сеть экономя свой траф!
А мне без разницы у меня безлимит без ограничения скорости! Так что мне и труда бы не составило помочь всем оказав такую услугу!
Но в связи с незнанием как это сделать для всего списка сразу,
 я ленюсь помогать! smile  smile 



--------------------
Я не волшебник, я только учусь!  smile 
PM MAIL   Вверх
mihanik
Дата 21.10.2008, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Отправить письмо из скрипта можно так...
Код

' Send Email from a Script

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "Atl-dc-01 down" 
objEmail.Textbody = "Atl-dc-01 is no longer accessible over the network."
objEmail.Send


Это если есть установленный и настроенный e-mail клиент.
Если клиента нет, то отправляются письме несколько по-другому.

Код

' Send Email without Installing the SMTP Service

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "Server down" 
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smarthost" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send


Это стандартные шаблоны.
А теперь нужно просто организовать цикл по ячейкам и изменять строку 
Код

objEmail.To = "[email protected]"

Ну... Это для второго варианта, а для первого варианта, думаю, сами разберётесь...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 21.10.2008, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Есть более простой способ - импорт списка адресов в адресную книгу почтового клиента и создание списков рассылки


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Ved
Дата 21.10.2008, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 3.8.2006
Где: Хижина в Тетюшах

Репутация: нет
Всего: 1
Akina, 
Для моего варианта плохо у меня очень большая адресная книга будет! А мне из этого списка 90% адресов могут в течение года понадобится только один раз!
 smile 


--------------------
Я не волшебник, я только учусь!  smile 
PM MAIL   Вверх
Akina
Дата 22.10.2008, 07:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(Ved @  21.10.2008,  23:45 Найти цитируемый пост)
у меня очень большая адресная книга будет! А мне из этого списка 90% адресов могут в течение года понадобится только один раз!

Интересно, много - это сколько? сотни тысяч - это считается нормальным для книги списков рассылок (хотя при таких рассылках лучше иметь собственный почтовик). А уж пара сотен - это вообще не разговор.
К тому же никто не говорил, что вся адресная книга = один список рассылки. В книге может быть куча списков, и любой адрес может в одни входить, в другие нет.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Devourer
Дата 26.10.2008, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 23.8.2008

Репутация: нет
Всего: нет
Код

Sub название()
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "имэйл@mail.ru"
objEmail.To = "имэйл@mail.ru"
objEmail.Subject = "Тема"
objEmail.TextBody = "Текст"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "имэйл@mail.ru"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "тра ля ля"

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smtp.mail.ru"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub



Выдает ошибку----"Необходимый путь к папке раскладки не был указан"
Не скжете где ошибка?

Это сообщение отредактировал(а) Devourer - 26.10.2008, 18:58
PM MAIL ICQ   Вверх
XOXOJI
Дата 26.10.2008, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: нет
Всего: 2
есть у меня примерчик отсылки писем через SMTP на VB6. привяжи к нему открытие книги с адресами... если интересует, на поковыряй, думаю разберешься

Присоединённый файл ( Кол-во скачиваний: 20 )
Присоединённый файл  smtp.rar 79,47 Kb
PM MAIL   Вверх
XOXOJI
Дата 27.10.2008, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: нет
Всего: 2
вот с моей припиской. form1 и form2 мои

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  smtp1.rar 81,75 Kb
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1228 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.