02.09.2026

8

Как отправить таблицу excel по электронной почте с компьютера

Отправка информации из таблицы по электронной почте

Дополнительные сведения о планах и их возможностях см. на странице «Расценки».

Отправка информации из таблицы по электронной почте

Есть несколько способов отправить информацию из таблиц и отчётов по электронной почте.

PLANS

  • Smartsheet
  • Pro
  • Business
  • Enterprise

For more information about plan types and included capabilities, see the Smartsheet Plans page.

Доступ к данным можно предоставить разными способами.

  • Если нужно предоставить получателям версию данных только для чтения, отправьте одну или несколько строк по электронной почте.
  • Если нужно, чтобы другой пользователь изменил строки в таблице, даже если у него нет учётной записи Smartsheet, используйте запрос изменения.
  • Если нужно предоставить однократный или регулярный доступ к моментальным снимкам таблицы или отчёта, отправьте таблицу или отчёт по электронной почте в виде вложения в формате PDF или Excel.
  • Если нужно предоставить доступ к таблице соавторам, отправьте безопасную ссылку на неё.

Системный администратор Smartsheet может ограничить возможности совместного доступа для подписчиков плана «Корпоративный» только определёнными адресами электронной почты.

Как отправить одну или несколько строк по электронной почте

Вы можете отправить по электронной почте до 50 строк.

  1. В строках, которые нужно отправить, выберите Меню строки .
    Чтобы отправить несколько строк, нажмите и удерживайте клавишу Shift или Ctrl (Command ⌘ на Mac) при выборе их номеров.
  2. Нажмите Отправить. .
  3. В поле Кому введите адреса электронной почты пользователей или групп, которым нужно отправить сообщение. Адреса следует разделять запятой или точкой с запятой. Чтобы добавить получателей из Списка контактов Smartsheet, нажмите Выбрать контакты .
  4. В полях Тема и Сообщение при необходимости измените тему и содержание письма.
  5. Выберите информацию, которую следует добавить в письмо, и настройте макет письма.
    • Включать: по умолчанию включены все столбцы (в том числе вложения и обсуждения). Выберите Изменить, чтобы добавить или удалить из письма столбцы, вложения или комментарии.
    • Макет: измените способ отображения добавленной информации. Этот параметр доступен только при отправке одной строки.
  6. Чтобы получить копию сообщения, установите флажок Отправить копию мне.
  7. Нажмите Отправить.

Если вы работаете с отчётом, который содержит информацию из нескольких таблиц, в сообщение можно включить строки со значениями только из одной таблицы.

В отчётах, к которым применено группирование, невозможно выбрать заголовки групп вместе со строками таблицы.

Как отправить таблицу в виде вложения

Вы можете отправить моментальный снимок таблицы или отчёта, вложив его в сообщение электронной почты в виде файла в формате PDF или Excel (.xls).

  1. В строке меню выберите Файл >Отправить как вложение.
  2. В поле Кому введите адреса электронной почты пользователей, которым нужно отправить сообщение. Адреса следует разделять запятой или точкой с запятой. Чтобы выбрать получателей сообщения из списка контактов Smartsheet, нажмите Контакты .
  3. При необходимости измените тему и содержание письма. По умолчанию в поле Тема указывается имя таблицы.
  4. Выберите тип вложения, которое нужно отправить.Если вы хотите отправить таблицу в виде файла в формате PDF, выберите (параметры), чтобы открыть меню Настройка PDF и задать вид вложения.
  5. (Необязательно) Чтобы указать время отправки сообщения или настроить регулярную доставку, нажмите Расписание. Затем выберите частоту доставки или укажите время отправки. Нажмите ОК.
  6. Нажмите Отправить.

Периодичность будет отображаться на правой панели формы Отправить как вложение.

Как отправить защищённую ссылку на таблицу

Постоянная ссылка — это постоянный URL-адрес страницы или сайта. Smartsheet генерирует её для каждой таблицы.

Соавторы могут использовать такую ссылку для прямого доступа к таблице в Smartsheet. Для удобства можно добавить постоянную ссылку в закладки. При попытке перейти по постоянной ссылке пользователь, который не является соавтором таблицы, получит сообщение об ошибке.

  1. В правом верхнем углу таблицы выберите пункт Предоставить доступ. Если совместный доступ к элементу не предоставлен, в форме Доступ к таблице отобразится раздел Сведения о приглашении. ​​​​
  2. Чтобы получить доступ к URL-адресу для защищённой ссылки на таблицу, выберите Соавторы. Ссылка отображается под списком соавторов, которым предоставлен доступ.
  3. Чтобы отправить всем соавторам таблицы постоянную ссылку по электронной почте, выберите значок Отправить по электронной почте.

Если вы хотите, чтобы пользователи могли получить доступ к элементу Smartsheet, не выполняя входа, сгенерируйте ссылку, доступную для всех.

Как настроить сообщение о предоставлении доступа

  1. В строке меню выберите Файл >Отправить эл. письмо пользователям, которым предоставлен доступ.
  2. Чтобы сузить список получателей, выберите Все пользователи, которым предоставлен доступ.По умолчанию сообщение будет отправлено всем соавторам таблицы.
  3. Измените тему и текст сообщения. По умолчанию в качестве темы отображается имя таблицы.
  4. Чтобы получить копию сообщения, установите флажок Отправить копию мне.
  5. Нажмите Отправить.

Отправка документа из Microsoft Office

Классический клиент Project Online Publisher для Microsoft 365 Excel 2021 Word 2021 PowerPoint 2021 Project профессиональный 2021 Project стандартный 2021 Publisher 2021 Excel 2019 Word 2019 PowerPoint 2019 Project профессиональный 2019 Project стандартный 2019 Publisher 2019 Excel 2016 Word 2016 PowerPoint 2016 Project профессиональный 2016 Project стандартный 2016 Publisher 2016 Excel 2013 Word 2013 PowerPoint 2013 Project профессиональный 2013 Project стандартный 2013 Publisher 2013 Excel 2010 Word 2010 Project 2010 Project стандартный 2010 Publisher 2010 Еще. Меньше

Если в состав установленной на компьютере версии Microsoft Office входит Outlook и он используется по умолчанию для отправки почты, вы можете отправлять документы в виде вложений. Кроме того, файлы Excel, Publisher или Word можно отправлять непосредственно в тексте сообщения.

Если Outlook не является стандартным почтовым приложением, потребуется сделать его таковым, чтобы использовать эту функцию. Дополнительные сведения см. в статье Выбор Outlook в качестве программы по умолчанию для работы с электронной почтой, контактами и календарем.

Отправка в виде вложения

Excel, PowerPoint и Word

  1. Выберите файл >поделиться, а затем выберите один из следующих вариантов:

Примечание: Конкретный набор доступных параметров будет варьироваться в зависимости от используемого приложения Office.

  • Отправить в OneDrive Отправка файла в учетную запись OneDrive, где вы можете поделиться им по прямой ссылке или сообщению электронной почты.
  • Вложите вместо этого копию Выберите вложенный файл в сообщение электронной почты или PDF-файл.

