Отправка писем через Gmail, ЯндексПочта и @mail из Excel
Создать интеграцию Microsoft Excel с Outlook, легко, средствами VBA. Можно ли отправлять письма другими почтовыми сервисами? Например, через Gmail, самый популярный в мире почтовый сервис, от Google.
Ответ можно, используя настройки SMTP, IMAP, POP.
Макросы приложенные к данной статье дают возможность отправить отдельный лист или книгу с помощью CDO.
CDO является библиотекой объектов, которая предоставляет интерфейс Messaging Application Programming Interface (MAPI), позволяет отправлять и получать сообщения.
Решение для MS Office без Outlook.
Алгоритм настройки макросов
Копируйте код в Личную книгу макросов или в файл своей надстройки;
Добавьте в код адрес нужной почты и пароль:
.Item(msConfigURL & "/sendusername") = "ДОБАВЬТЕ ВАШУ ПОЧТУ"
.Item(msConfigURL & "/sendpassword") = "ДОБАВЬТЕ ПАРОЛЬ"
.From = "ДОБАВЬТЕ ВАШУ ПОЧТУ" ' От кого = username почты
Подключите в редакторе VBA (Alt+F11) библиотеку Microsoft CDO для Windows 2000:
Код макроса на GitHub
Копируйте код на русской раскладке клавиатуры, чтобы сохранить комментарии.
Особенности настройки почты
Как настроить доступ к Gmail в сторонних почтовых клиентах
Если вы используете двухэтапную проверку, следуйте инструкции:
Пароль при установленной двухэтапной проверке
А как же наши дорогие Яндекс.Почта и @mail?
Чтобы их использовать, удалите или закомментируйте в коде макроса строки .Item(msConfigURL & "/smtpserver") кроме:
.Item(msConfigURL & "/smtpserver") = "smtp.yandex.ru"
tem(msConfigURL & "/smtpserver") = "smtp.mail.ru"
В заключение, удобный макрос для открытия почты Gmail из Excel при помощи Send Keys:
Sub ActivateGmail() " Активировать почту GmailHandle = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
' Открыть
RetVal = Shell(Handle, 1)
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("https://mail.google.com/mail/u/0/#inb..."), True
Application.Wait Now + TimeValue("00:00:03")
SendKeys ("{ENTER}"), True
Application.Wait Now + TimeValue("00:00:02")
'Создать письмо
SendKeys ("C"), True
End Sub
Для браузера Chrome.
Чтобы сразу открывалось окно нового сообщения, в настройках включите Быстрые клавиши.
Измените Handle на путь вашего браузер, а SendKeys ("https://mail.google.com/mail/u/0/#inb...") на другой почтовый клиент, по логике должно работать.
Спасибо, что дочитали до конца!
Было полезно? Ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.
MS, Libreoffice & Google docs
773 поста14.9K подписчиков
Правила сообщества
1. Не нарушать правила Пикабу
2. Публиковать посты соответствующие тематике сообщества
3. Проявлять уважение к пользователям
4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.
По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях
Важно - сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.
Утверждения вроде "пост - отстой", это оскорбление автора и будет наказываться баном.