Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: mazersw. Добрый день!
Есть две функции, которые доступны из любых файлов:
Function StartWord(txt As String, Optional delim As String = "/", Optional n As Integer = 1) As String
arFragments = Split(txt, delim)
StartWord = arFragments(LBound(arFragments) - n + 1)
End Function
и
Function LastWord(txt As String, Optional delim As String = "/", Optional n As Integer = 1) As String
arFragments = Split(txt, delim)
LastWord = arFragments(UBound( ...
Изменен: 17.04.2020
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: next777pro. Имеются две функции, которые нужно совместить
Итак есть главная функция =СцепитьМного(J2:L100;", ";ИСТИНА)
здесь ИСТИНА это пропуск повторов, запятыми сцепляются
итак при сборке получилось такое, при этом отсеялись повторы
1, 7, 11, 12, 13, 17, 29, 30, 4, 6, 9, 10, 15, 16, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 31, 5, 2, 3 здесь они получились неупорядоченными
в итоге эту функцию необходимо доработать. чтобы получилось как во второй функции =Sjatie2 ...
Изменен: 17.06.2016
Читать сообщение на форуме или сайте.Автор: Vasiu. Здравствуйте, просьба подсказать где допускаю ошибку при написании кода.
Либо же скиньте примеры использования кода СчетЕслиМН; Значен; ДатаЗнач.
Описания ситуации:
Имеются два отчета: Данные от менеджеров и данные выгруженные с системы 1С.
Постановка задачи – с общей совокупности данных системы 1С проверить отчеты Менеджеров на правильность внесения данных… и указать соответственные отличия для возможной дальнейшего уточнения информации.
Ниже я прикрепляю файл-пример – где ...
Изменен: 19.04.2016
Читать сообщение на форуме или сайте.