OneNote, Visio, Publisher и Project

  1. Выберите файл >поделиться, а затем выберите один из следующих вариантов:

Примечание: Конкретный набор доступных параметров будет варьироваться в зависимости от используемого приложения Office.

  • Поделиться с людьми (OneNote и Visio) Позволяет ввести имя или адрес электронной почты для тех, кому вы хотите отправить сообщение, настроить его редактирование, требовать входа пользователя перед редактированием и необязательное сообщение. Этот параметр требует отправки файла в OneDrive.
  • Отправить ссылку (Visio) Позволяет всем работать с одной и той же копией файла, видеть последние изменения и не замерять размер электронной почты. Чтобы отправить ссылку, файл должен быть сохранен на веб-сервере или в общей папке.
  • Отправить как вложение. Откроется окно сообщения электронной почты с вложенной копией файла в исходном формате.
  • Отправить как PDF. Откроется окно сообщения электронной почты с вложенной копией файла в формате PDF.
  • Отправить как XPS. Откроется окно сообщения электронной почты с вложенной копией файла в формате XPS.

Отправка в тексте сообщения электронной почты

В приложениях Excel, Publisher и Word можно отправлять файлы непосредственно в тексте сообщения электронной почты (а не в виде вложения). Для этого необходимо добавить на панель быстрого доступа команду Отправить получателю. Сведения о добавлении команд на панель быстрого доступа см. в статье Настройка панели быстрого доступа.

  1. Откройте файл, который вы хотите отправить.
  2. На панели быстрого доступа нажмите кнопку Отправить получателю, чтобы открыть сообщение электронной почты. Файл будет помещен в текст сообщения.
  3. Укажите псевдонимы получателей, введите тему и текст сообщения (если необходимо) и нажмите кнопку Отправить.

Отправка в виде вложения

Excel, PowerPoint, Project, Publisher, Visio и Word

  1. Выберите Файл >Общий доступ >Электронная почта, а затем — один из указанных ниже параметров.
  2. Отправить как вложение. Откроется окно сообщения электронной почты с вложенной копией файла в исходном формате.
  3. Отправить как PDF. Откроется окно сообщения электронной почты с вложенной копией файла в формате PDF.
  4. Отправить как XPS. Откроется окно сообщения электронной почты с вложенной копией файла в формате XPS.
  5. Отправить как факс через Интернет. Откроется веб-страница со списком поставщиков услуг, которые позволяют отправлять факсы через Интернет.

Примечание: Конкретный набор доступных параметров будет варьироваться в зависимости от используемого приложения Office.

OneNote

  1. Выберите Файл >Отправить, а затем — один из указанных ниже параметров.
    • Отправить как вложение Откроется окно сообщения электронной почты с вложенными копией файла в исходном формате и копией файла в формате веб-страницы.
    • Отправить как PDF. Откроется окно сообщения электронной почты с вложенной копией файла в формате PDF.
  2. Укажите псевдонимы получателей, введите тему и текст сообщения (если необходимо) и нажмите кнопку Отправить.

Отправка в тексте сообщения электронной почты

В приложениях Excel, Publisher и Word можно отправлять файлы непосредственно в тексте сообщения электронной почты (а не в виде вложения). Для этого необходимо добавить на панель быстрого доступа команду Отправить получателю. Сведения о добавлении команд на панель быстрого доступа см. в статье Настройка панели быстрого доступа.

  1. Откройте файл, который вы хотите отправить.
  2. На панели быстрого доступа нажмите кнопку Отправить получателю, чтобы открыть сообщение электронной почты. Файл будет помещен в текст сообщения.
  3. Укажите псевдонимы получателей, введите тему и текст сообщения (если необходимо) и нажмите кнопку Отправить.

Отправка в виде вложения

Приведенные ниже инструкции относятся к приложениям Excel, PowerPoint, Project, Publisher, Visio и Word.

  1. Откройте вкладку Файл.
  2. Нажмите кнопку Сохранить и отправить.
  3. Выберите вариант Отправить по электронной почте, после чего выберите один из следующих параметров:
  4. Отправить как вложение. Откроется окно сообщения электронной почты с вложенной копией файла в исходном формате.
  5. Отправить как PDF. Откроется окно сообщения электронной почты с вложенной копией файла в формате PDF.
  6. Отправить как XPS. Откроется окно сообщения электронной почты с вложенной копией файла в формате XPS.

Примечание: В приложении Project 2010 форматы PDF и XPS недоступны.

Ниже приведены инструкции для приложения OneNote 2010.

  1. Откройте вкладку Файл.
  2. Нажмите кнопку Отправить и выберите один из указанных ниже параметров.
    • Отправить страницу по электронной почте как вложение. Откроется окно сообщения электронной почты с вложенными копией файла в исходном формате и копией файла в формате веб-страницы.
    • Отправить страницу электронной почты в формате PDF. Откроется окно сообщения электронной почты с копией файла в .pdfformat attached.
  3. Укажите псевдонимы получателей, введите тему и текст сообщения (если необходимо) и нажмите кнопку Отправить.

Отправка в тексте сообщения электронной почты

В приложениях Excel, Publisher и Word можно отправлять файлы непосредственно в тексте сообщения электронной почты (а не в виде вложения). Для этого необходимо добавить на панель быстрого доступа команду Отправить получателю. Сведения о добавлении команд на панель быстрого доступа см. в статье Настройка панели быстрого доступа.

Чтобы отправить файл в тексте сообщения электронной почты, выполните указанные ниже действия.

  1. Откройте файл, который вы хотите отправить.
  2. На панели быстрого доступа нажмите кнопку Отправить сообщение , чтобы открыть сообщение электронной почты. Файл будет помещен в текст сообщения.
  3. Укажите псевдонимы получателей, введите тему и текст сообщения (если необходимо) и нажмите кнопку Отправить.

Как отправить факс онлайн

Получайте и отправляйте факсы онлайн с компьютера, Gmail, электронной почты, мобильного телефона и других поддерживаемых устройств и платформ.

Корпоративные решения

Как отправить факс с компьютера, Gmail, мобильного телефона, электронной почты

FAX.PLUS is a premium online fax service that allows individuals and corporates to send and receive fax online through various devices and platforms. You can access it via: web browsers, Windows desktops, Mac devices, iPhones, iPads, Android phones and tablets, and even email services such as Gmail and Outlook.

Как отправить факс онлайн?

Факс с компьютера
Электронная почта на факс
Факс с мобильного

Как отправить факс с компьютера?

1. Зайдите в раздел и введите номер факса получателя.

2. Прикрепите свой факсимильный(е) документ(ы) и добавьте необязательную титульную страницу.

3. Немедленно отправьте факс и получите отчет о подтверждении по электронной почте.

Как отправить факс из Gmail (или любого почтового клиента)?

1. Используйте тот же адрес электронной почты, на который вы зарегистрировались. FAX.PLUS .

2. Составьте электронное письмо и введите номер факса получателя в поле Кому*.

3. Прикрепите документы, которые хотите отправить по факсу по электронной почте.

4. Отправьте электронное письмо и подождите, пока статус доставки не вернется на ваше электронное письмо.

