Главная » Макросы для Excel » Отправка почты макросом VBA без использования почтовых программ

Отправка почты макросом VBA без использования почтовых программ

Если вам нужно рассылать письма из Excel,
воспользуйтесь готовым решением в виде надстройки FillDocuments

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

Макрос для отправки письма из Excel штатными средствами Windows

ВНИМАНИЕ! Данный код гарантированно работает ТОЛЬКО в ОС WindowsXP.
В остальных версиях Windows код не проверял.
В Windows7 данный макрос работать не будет ввиду отсутствия библиотеки CDO for Windows 2000.
(потребуется ручная установка недостающей библиотеки)

Пример отправки почты макросом Excel:

Sub Main()    ' Пример использования функции Send_Mail
    txt = "Это письмо сформировано макросом" & vbNewLine & _
          "без использования внешних программ и подключения дополнительных библиотек"
    If Send_Mail("ivan_ivanov@mail.ru", "vasya_pupkin@mail.ru", "проверка отправки почты", txt) Then
        MsgBox "Письмо успешно отправлено", vbInformation
    Else
        MsgBox "Не удалось отправить письмо", vbExclamation
    End If
End Sub

Ознакомьтесь также со способом отправки почты из Excel
с использованием почтовой программы TheBAT!

Для рассылки писем со вложениями, и настраиваемым текстом и темой письма,
рекомендую воспользоваться специализированной универсальной программой FillDocuments

Достаточно нажать одну кнопку - чтобы создать и разослать множество персонализированных писем.

Для сохранения настроек почтового аккаунта запустите один раз этот макрос:

Sub SaveAccountData()    ' запускать один раз - для записи в реестр Windows параметров почтового аккаунта
    SaveSetting Application.Name, "mail", "smtpserver", "smtp.mail.ru"    ' Ваш SMTPServer
    SaveSetting Application.Name, "mail", "sendusername", "vasya_pupkin@mail.ru"    ' Ваша учетная запись
    SaveSetting Application.Name, "mail", "sendpassword", "pup123456"    ' Ваш  пароль
End Sub

Вместо использования макроса SaveAccountData, вы можете добавить в свой файл
форму сохранения и редактирования настроек учётной записи электронной почты

  • 106574 просмотра

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".
Гость, 27 Сен 2012 - 01:01.#1

Великолепный пример! Даже не думал, что так просто.

Гость, 19 Сен 2012 - 09:53.#2

Что нужно для прокси-сервера дописывать ?

Игорь (администратор сайта), 21 Авг 2012 - 20:41.#3

Так и должно быть - письма отправляются напрямую из Windows, без использования каких-либо почтовых сервисов или программ.
Так что, эти письма не появятся нигде в исходящих. (потому что отправителем является ваша операционная система, и никто больше не знает о факте отправки этих писем)

Гость, 21 Авг 2012 - 19:16.#4

Работает!
Только на mail.ru у получателя письма во входящих оно есть, а у отправителя в отправленных его нет.

Владимир, 3 Июн 2012 - 22:54.#5

А кто покажет макрос VBA для получения почты (например, из Yandex.ru или Mail.ru) без использования почтовых программ?

Спасибо.

Александр, 15 Май 2012 - 17:25.#6

Работает! Благодарю!

Игорь (администратор сайта), 15 Май 2012 - 08:09.#7

Александр, вы перемудрили с кодом...

Ваши ошибки:
1) в Word нет метода SaveCopyAs, поэтому эта строка не работала
2) Вы сохраняли документ через SaveAs, и потом пытались отправить этот же (открытый в Word) файл по почте. А открытый файл невозможно отправить таким способом.

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

