Отправка файла через The Bat - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отправка файла через The Bat (pdf файл нужно отправить на выбранный емайл адрес)

Отправка файла через The Bat

Logist

Дата: Вторник, 21.05.2013, 13:38 | Сообщение № 21

Группа: Пользователи

Ранг: Участник

Сообщений: 62

Репутация: 1 ±

Замечаний: 0% ±

Добрый день, RAN.

Цитата

Я думаю, что пример вызова этой функции имеется в том же месте.

Написано что "Если задан параметр AttachFilename, к отправляемому письму прикрепляется файл"
но как его задать я так и не понял.
Перечитал уже наверно раз 100 здесь
Может вы мне укажете где именно?

На всякий случай прикрепил файлик.

К сообщению приложен файл: 3453295.xls (47.0 Kb)

Сообщение отредактировал Logist - Вторник, 21.05.2013, 13:40

Ответить

RAN

Дата: Вторник, 21.05.2013, 14:37 | Сообщение № 22

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Функция вызывается строкой
[vba]

Код

ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема

[/vba]
в процедуре
[vba]

Код

Sub Формирование_и_Отправка_Писем()

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Logist

Дата: Вторник, 21.05.2013, 15:19 | Сообщение № 23

Группа: Пользователи

Ранг: Участник

Сообщений: 62

Репутация: 1 ±

Замечаний: 0% ±

Благодаря вам понял что искал не там.
Но все равно не могу сообразить

попробовал по аналогии "Тема" добавить в процедуре

[vba]

Код

AttachFilename = "" & ro.Cells(3) & ""

[/vba]
и код стал

[vba]

Код

Sub Формирование_и_Отправка_Писем()
     Dim ro As Range, ra As Range: On Error Resume Next
     If ПутьКФайлуПрограммыTheBAT = "" Then MsgBox "Программа TheBAT! не установлена!", _
        vbCritical, "Отправка почты невозможна": Exit Sub

     ' таблица с заполненными ячейками в первом столбце
     Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))

     For Each ro In ra.EntireRow  ' перебираем все заполненные строки
         Адрес = Trim$(ro.Cells(1))
         If Адрес Like "*?@?*.?*" Then    ' если в первой ячейке указан корректный адрес почты

             ' формируем тему письма из 2-й ячейки строки
             Тема = "" & ro.Cells(2) & ""

             AttachFilename = "" & ro.Cells(3) & ""




             ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема




         End If
     Next ro
End Sub

[/vba]

но что то безрезультатно.
Может путь к файлу это не AttachFilename?
Правильно ли я иду?

Заранее спасибо.

Ответить

СообщениеБлагодаря вам понял что искал не там.
Но все равно не могу сообразить

попробовал по аналогии "Тема" добавить в процедуре

[vba]

Код

AttachFilename = "" & ro.Cells(3) & ""

[/vba]
и код стал

[vba]

Код

[/vba]

но что то безрезультатно.
Может путь к файлу это не AttachFilename?
Правильно ли я иду?

Заранее спасибо.

Автор - Logist
Дата добавления - 21.05.2013 в 15:19

Logist

Дата: Вторник, 21.05.2013, 15:51 | Сообщение № 24

Группа: Пользователи

Ранг: Участник

Сообщений: 62

Репутация: 1 ±

Замечаний: 0% ±

Ура, разобрался.

изменил в коде выше

[vba]

Код

ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема

[/vba]
на
[vba]

Код

ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема, AttachFilename

[/vba]

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

К сообщению приложен файл: 1821369.xls (52.5 Kb)

Ответить

logic

Дата: Четверг, 18.09.2014, 17:03 | Сообщение № 25

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте
Помогите пожалуйста.
Как выставить паузу между отправками писем. Сервер отправляет в бан.
Я не спамер, ни в коем случае.
Нужно делать рассылку по подрядчикам, которые сотрудничают с компанией и по представительствам. А это более 300 ящиков каждый день.
И мне приходиться заниматься тупой рутиной по 30-40 мин.
Спасибо

Sub Формирование_и_Отправка_Писем()
Dim ro As Range, ra As Range: On Error Resume Next
If ПутьКФайлуПрограммыTheBAT = "" Then MsgBox "Программа TheBAT! не установлена!", _
vbCritical, "Отправка почты невозможна": Exit Sub

' таблица с заполненными ячейками в первом столбце
Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))

For Each ro In ra.EntireRow ' перебираем все заполненные строки
Адрес = Trim$(ro.Cells(1))
If Адрес Like "*?@?*.?*" Then ' если в первой ячейке указан корректный адрес почты

' формируем тему письма из 2-й ячейки строки
Тема = "" & ro.Cells(2) & ""

AttachFilename = "" & ro.Cells(3) & ""

ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема, AttachFilename
[moder]Закрыта тема. Нарушение п. 5q Правил форума

Ответить

Страница 2 из 2
«
1
2