* Напишите номер факса получателя (вместе с кодом страны и города), а затем @ fax.plus (пример: +16692001010@ fax.plus )

Как отправить факс с мобильного?

1. Загрузите и установите FAX.PLUS приложение на вашем телефоне.

2. Войдите в свою учетную запись или создайте бесплатную учетную запись.

3. Перейдите в раздел «Отправить факс» и введите номер факса получателя.

4. Прикрепите свой факсимильный(е) документ(ы) и добавьте необязательную титульную страницу.

5. Отправьте факс и получите статус в виде push-уведомления.

Как получить факс онлайн?

1

Получите свой выделенный номер факса (или перенесите свой собственный)

Выберите план на странице «Планы и цены» и получите свой номер факса или заполните форму запроса на перенос , чтобы сохранить существующий номер факса. Убедитесь, что ваш платный план активен и у вас достаточно оставшихся страниц для приема новых входящих факсов.

2

Поделитесь своим номером факса

Ваш номер факса доступен в разделе Факсы . Убедитесь, что отправитель отправляет факс на текущий номер факса с кодом страны и кода города в начале (например, +16692001010).

3

Получайте уведомления по электронной почте или push-уведомления

Ваши входящие факсимильные документы можно найти в разделе « Факсы » на вкладке « Входящие », и вы будете получать уведомления по электронной почте и push-уведомления, как только появится новый входящий факс.

Часто задаваемые вопросы

Могу ли я отправить факс онлайн со своего компьютера или мобильного телефона?

Существуют разные способы отправки факса онлайн , независимо от того, хотите ли вы отправить факс с компьютера, мобильного телефона или планшета. Онлайн-службы факсов предлагают множество возможностей: отправка факса из Gmail (или любой другой подключенной учетной записи электронной почты), отправка факса с Google Диска, Google Docs и Google Sheets, отправка факса с ПК с Windows или устройств Mac, отправка PDF на факс, отправка факса от Microsoft Word, и вы даже можете отправлять факсы из собственного корпоративного программного обеспечения!

Как отправлять факсы с устройств Android или iOS

Приложение FAX.PLUS для Android и приложение FAX.PLUS iOS позволяют отправлять факсы онлайн прямо со смартфона или планшета. Все, что вам нужно сделать, это загрузить FAX.PLUS приложение из Google Play Store или Apple App Store бесплатно, затем войдите в свою учетную запись. После входа в систему найдите раздел «Отправить факс» и продолжайте отправлять факсы!
Узнайте больше: Как бесплатно отправить факс с iPhone .

Могу ли я получить факс на свой компьютер?

Да, ты можешь. С FAX.PLUS Помимо возможности отправлять бесплатные факсы с компьютера и отправлять факсы через Интернет, каждый платный план включает как минимум один бесплатный номер факса, который позволяет вам получать факсы на свой компьютер или другие поддерживаемые платформы и устройства.

Могу ли я отправить PDF на номер факса или факсимильный аппарат?

Да, ты можешь. Все, что вам нужно, это FAX.PLUS Веб-приложение или мобильное приложение для отправки PDF-файла на номер факса или факсимильный аппарат. Вы также можете использовать функцию «Отправить по электронной почте на факс», чтобы с легкостью отправить PDF-документ по факсу через Gmail или другие почтовые клиенты.

Как отправить факс с электронной почты? (с использованием Gmail и других почтовых клиентов)

Электронная почта по факсу — один из самых быстрых и удобных способов отправить факс онлайн . Если вы хотите бесплатно отправлять факсы из Gmail, выполните следующие действия:

  1. ‍ Зарегистрируйтесь в FAX.PLUS , используя свою учетную запись Google. Нажмите кнопку Google, чтобы зарегистрироваться в Google.
  2. Откройте свою учетную запись Gmail и нажмите кнопку «Создать», чтобы создать новое электронное письмо.
  3. Введите номер факса получателя, включая его код города, а затем @ fax.plus в поле Кому. Вот как должен выглядеть номер в электронной форме: (+16692001010@ fax.plus ).
  4. Прикрепите документ, который вы хотите отправить по факсу, из Gmail. Отправьте электронное письмо, и передача факса начнется сразу же.
  5. Вы также можете использовать тело вашего электронного письма, чтобы написать дополнительный титульный лист и тему электронного письма в качестве примечания.
    Узнайте больше: Как отправить факс из Gmail .
Как отправить по факсу документ из Microsoft Office: MS Word, MS Excel, MS Powerpoint, PDF-файлы

Задумываетесь о настройке факс-модема, подключении к модему стационарного телефона и отправке факса из MS Office? Ну, есть гораздо более простое решение: FAX.PLUS онлайн-решение для отправки факсов. Как только ваш документ, файл Excel или презентация будет готова к отправке по факсу, вам просто нужно поделиться файлом по электронной почте и использовать функцию «Отправить по факсу», чтобы отправить документ Word по факсу через Интернет. Обратите внимание, что этот метод работает как на устройствах Windows, так и на Mac.
ОБНОВЛЕНИЕ: независимо от того, есть ли у вас номер факса или нет, вы также можете отправить документ Word по факсу непосредственно из приложения MS Word с помощью FAX.PLUS надстройка для Word. Просто получите надстройку бесплатно из Microsoft Store, выполните несколько простых шагов и перенесите документ Word из Word 2013, Word 2016, Word 2016 для Mac или Word Online ( получите надстройку FAX.PLUS для Word ).
Узнайте , как отправить документ Word по факсу через Интернет .

Как отправить документы по факсу с Google Диска? (Google Документы и Google Таблицы)

Функция факса Google позволяет отправлять факсы из нескольких приложений и служб Google, включая Google Диск, Документы Google и Таблицы Google. Эта интеграция с Google — идеальный выбор для тех, кто хранит свои документы и электронные таблицы на Google Диске и ищет способ отправлять их по факсу прямо из приложения Google Docs и Google Sheets. Чтобы начать интеграцию FAX.PLUS с Google, просто загрузите FAX.PLUS дополнение для Google Workspace и с легкостью отправляйте факсы.

Как отправить факс онлайн с устройств Mac?

FAX.PLUS веб-приложение безупречно работает на устройствах Mac. Вам просто нужно открыть веб-браузер на вашем MacBook и перейти к FAX.PLUS веб-приложение и начните отправлять факс. Но если вы хотите отправить факс со своего MacBook с помощью приложений Apple для повышения производительности, таких как Keynote, Pages и Numbers, вам необходимо будет использовать функцию «От электронной почты до факса». Как и при отправке факса из MS Word, вам необходимо отправить окончательный файл по электронной почте или по факсу из приложения «Почта».
 Узнайте , как отправлять факсы с устройств Mac OS X.

Получу ли я свой факс, если у меня нет подключения к Интернету?

Да, вы будете. Ваш номер факса всегда готов принимать новые входящие факсы, даже если вы не подключены к Интернету.

Отправка книги или листа по электронной почте

На самом деле почту можно легко отправлять прямо из Excel кучей разных способов. Поехали.

Способ 1. Встроенная отправка

