Страницы: 1
Поиск
Отправка сообщений в приложении Outlook через макрос, Помощь в нахождении ошибки
Автор: kysokg. Добрый день. Просьба найти ошибку в следующем коде. Краткая информация: MHC и inzh - checkbox, SendTo - textbox. Необходимо, чтобы send_click отправляла письмо по выбранным пользователям галочкам(checkbox), либо на адрес введенный вручную в поле SendTo. Не удается сделать так, чтобы во всех случаях корректно отправлялось письмо. Заранее спасибо Private Sub send_Click() If MHC.Value = True Then recipient = "MHC@pochta.ru" res = SendEmailUsingOutlook(recipient, letter, ...
Изменен: 14.01.2021
Читать сообщение на форуме или сайте.
Отправка письма заранее созданному контакту Outlook VBA
Автор: Argo9. Добрый день, подскажите пожалуйста, как отправить письмо по outlook через vba, заранее созданному контакту. Имеется в контактах outlook контакт с массивом адресов, как в строку ".To" сказать взять этот контакт?(как в примере снизу) Нашел статью по этому поводу для 2003 экселя, но мой код что писал, не могу адаптировать под него, да и разобраться что там написано.(статья нечитаемая) Private Sub Send_Mail() Dim objOutlookApp As Object, objMail As Object ...
Изменен: 14.11.2019
Читать сообщение на форуме или сайте.
Копирование диапазона в строку адреса outlook
Автор: Argo9. Доброго дня, позвольте спросить. Написал небольшую функцию в VBA. Я только начал вариться в кодинге. Функция работает и копирует нужные диапазон, но почему то возвращает в строку адреса значений "-1" (при некоторых изменениях true ). Я так понял так как возвращается значение типа Range, а нужно string. Значение берутся из нескольких ячеек (адреса почты). Как мне вернуть в строку адреса аутлук значение из 2-5 ячеек? хотелось бы в строку ".To = " вбивать ...
Изменен: 24.09.2019
Читать сообщение на форуме или сайте.
Редактирование текста путем VBA - VBA, отправки письма через outlook с редактированием
Автор: kooff. Всем привет. Суть проблемы: Макрос делает массовую рассылку по адреса через outlook. Письмо формируется в VBA (код ниже). Можно ли редактировать (изменять цвет, выделять, подчеркивать) текста в письме.Sub auto() Dim objOutlookApp As Object, objMail As Object Dim sTo As String, sSubject As String, sBody As String, sAttachment As String Dim lr As Long, lLastR As Long Application.ScreenUpdating = False On Error Resume Next Set objOutlookApp = GetObject(, " ...
Теги: VBA Outlook
Изменен: 01.11.2017
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх