Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: Argo9. Добрый день, подскажите пожалуйста, как отправить письмо по outlook через vba, заранее созданному контакту. Имеется в контактах outlook контакт с массивом адресов, как в строку ".To" сказать взять этот контакт?(как в примере снизу) Нашел статью по этому поводу для 2003 экселя, но мой код что писал, не могу адаптировать под него, да и разобраться что там написано.(статья нечитаемая)
Private Sub Send_Mail()
Dim objOutlookApp As Object, objMail As Object
...
Изменен: 14.11.2019
Читать сообщение на форуме или сайте.Автор: Argo9. Доброго дня, позвольте спросить. Написал небольшую функцию в VBA. Я только начал вариться в кодинге. Функция работает и копирует нужные диапазон, но почему то возвращает в строку адреса значений "-1" (при некоторых изменениях true ). Я так понял так как возвращается значение типа Range, а нужно string. Значение берутся из нескольких ячеек (адреса почты). Как мне вернуть в строку адреса аутлук значение из 2-5 ячеек?
хотелось бы в строку ".To = " вбивать ...
Изменен: 24.09.2019
Читать сообщение на форуме или сайте.Автор: 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(, " ...
Изменен: 01.11.2017
Читать сообщение на форуме или сайте.