Если у вас еще старый добрый Excel 2003, то все просто. Открываете нужную книгу/лист и выбираете в меню Файл — Отправить — Сообщение (File — Send To — Mail Recipient) . Откроется окошко, в котором можно выбрать один из двух вариантов отправки:

В первом случае текущая книга будет добавлена в сообщение как вложение, во втором — содержимое текущего листа попадет прямо в текст сообщения как текстовая таблица (без формул).

Кроме этого в меню Файл — Отправить (File — Send To) есть еще несколько более экзотических вариантов отправки:

    Сообщение (для ознакомления)(Mail Recipient for Review) — отправляется вся книга целиком и при этом для нее включается отслеживание изменений, т.е. начинает явно фиксироваться — кто, когда и в каких ячейках какие изменения производил. Отобразить внесенные изменения потом можно в меню Сервис — Исправления — Выделить исправления (Tools — Track changes — Highlight changes) или на вкладке Рецензирование — Исправления (Reveiw — Track Changes) Выглядеть это будет примерно так:

В новых Excel 2007/2010 ситуация немного другая. В этих версиях для отправки книги по почте нужно выбрать кнопку Офис (Office Button) или вкладку Файл (File) и команду Отправить (Send) . Далее, пользователю предлагается набор вариантов отправки:

Обратите внимание на то, что в новых версиях исчезла возможность отправки отдельного листа книги, вставленного в тело письма — как это было в Excel 2003 и старше. Осталась только возможность отправить весь файл целиком. Зато появилась полезная возможность отправлять в известном формате PDF и менее известном XPS (аналог PDF, но не требует Acrobat Reader для чтения — открывается прямо в Internet Explorer). Команду отправки книги для ознакомления можно вытащить как дополнительную кнопку на панель быстрого доступа через Файл — Параметры — Панель быстрого доступа — Все команды — Отправить на проверку (File — Options — Quick Access Toolbar — All Comands — Send for Review) .

Способ 2. Простые макросы для отправки

Отправка макросом гораздо проще. Открываем редактор Visual Basic через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor) , вставляем новый модуль в меню Insert — Module и копируем туда текст этих двух макросов:

Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Copy With ActiveWorkbook .SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик" .Close SaveChanges:=False End With End Sub

После этого скопированные макросы можно запустить в меню Сервис — Макрос — Макросы (Tools — Macro — Macros) . SendWorkbook отправляет на заданный адрес всю текущую книгу, а SendSheet — Лист1 как вложение.

При запуске макроса Excel будет обращаться к Outlook, что вызовет появление вот такого сообщения безопасности на экране:

Дождитесь, пока кнопка Разрешить станет активной и нажмите ее, чтобы подтвердить свою отправку. После этого созданные автоматически сообщения будут помещены в папку Исходящие и отправятся получателям при первом запуске Outlook или, если он у вас запущен, непосредственно сразу же.

Способ 3. Универсальный макрос

А если хочется отправлять не текущую книгу, а любой другой файл? И текст сообщения тоже неплохо было бы задать! Предыдущие макросы здесь не помогут, поскольку ограничены возможностями самого Excel, но можно создать макрос, который будет из Excel’я управлять Outlook’ом — создавать и заполнять окно нового сообщения и отправлять его. Макрос выглядит так:

Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") 'запускаем Outlook в скрытом режиме OutApp.Session.Logon On Error GoTo cleanup 'если не запустился - выходим Set OutMail = OutApp.CreateItem(0) 'создаем новое сообщение On Error Resume Next 'заполняем поля сообщения With OutMail .To = Range("A1").Value .Subject = Range("A2").Value .Body = Range("A3").Value .Attachments.Add Range("A4").Value 'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой .Send End With On Error GoTo 0 Set OutMail = Nothing cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub

Адрес, тема, текст сообщения и путь к вложенному файлу должны быть в ячейках A1:A4 текущего листа.

Ссылки по теме

  • Групповая рассылка почтовых сообщений из Excel с помощью надстройки PLEX
  • Макросы для отправки почты из Excel через Lotus Notes от Dennis Wallentin
  • Что такое макросы, куда вставлять код макроса на Visual Basic
  • Создание писем с помощью функции ГИПЕРССЫЛКА

07.10.2012 11:27:45

Это великолепно! Вот только есть проблема, из-за некорректной работы Outlook, приходится работать с The Batt! Иногда нужно отправлять не полностью книгу, а лист или определенные данные, причем срочно. Помогите в этом случае. 2 программы я считаю ставить нерационально..

07.10.2012 11:28:48

Всем привет!
Вот сегодня наконец-то сделал то, что хотел — отправку почту с макроса через The Bat! Хочу заметить, что работает только с The Bat! начиная с версии 4.2.9.1.
Вот исходный текст:

mailbox_1 = CStr(Workbooks("Файл.xls").Sheets("Настройка").Range("B21")) mailbox_2 = CStr(Workbooks("Файл.xls").Sheets("Настройка").Range("B22")) tema = "Отчет_на_" & Box_Data.Text & "г." If CheckBox_mail.Value = True Then program_1 = "C:\Program Files\The Bat!\thebat.exe /MAILU=" & mailbox_1 & ";TO=" & mailbox_2 & _ ";S=" & tema & ";FILE=" & "c:\pochta.rar" & ";SEND mailto:zukrsugzav@sugarunion.com.ua" target="_blank" rel="nofollow">zukrsugzav@sugarunion.com.ua . 
Родитель Ссылка
Игорь
09.02.2013 03:15:22
Если через TheBAT! отправлять - то зачем было изобретать велосипед,
код для отправки писем ведь давно написан и опубликован:
http://excelvba.ru/code/TheBAT
Родитель Ссылка
Сергей
07.10.2012 11:29:34
Привет подскажите как прописать макрос для отправки письма по скрытой копией.
Ссылка
Николай Павлов
07.10.2012 11:33:41
Добавьте после строки
.To = Range("A1").Value
.Cc = Range("A1").Value 'простая копия .Bcc = Range("A1").Value 'скрытая копия

:)

и будет вам счастье

07.10.2012 12:30:41

Добрый день! Подскажите пожалуйста хотя бы примерный текст макроса для отправки данных через Lotus Notes.
Заранее большое спасибо.

07.10.2012 12:32:44

Подскажите, если в Outlook-е несколько учетных записей, как отправить мэйл с другой, не основной учетной записи Outlook-а?

07.10.2012 12:34:57
Перед Send вставить строку:

Set .SendUsingAccount = .Session.Accounts.Item("Hotmail")

где Hotmail - название требуемой учетной записи в вашем Outlook-е
30.01.2013 16:56:20

Скажите , можно ли вместо номера аккаунта или имени учетной записи ("Hotmail"), подставить ячейку в екселе где будет тот же номер или имя учетной записи ?

что-то типо вот этого.

Set .SendUsingAccount = .Session.Accounts.Item(Range("A15").Value)

07.10.2012 12:35:59
Как отправить файл по эл.почте(Outlook)если база состоит из 10 клиентов т.е у каждого свой эл.адрес.
07.10.2012 12:39:39

Я для этого в свое время писал специальный макрос с диалогом. Посмотрите в PLEX функцию почтовой рассылки.

07.10.2012 12:37:08

