отправка по электронной почте выделенного диапазона только видимые ячейки от excell в vba

У меня есть код ниже, чтобы отправить электронное письмо от excell, у которого есть выбранный диапазон активного листа в теле письма

Sub Ticke_status_mail() ' Select the range of cells on the active worksheet. ActiveSheet.Range("A12:J74").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = "[email protected]" .Item.subject = "Ticket status on " & ActiveSheet.Range("today").Value .Item.Send End With End Sub 

но также отправляет скрытые строки в выбранный звонок, который не должен появляться в почте, может ли кто-нибудь помочь в selectimg только видимые ячейки в этом диапазоне ….

попробуйте с ActiveSheet.Range("A12:J74").SpecialCells(xlCellTypeVisible).select

  • Создание полностью форматированного письма с таблицами в VBA
  • Отправка почты Outlook в VBA с отсроченным временем не будет отправлять на следующий день?
  • Поиск по электронной почте для поиска и выделения текста
  • Цикл VBA для отправки писем с вложениями также включает все вложения предыдущих итераций
  • Отправка списка ячеек в список электронной почты (Excel)
  • Поиск адреса электронной почты из ячейки
  • Электронная почта 2 или более книг Excel с Vba
  • Изменение тега категории по электронной почте в соответствии с данными в excel
  • Прикрепить несколько изображений в почте на iPhone
  • Отправить электронное письмо с несколькими диапазонами RangeToHTML
  • Макрос, который делает Excel-список / журнал писем в учетной записи / папке
  • Давайте будем гением компьютера.