Sub Отправить_doc()
    On Error Resume Next: ActiveDocument.Save    ' сохраняем документ Word
    OLD_filename = ActiveDocument.FullName
    ' формируем путь к папке, куда будет помощена копия файла (в виде архива)
    BackupsPath = Replace(ActiveDocument.FullName, ActiveDocument.Name, "Backups\")
    MkDir BackupsPath    ' создаём папку, если таковой ещё нет
    ext$ = Split(ActiveDocument.Name, ".")(UBound(Split(ActiveDocument.Name, "."))) 
    ' формируем путь для копии файла Word
    NEW_filename = BackupsPath & "document" & "_" & Format(Now, "DD-MM-YYYY") & "." & ext$
 
    ActiveDocument.SaveAs NEW_filename
    ActiveDocument.SaveAs OLD_filename
 
    txt = "----------------" & vbNewLine & "_____________"
    smtxt = "_____________________ за " & Format(Now, "DD-MM-YYYY")
 
    kuda = "some@gmail.com":    otkogo = "fromme@yandex.ru"
    If Send_Mail(kuda, otkogo, smtxt, txt, NEW_filename) Then
        MsgBox smtxt & " успешно отправлен по адресу " & kuda, vbInformation
    Else
        MsgBox "Не удалось отправить письмо, возможно, отсутствует интернет-связь." & vbNewLine & NEW_filename, vbExclamation
    End If
End Sub

Александр, 14 Май 2012 - 22:11.#8

Xls отправляется. Скопировал макрос в doc Файл, изменил book на document, xls на doc. Получил сообщение: Возможно, отсутствует интернет-связь. Посмотрите пожалуйста, что не так: http://zalil.ru/33237731

Вадим, 27 Апр 2012 - 02:26.#9

Смотри ниже таблицы, ссылки в зависимости от версии оутлука.

gregul, 26 Апр 2012 - 16:29.#10

Кто поделится ссылкой на библиотеку CDO for Windows 2000
Не смог сам найти.

Игорь (администратор сайта), 20 Апр 2012 - 18:31.#11

Здравствуйте, Алексей.
К сожалению, вряд ли смогу вам помочь, - у меня нет Exchange-сервера, и протестировать код не на чем.
Я бы на вашем месте попробовал указать не имя, а IP адрес вашего сервера в параметре SMTPServer.

И ещё - у вас выход в интернет идет через прокси-сервер?
(если да - то в код надо добавить ещё пару строк)

Лучше вам задать вопросы о настройках этого кода вашему системному администратору (кому, как не ему, знать все настройки вашего почтового сервера)
Например, для использования этого кода с Google или mail.ru, необходимо указать специфические параметры
(например, номер порта, и ещё там что-то, не помню уже)
Возможно, в вашем случае тоже нехватает изменения одной цифры.

Алексей, 20 Апр 2012 - 11:24.#12

Здравствуйте.
Попробовал на корпоративный Exchange-сервер отправить. Поле ' Ваш SMTPServer заполнял и с префиксом домена (mailXX.kostal.int) так и без (mailXX) - выдает ошибку "SMTP сервер ответил отказом". Файрвол отключен.
Помогите плиз.

Игорь (администратор сайта), 21 Янв 2012 - 14:49.#13

Изучайте объектную модель CDO for Windows 2000:
(щелкните на картинке для увеличения)

CDO object model

Видимо, потребуется дополнительно сменить свойство Charset у другого объекта
(у какого конкретно - не знаю, описания всех методов и свойств CDO я так и не нашел)

Evgen, 21 Янв 2012 - 13:03.#14

Подскажи, пожалуйста, решение такой проблемы.
Реализовал отправку при помощи CDO, немного другой код (без страницы конфигурации от Windows, т.к. почтовый сервер у меня в сетке).
Все работает, но Тему и имя вложения (которые на русском языке) пишет "кракозябрами".
Как задать кодировку тела письма понятно (SMail.BodyPart.Charset = "windows-1251"), а как задать кодировку темы и имени вложения (не нашел метода)?
Спасибо.

Валерий, 19 Дек 2011 - 02:37.#15

Спасибо, очень нужная функция!

Vadim, 30 Ноя 2011 - 09:01.#16

Спасибо. Работает, все и сразу, с одного нажатия.

Игорь (администратор сайта), 30 Ноя 2011 - 07:51.#17

1) Создаёте копию активного листа:

activesheet.Copy

2) Сохраняете созданный файл из одного листа куда-нибудь на диск:
activeworkbook.saveas Путь$
activeworkbook.close false ' и закрываете файл

3) Прикрепляете сохранённый файл (как любой другой файл) к письму
К качестве пути прикрепляемого файла используете переменную Путь$

Vadim, 30 Ноя 2011 - 07:42.#18

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

Александр, 29 Ноя 2011 - 16:35.#19

Спасибо большое за макрос, использую его теперь для действия в полуавтоматическом режиме: импортирую накладную из Foxpro 2.6 и отправляю по эл. почте

Жека, 23 Ноя 2011 - 07:18.#20

Спасибо за макрос. Здорово получается..

Игорь (администратор сайта), 5 Май 2011 - 06:34.#21

Из-за чего функция Send_Mail может выдавать ошибку отсутствия соединения с интернетом, при его наличии?

Причин может быть несколько.
Например, наличие прокси-сервера, ненастроенный файрвол, глюк Windows или сбой в системных файлах.

Наиболее вероятная причина - что Excel пытается выйти в интернет, а антивирус со встроенным файрволом (типа KIS) его не пускает.

rubberman, 4 Май 2011 - 19:20.#22

Добрый день!
Из-за чего функция Send_Mail может выдавать ошибку отсутствия соединения с интернетом, при его наличии? Проверил на разных компах одной сети. Результат: 3 успешно, 1 с ошибкой (-2147220973 MsgBox "Отсутствует связь с интернетом").
Операционка одинаковая - ХР.

Огромное спасибо за коды макросов - очень много полезного!

Zmiy, 29 Мар 2011 - 12:39.#23

Огромное спасибо за код. Работает прекрасно

Dredel, 21 Мар 2011 - 02:01.#24

А из-за Proxy работать будет?
У меня на работе прокси, плюс запрещен доступ к mail.ru.

Как вы считаете можно решать эту проблему?

Гость, 20 Мар 2011 - 20:18.#25

Скрытая копия отправляется по полю
.BCC="типа мыло"

Гость, 10 Мар 2011 - 00:42.#26

Спасибо за код! Подскажите, а как можно поместить адресата в скрытую копию?возможно ли такое?

Лузер™, 4 Мар 2011 - 18:28.#27

Работает в вин7. проверил только на корпоративном smtp сервере. mail.ru не проверял
Нужно только подключить библиотеку CDO for Windows 2000

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  ___   ____     __     _____   ____    ____  
 |_ _| / ___|   / /_   | ____| |  _ \  / ___| 
  | |  \___ \  | '_ \  |  _|   | |_) | \___ \ 
  | |   ___) | | (_) | | |___  |  __/   ___) |
 |___| |____/   \___/  |_____| |_|     |____/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

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