Генерирую и отправляю сообщения, третьим способом.
Но так и не разобрался, как в body сделать перенос на новую строку? пока получается все сплошным текстом.

07.10.2012 12:37:57

.Body = "Строка 1" & vbNewLine & _ "Строка 2" & vbNewLine & _ "Строка 3" & vbNewLine & _ "Строка 4" & vbNewLine & _ "Строка 5".

24.12.2012 19:13:51

Как избавится от надоедливой таблички с РАЗРЕШИТЬ/ЗАПРЕТИТЬ?
Антивирь стоит, безопасность макросов низкая.
excel 2010, win7x64
уже всё пересмотрел, но найти где отключается не смог.

16.01.2013 16:55:55
Надо отключить оповещения строкой:
Application.DisplayAlerts = False

16.01.2013 18:38:57
это я знаю и это есть, но не помогает.
20.01.2013 19:36:22

Попробуйте в Outlook: Файл- Параметры-Центр управления безопасностью-Параметры центра упр безопасностью - Программный доступ - Никогда не предупреждать о подозрительной активности.

21.01.2013 11:31:25

Проверил, но это уже было сделано.

Выходит что реально никак, в аутлуке все предупреждения отключены, в екселе тоже. В макросе Application.DisplayAlerts = False. Антивирусник установлен (поскольку читал о том что если нет антивиря тоже влияет). Что ему еще не хватает для самостоятельной рассылки, не понимаю)))

24.01.2013 14:41:08

;)

Пришлите посмотреть на daddyd@mail.ru. Интересно, может, и мне когда понадобится .

10.07.2013 17:05:58

Это внутренняя защита Microsoft от рассылки спама. Она не отключается. Но можно обойти средствами API. Основано на программном поиске на экране окна сформированного сообщения, поиске в окне сообщения кнопки Отправить и ее нажатии. На форуме это обсуждалось, примеры приводились Поищите.

22.05.2013 10:15:42

Николай, подскажи пожалуйста как добавить строку для гиперссылки.
Чтоб при отправке в письме указывалась гиперссылка.

26.05.2013 09:44:51

Сергей, для создания ссылки можно использовать стандартный тег ссылки из HTML. Выглядит примерно так:

14.06.2013 16:09:06
Николай, подскажите как сделать гиперссылку для сетевого ресурса, к примеру \\fileserver\документы\
01.06.2013 11:05:39

Думаю, тут уместно будет написать пример работающего кода :

Sub Create_Mail() Dim objOutApp As Object, objMail As Object Set objOutApp = CreateObject("Outlook.Application") Set objMail = objOutApp.CreateItem(0) With objMail .To = "Me@mymail.ru" .Subject = "Hyperlink Chreck" .htmlbody = "Скачать файл" .display Set objMail = Nothing End With Set objOutApp = Nothing End Sub

07.06.2013 15:12:30

Спасибо за очень полезный макрос.
А можете ещё подсказать, как задать отметку «К исполнению» - для получателя, и чтобы с уточнением времени ответа? И также интересует, как поставить отметку с важностью письма.

12.06.2013 15:59:29

.MarkAsTask - метод для пометки к исполнению. В зависимости от значения параметра задается срок.
Возможные значения можно посмотреть тут: http://msdn.microsoft.com/en-us/library/office/ff868356.aspx
свойство . Importance задает важность (например строка ".importance = 2" проставит отметку "Высокая важность")

10.06.2013 16:34:48

А как отправить через Oulook Express? Ибо с MS Office Outlook не работают, а именно его и требует данный макрос.

13.06.2013 09:31:13

:)

Не встречал такого в принципе. В Outlook Express нет VBA, соответственно, никакой автоматизации там нет в принципе. Может проще поставить полноценный Outlook?

25.06.2013 13:39:33

