Рассылка

[Aqil_f]

Нащел из форума 2 программу для отправки писем из Excel. Обсуждался эти темы здесь:
http://www.planetaexcel.ru/forum.php?thread_id=19254
и здесь:
http://www.planetaexcel.ru/forum.php?thread_id=19863

Для 1-го: Kогда нажимаю кнопку "Открыть", "Просмотр", "Отправить" получается ошибка: "Can't find projecт or library". Какая библотека надо для работы программы и где их найти?

Для 2-го: Заполнил все поля и нажал: "Отправить письмо". Получается "Нет доступа к интернет". А интернет у меня есть. В чем может быт проблема?

[EducatedFool]

Для 1-го: Kогда нажимаю кнопку "Открыть", "Просмотр", "Отправить" получается ошибка: "Can't find projecт or library"

Я задал этот вопрос Яндексу - и сразу же нашёл ответ:
http://www.excel-vba.ru/index.php?fi...t_Find_Library

Странно, что у вас нет доступа к поисковым системам...


По теме:

Посмотрите самый простой способ, как организовать отправку почты (рассылку писем)
(с использованием программы заполнения документов по шаблонам, с последующей отправке по почте)

В программе есть возможность формировать письма по шаблону (с подстановкой данных из таблицы Excel),
прикреплять сформированные документы и файлы из выбранной папки, и много других возможностей.

[Aqil_f]

Спасибо, за ссылку. Этот вопрос решен. Правда, пока рассылка не получается. Это- наверно от Оутлука.


А вот 2-й ни как не получается. "Нет доступа к интернет". И все...

[doober]

на вашем примере все работает.В подтверждение получите почту
закоменте обработку ошибок,посмотрите где будет останов

[Aqil_f]

Да, вижу что отправлены письмы когда Вы запускали программы от своего компа. Но, у меня то же самая ошибка. И болеше ничего не видно.

[IgorGO]

Правда, пока рассылка не получается.

адреса загнать в массив нужного размера, все у меня Аутлук рассылает...

[Aqil_f]

Я пока хочу без Оутлука, поетому этот вариант больше не смотрел.

[doober]

Сообщение от doober

закоменте обработку ошибок,посмотрите где будет останов

Sub Send_Mail()
    Const CDO_Cnf = "http://schemas.microsoft.com/cdo/configuration/"
    Dim oCDOCnf As Object, oCDOMsg As Object
    Dim SMTPserver As String, sUsername As String, sPass As String, sMsg As String
    Dim sTo As String, sFrom As String, sSubject As String, sBody As String, sAttachment As String
   ' On Error Resume Next
    'sFrom - как правило совпадает с sUsername
    SMTPserver = [B10]

И посмотрите ,что является источником ошибки.Возможно защита не дает соединиться с интернетом

[Aqil_f]

Останавляется на команду '.Send' Ошибка: 'Транспорту не удалось подключиться к серверу'

[doober]

А Брандмауер не против?особенно если виста или 7