Dim o_Mess As Object, v_Conf As String, email As String v_Conf = "http://schemas.microsoft.com/cdo/configuration/" Set o_Mess = CreateObject("CDO.Message" With o_Mess .To = email .From = "АДРЕС ПОЛУЧАТЕЛЯ" .Subject = "ТЕМА" .TextBody = "ТЕЛО СООБЩЕНИЯ" .AddAttachment "ПУТЬ К ФАЙЛУ КОТОРЫЙ ПРИКЛАДЫВАЕМ К ПИСЬМУ" With .Configuration.Fields .Item(v_Conf & "sendusing" = 2 .Item(v_Conf & "smtpserver" = "SMTP сервер" .Item(v_Conf & "smtpauthenticate" = 1 .Item(v_Conf & "sendusername" = "АДРЕС ОТПРАВИТЕЛЯ" .Item(v_Conf & "sendpassword" = "ПАРОЛЬ" .Item(v_Conf & "smtpserverport" = 25 .Item(v_Conf & "smtpusessl" = False .Item(v_Conf & "smtpconnectiontimeout" = 60 .Update End With .send End With Set o_Mess = Nothing

Как альтернатива. Работаю программистом пишу на C#, работаю с базами данных промышленных назначений.
01.07.2013 21:15:49

:)

Лучше все-таки прокомментировать этот неработающий кусок кода для непрограммистов на C#

10.07.2013 17:25:28
Подскажите пожалуйста, а как во втором макросе прикрепить текущий лист? Как в первом макросе
08.10.2013 11:13:59
Замените ThisWorkbook.Sheets(1).Copy на ActiveSheet.Copy
04.10.2013 17:49:34

Существуют ли способы скрытой отправки файла целиком, на определенный адрес без использования почтовых программ. Например что бы после закрытия файла он автоматически отправлялся?

08.10.2013 11:12:02
Можно использовать CDO, но только в Windows XP. Посмотрите тут .
09.10.2013 20:58:19

Отлично! По 2 способу и через The Bat! отправляет, НО отправляет всю книгу, а не 1 лист! Хотелось бы узнать как можно отправить только 1 лист из книги, а не 12 как у меня например

20.10.2013 10:13:34
Здравствуйте!
А можно ли отправить письмо для множества адресов через

.To = Range("A1").Value

Все адреса располагаются в строчках, и меняются в зависимости выбранных ранее данных, так что перелинковка на ячейку обязательна!

21.12.2013 13:05:37

Поддерживаю вопрос. Как в макросе указать диапазон ячеек со списками получателей, тем, тел писем и вложений?

22.12.2013 00:49:01

Здравствуйте Александр, задать диапазон не получилось, Пришлось сделать в ручную.

SM.to = Range("'Лист1'!g2").Value & "; " & Range("'Лист1'!g3").Value & "; " & Range("'Лист1'!g4").Value & "; " & Range("'Лист1'!g5").Value & "; " & Range("'Лист1'!g6").Value

03.04.2014 13:27:05

Приветствую! Есть решение по отправке выделенного диапазона! Решается путем экспорта-импорта HTML. Если вопрос остался актуальным - обозначьтесь. Скрипт получился не коротким. Но если надо - выложу.

31.12.2014 13:24:26

Можете виложыть скрипт, о котором вы писали више?

04.01.2015 11:00:04

Приветствую, Богдан!
пример с отправкой выделенного диапазона выложил здесь:
https://yadi.sk/i/eGm0_xSWdmnME
Будут вопросы - пишите.
Удачи!

17.12.2013 14:59:16

Николай, подскажите, если необходимо отправлять файл в определенное время, то это можно реализовать в макросах? Либо есть какой-то другой более легкий способ?

04.01.2014 12:13:41

:)

Можно, но книга, где будет лежать такой макрос должна быть все время открыта, а макрос постоянно запущен, что блокирует всю остальную работу в Excel. Если у вас для этого есть отдельный свободный компьютер.

09.01.2014 08:34:15

Здравствуйте!
При отправке одного листа как вложения документ Excel называется "Книга1". Как сделать, чтобы было изначальное название?
Спасибо!

11.06.2016 11:46:02
Присоединяюсь к вопросу, только хотелось бы имя для вложения брать из ячейки с этого же листа.
14.01.2014 13:56:15

:)

Добрый день!
Это просто класс, все работает, как часики.
Только один вопрос, на данный момент я сделал что бы файл открывался в определенное время, обновлял данные, сохранял файл в архив, отправлял по почте и закрывался сам, но он отправляет файл целиком и соответственно когда я открываю файл он все делает и опять закрывается
можно ли в третьем примере отправлять выбранные по условию данные, скопированные из этой же книги?

17.01.2014 19:54:25

Подскажите, нигде в интернете ничего и близко не могу найти.

Составляю письмо с помощью VBA
в тело сообщения пишу текст например:
.TextBody = "ТЕЛО СООБЩЕНИЯ"

вопрос: можно ли текст каким либо образом форматировать?
например: сделать слово ТЕЛО полужирным, а СООБЩЕНИЯ оставить нормальным.

Подскажите, можно ли это как-то реализовать? Заранее благодарен.

04.04.2014 10:36:20

Приветствую, Виталий!
Если еще актуально, предлагаю следующий вариант форматирования текста в теле письма:

30.01.2014 22:56:06

Может кому и пригодится. Прокомментирую код Дениса Скотинцева.
Код рабочий, только с ошибками, скобочек ) не хватает. Отправляет письма безо-всяких запросов.
Работает на всех версиях Excel.

Sub SendMail() 'Обязательно подключить библиотеку Tools->References > Dim o_Mess As Object, v_Conf As String, email As String, i_Paht As String v_Conf = "http://schemas.microsoft.com/cdo/configuration/" i_Paht = ThisWorkbook.Path & "\ваша книга.xlsx" ' указываем полный путь к файлу, который хотим вложить email = "КОМУ@mail.ru" 'e-mail получателя Set o_Mess = CreateObject("CDO.Message" ) 'Создаем сообщение With o_Mess .To = email 'Кому .From = "От Кого" 'От кого .Subject = "Привет" 'Тема письма .TextBody = "Большой привет от VBA" 'Текст письма If Len(i_Paht) > 0 Then .AddAttachment i_Paht 'вкладываем файл With .Configuration.Fields 'конфигурируем CDO .Item(v_Conf & "sendusing") = 2 .Item(v_Conf & "smtpserver") = "smtp.mail.ru" 'ваш сервер SMTP:smtp.mail.ru; smtp.yandex.ru; mail.rambler.ru .Item(v_Conf & "smtpauthenticate") = 1 .Item(v_Conf & "sendusername") = "ВАШ@mail.ru" 'Ваша учетная запись .Item(v_Conf & "sendpassword") = "пароль" 'Ваш пароль к почтовому ящику .Item(v_Conf & "smtpserverport") = 465 'номер порта(узнать на сайте вашей почты) .Item(v_Conf & "smtpusessl") = True .Item(v_Conf & "smtpconnectiontimeout") = 60 .Update End With .Send 'отправляем End With Set o_Mess = Nothing End Sub

04.02.2016 13:44:48

ошибка "файл занят другим процессом", имеется необходимость автоматически отправлять файл на почту каждый день. открывать через планировщик. Далее макрос обновляет данные и отправляет, без подтверждения, как в теме обсуждения.

30.01.2014 23:03:26

Ну вот, та же ошибка. При вставке кода, закрывающая скобка ), заменяется смайликом. Смайлик удаляешь, а про скобку забываешь!
Отредактировал, теперь код верный.

03.02.2014 15:29:51

Здравствуйте а подскажите как прописать макрос даже не знаю как объяснить какой но попробую
у нас в одном файле лежат эл. адреса на эти эл. адреса нужно отправить отсканированный лист но каждую неделю листы меняются

17.02.2014 16:10:22

Пожалуйста, помогите!
Когда отправляю лист по 2-ому способу, записанный на листе макрос (для защиты ячейки) не работает у получателя. Код защиты для ячейки приведен ниже:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [S2:AG63]) Is Nothing Then _
With Application: .EnableEvents = 0: .Undo: .EnableEvents = -1: End With
End Sub

30.05.2014 18:40:08

Подскажите, пожалуйста, как заменить в макросе почтовый клиент Outlook на Windows Live:

Set OutApp = CreateObject("Outlook.Application" 'запускаем Outlook в скрытом режиме

22.07.2014 11:41:47
Никак. Нужна локальная установленная на компьютере почтовая программа-клиент.
08.07.2014 20:23:16

Здравствуйте!
Подскажите пожалуйста, как установить отчет о доставке и о прочтении, да и подпись к письму не мешало бы!
Спасибо!

17.07.2014 18:06:34

Здравствуйте,
почтовый клиент Mozilla Thunderbird, макрос работает отлично, есть ли возможность запускать почтовое приложение в фоновом режиме, или например закрывать клиента после отправки? Нагуглил разные варианты работы VBA c Windows приложениями используя API, но знаний не хватает применить. А еще в треде был вопрос о присвоении файлу имени листа при отправке (вместо Книга1), возможно ли это?

21.07.2014 16:33:17

Добрый день.
Помогите, кто может, я не сильно разбираюсь в VBA.
Есть задача отправлять макросом вложение (книгу или лист) по почте Lotus.
Для Outlook вроде все понятно, но в моем случае, по способу 2 мне не хватает только Body.
Можно ли решить эту проблему?

Так видимо здесь и не дождусь ответа (((

04.01.2015 17:07:08

:)

Ну, здесь мы больше по Microsoft Office специализируемся
Но поиск в гугле по первой ссылке дал вот это .
Поможет?

12.09.2014 16:34:34

Добрый день,
можно ли отправлять письма с помощью макроса не на адрес *@*.com, а на группу рассылки, созданную в Outlook?
Спасибо!

24.09.2014 15:34:57

Добрый день.
Пытаюсь облегчить себе работу с помощью третьего макроса, все работает.
Подскажите что мне необходимо исправить в строчке:

".Attachments.Add Range("A4" ).Value"

чтобы отправлялся активный лист(отредактированный) с активной книги(то есть книги где макрос).

Заранее спасибо за помощь!

15.11.2014 12:36:46

Одной строчкой это не сделать. Надо предварительно копировать ваш текущий лист в новую книгу, а потом уже прикреплять ее к созданному сообщению.

20.11.2014 14:26:44

Николай добрый день.
Подскажите пожалуйста что необходимо изменить в строке
".Attachments.Add Range("A4";).Value"
чтобы не путь к вложению указывать, а просто вкладывать в новое сообщение активный файл.
Заранее спасибо.

20.11.2014 14:53:08

поменял эту строку на такую
.Attachments.Add ThisWorkbook.FullName
Может быть кому-нибудь пригодится

09.12.2014 16:00:49

Спасибо! Все работает, но интересует, что необходимо дописать в макросе для переформатирования перед отправкой в формат XPS

10.01.2015 09:22:13
Для сохранения книги в XPS можно использовать команду 

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypeXPS, Filename:= _ "C:\Договоры\Book1.xps", Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= False

А потом прикреплять к письму сохраненный файл как вложение.

22.12.2014 21:04:35

Добрый день!
Подскажите, пожалуйста, как в 3-м способе сделать так, чтобы при создании письма из Ехсель с помощью VBA в письмо автоматически добавлялась подпись, та которая настроена у сотрудника для указания при создании новых сообщений. Заранее спасибо.

04.01.2015 17:03:08

Насколько я знаю - никак. Самое простое - добавить подпись в исходное сообщение как текст. Один из вариантов реализации есть тут .

07.01.2015 12:24:21
Ок, спасибо большое!

08.01.2015 18:44:18

Николай, добрый день,
Такой вопрос, можно ли во втором макросе (отправка листа) задать тело сообщения каким либо способом?
Спасибо.

10.01.2015 09:15:56

Богдан, насколько я знаю - нет. Метод SendMail не имеет возможности задать тело письма, только тему и получателей.

13.01.2015 16:36:12

Приветствую!
Большое спасибо за материал.
Использую второй макрос, хотелось бы знать можно ли как-то в тело письма вставить таблицу с активного листа, и желательно с сохранением форматирования (граница, заливка и т п).

20.01.2015 10:49:35
нашел http://www.excel-vba.ru/forum/index.php?topic=828.0 может кому поможет.

10.03.2015 16:03:46

Здравствуйте!
Подскажите пожалуйста, как нужно изменить строку ссылающиеся на документ, чтобы прикрепить несколько документов из одной папки

14.08.2015 00:59:03

Подскажите пожалуйста, как отправить диапазон ячеек на основе этого примера https://yadi.sk/i/eGm0_xSWdmnME только нужно с помощью VBA и одновременно нескольким (выделенным в отдельных ячейках) получателям. А также, возможно ли, автоматическое выделение или копирование на другие ясейки, тех адресатов, которые были в списке рассылки. Заранее благодарю всех участнико.

20.08.2015 12:43:34

Приветствую. Делается элементарно.
Надо просто сформировать имя для отправки, которое состоит из перечня адресов. Это можно сделать простым перечислением ячеек, где расположены адреса:
Out_Mail = Cells(5, 5) & "; " & Cells(6, 5) & "; " & Cells(7, 5)
или, если адресов много, сделать цикл. К примеру:
-------------------------------
Out_Mail = ""
For i = 5 To 7
Out_Mail = Out_Mail & Cells(i, 5) & "; "
Next i
-------------------------------
В строке отправки ставим .to = Out_Mail
пример здесь: https://yadi.sk/i/4pFQnK2QiYzMs
Удачи!

14.08.2015 01:06:00
макросом VBA без использования почтовых программ.

22.08.2015 02:09:56

Большое спасибо за ответ.

Подскажите,пожалуйста ещё такие моменты:
- Как отправлять ссылки в теле письма на основе Вашего примера?
- Можно ли давать команду на отправку с другого листа книги?

24.08.2015 18:24:40
Ребята, помогите, пожалуйста - очень нужно.

26.10.2015 13:08:58

Приветствую!
Отправлять ссылки можно. Второй вопрос не совсем понял, что находится на втором листе?
Пример здесь:
https://yadi.sk/i/h66sF01Tjzusv

26.10.2015 22:31:25

Дмитрий, здравствуйте.
Я имел ввиду - как сделать, чтобы отправлять диапазон расположенный к примеру на Лист1, а кнопку для отправки этого диапазона разместить на Лист2.

27.10.2015 09:17:24

;)

Правильно поставленная задача - уже половина ее решения
Для этого надо просто активировать лист, где находится фрагмент таблицы, а в конце, по желанию, скакнуть обратно.
См здесь: https://yadi.sk/i/4IL6Vk22k37sd

22.09.2015 23:30:44
отправка определенных ячеек

Sub Письмо() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim MyDate MyDate = Format(Date, "DD.MM.YYYY") With Application .EnableEvents = False .ScreenUpdating = False End With iLastRow = Cells(Rows.Count, 1).End(xlUp).Row Set rng = Nothing Set rng = ActiveSheet.Range("AI32:CF34") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "dddd@mail.ru" .Subject = "Пример отправки фрагмента таблицы. Сегодня " & MyDate .HTMLBody = "" & "Добрый День!" & vbCrLf & _ "" & "Отчет по анкетам:" & _ RangetoHTML(rng) & vbCrLf & _ "" & "" & vbCrLf & _ "" & "" .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail = Nothing Set OutApp = Nothing End Sub Function RangetoHTML(rng As Range) Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" rng.Copy Set TempWB = Workbooks.Add(1) With TempWB.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial xlPasteValues, , False, False .Cells(1).PasteSpecial xlPasteFormats, , False, False .Cells(1).Select Application.CutCopyMode = False On Error Resume Next On Error GoTo 0 End With With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _ Source:=TempWB.Sheets(1).UsedRange.Address, _ HtmlType:=xlHtmlStatic) .Publish (True) End With Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2) RangetoHTML = ts.readall ts.Close RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _ "align=left x:publishsource blog-comment-meta"> Ссылка
Dmitry
14.10.2015 08:56:51
Добрый день!
Помогите пожалуйста составить макрос или через УФ. Суть такова:
Есть к примеру в ячейке "В2" Город получатель(города разные). необходимо что бы при активации(как при гиперссылке) данного города отправлялось письмо с текстом и номером индекса(индексы тоже разные), который находится в ячейке "А1", либо при вводе текста в ячейке "С1".."Запрос". автоматически уходило письмо в город получатель("B2" )с текстом и номером индекса("A1").
Это можно как-то реализовать?
Заранее спасибо!
Ссылка
Дмитрий Спицын
14.10.2015 14:47:39
Приветствую!
Простой вариант реализации такой задачи макросом здесь:
https://yadi.sk/i/z8jERgEPjjANs
Удачи!
Родитель Ссылка
TC_TRUST
26.10.2015 22:29:58
Второй вопрос не совсем понял, что находится на втором листе?
Дмитрий, здравствуйте.
Я имел ввиду - как сделать, чтобы отправлять диапазон расположенный к примеру на Лист1, а кнопку для отправки этого диапазона разместить на Лист2.
Ссылка
Дмитрий Спицын
27.10.2015 09:57:31
Ответил. см выше
Родитель Ссылка
Иван Крючков
28.10.2015 19:19:58
Добрый вечер! Подскажите пожалуйста, везде читал смотрел, но не нашел решение проблемы. Необходимо отправить письмо с excel с вложением текущей книги(без указания пути, т.к. путь все время будет менять, т.к. будет меняться имя файла), при этом чтобы открывалось окно сообщения в outlook, для написания текста(текст с ячейки не варианта, в моем случае не удобно), но адресат уже заложен в макросе. Тему же можно оставить чтобы брал с ячейки. В данной теме и вообще нашел чтобы просто отправлял с вложением текущей книги без открытия окна сообщения, либо открывал окно сообщения, но при этом письмо было без вложения текущего файла. Повторюсь, необходимо чтобы вложением являлся текущий файл, без указания пути к нему. Спасибо большое!
Ссылка
Дмитрий Спицын
29.10.2015 13:39:05
Приветствую, Иван!
Не понял, чем "Окно сообщения" принципиально отличается от драфта письма?
Берем классический пример Способ 3. Универсальный макрос (см выше), в строке вложения пишем:
.Attachments.Add ActiveWorkbook.FullName
Строку .Send меняем на .Display. Запускаем макрос, пишем нужный текст и отправляем письмо.
Родитель Ссылка
Марина Шадрина
25.04.2016 13:54:41
Добрый день
Или с макросом №2 что-то не так, или с моим пк
Письмо пришло - отправляла несколько раз, все ОК, но в почтовике в "отправленных" нет.
Не подскажите что это может быть? офис 2010
Ссылка
sarathin
11.06.2016 11:50:13
Выше задавали вопрос как используя второй способ при отправлении листа задать ему имя из ячейки, а то уходит с именем Книга1?
Ссылка
sarathin
12.06.2016 15:19:04
Николай, здравствуйте.
Нашел на просторах сети вот такой ккод

Option Explicit
Sub Send_Mail()
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
Application.ScreenUpdating = False
On Error Resume Next
'пробуем подключиться к Outlook, если он уже открыт
Set objOutlookApp = GetObject(, "Outlook.Application";)
Err.Clear 'Outlook закрыт, очищаем ошибку
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application";)
End If
objOutlookApp.Session.Logon
Set objMail = objOutlookApp.CreateItem(0) 'создаем новое сообщение
'если не получилось создать приложение или экземпляр сообщения - выходим
If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
sTo = "AddressTo@mail.ru" 'Кому(можно заменить значением из ячейки - sTo = Range("A1";).Value)
sSubject = "Автоотправка" 'Тема письма(можно заменить значением из ячейки - sSubject = Range("A2";).Value)
sBody = "Привет от Excel-VBA" 'Текст письма(можно заменить значением из ячейки - sBody = Range("A3";).Value)
sAttachment = "C:\Temp\Книга1.xls" 'Вложение(полный путь к файлу. Можно заменить значением из ячейки - sAttachment = Range("A4";).Value)
'создаем сообщение
With objMail
.To = sTo 'адрес получателя
.CC = "" 'адрес для копии
.BCC = "" 'адрес для скрытой копии
.Subject = sSubject 'тема сообщения
. = sBody 'текст сообщения
'.HTMLBody = sBody 'если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.)
.Attachments.Add sAttachment 'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
.Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра
End With
Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True
End Sub
[CODE][/CODE] Не могу понять что изменить чтобы отправлять текущий лист или текущую книгу.
Подскажите пожалуйста.

не получилось вставить в теги код, все переносы убирает.
Ссылка
Djump
17.06.2016 06:09:45
Всем привет.
Очень понравился макрос из шапки


Sub SendSheet()
ThisWorkbook.Sheets("Лист1";).Copy
With ActiveWorkbook
.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"
.Close SaveChanges:=False
End With
End Sub


Помогите, пожалуйста, внести некоторые коррективы:
Необходимо настроить отправку в формате XPS
Необходимо настроить отправку получателям, чьи адреса прописаны в определенных клетках
Необходимо настроить отправку копии получателям, чьи адреса прописаны в определенных клетках

В идеале - настроить отправку не самого файла, а в виде вложенной в письмо таблички с диапазоном (A1:L16)
Ссылка
Егор крот
20.06.2016 12:43:18
Добрый день. Очень помог ваш макрос.

Sub SendWorkbook()
ActiveWorkbook.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"
End Sub
но возможно ли чтобы файл который отправлялся был в формате pdf и как нибудь убрать всплывающее окно где надо разрешать outlook отправлять письмо.
?
Ссылка
валерий ко
31.08.2016 10:48:06
Возможно ли обойти окошко с кнопкой "разрешить"
Что бы все в 1 клик ?
Ссылка
Дмитрий Голубев
25.09.2016 20:43:09
Добрый день !
Подскажите пожалуйста, способом "Способом №3" можно решить следующую задачу ?
Имеется перечень контактов, также справа имеется столбец с числами (например, кол-во дней до определенного события),
необходимо:
1. Просмотр диапазона с числами на условие достижение числами определенного значения (например, 30 > x > 25)
2. При выполнении условия в п.1 Excel начинает формировать массовую рассылку, как это было сделано в Способе№3. Еще есть вариант http://www.excel-vba.ru/chto-umeet-excel/kak-otpravit-pismo-iz-excel/ (МАССОВАЯ РАССЫЛКА ПИСЕМ ПО АДРЕСАМ ). Подобная процедура должна пробежаться до последней строки всей таблицы
3. Вся конструкция макроса "Напоминалки" запускается после открытия файла.
Ссылка
СВ
28.09.2016 21:56:24
Приветик, всем Гуру.
Подскажите как в этом макросе прописать, чтобы он еще дополнительно в текст письма помимо текста, который подтягивает из ячейки вставлял и уже созданную подпись которая в Outlook/
Код

Sub Send_Mail() Dim objOutlookApp As Object, objMail As Object Dim sTo As String, sSubject As String, sBody As String, sAttachment As String Application.ScreenUpdating = False On Error Resume Next Set objOutlookApp = GetObject(, "Outlook.Application") Err.Clear If objOutlookApp Is Nothing Then Set objOutlookApp = CreateObject("Outlook.Application") End If objOutlookApp.Session.Logon Set objMail = objOutlookApp.CreateItem(0) If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub sTo = Range("D3") sSubject = "Всем приветик" sBody = Range("F3").Value sAttachment = Range("F3").Value With objMail .To = sTo .CC = "" .BCC = "" .Subject = sSubject .Body = sBody & String(4, vbCrLf) .HTMLBody = sBody .Attachments.Add sAttachment .Display End With Set objOutlookApp = Nothing: Set objMail = Nothing Application.ScreenUpdating = True End Sub
Читать:
Что означает html в информатике транспортный протокол протокол маршрутизации

Похожие записи

Как крепится насос гур уаз патриот

admin

Как включить консоль на компьютере

admin

Как слить масло с коробки заз шанс

admin
О нас
Новости технологий, искусственного интеллекта, софта, гаджетов, планшетов и телефонов. Обзоры, советы, сравнения и системные решения для пользователей и профессионалов. Рассказываем о новых устройствах, трендах ИИ и цифровых сервисах, которые меняют повседневную жизнь. Помогаем выбрать технику, разобраться в настройках и получить максимум от современных технологий.
@2026 - Komputer-nn.ru. Все права защищены.