Как отправить файл excel через файл

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

​Смотрите также​​Заранее огромное спасибо​kristina S​ и отправлять его.​ Send for Review)​ на примечание окошко​ ее «классически», то​Sub SendMail() Dim​Отправка макросом гораздо проще.​ кто, что и​открыть почтовую программу (например​ нажмите кнопку​ вложение в тексте​ тексте сообщения электронной​ и Word можно​Приведенные ниже инструкции относятся​Отправить как факс через​Примечание:​SkyPro​: Спасибо, это я​ Макрос выглядит так:​.​

​ с подробным описанием​ надо:​ OutApp As Object​ Открываем редактор Visual​ когда изменил в​ Outlook)​Отправить​ сообщения, или если​ почты (а не​ отправлять файлы непосредственно​ к приложениям Excel,​ Интернет.​Мы стараемся как​

​: Отправлять нужно только​ знаю. Хотелось бы​Sub SendMail() Dim​Отправка макросом гораздо проще.​ кто, что и​открыть почтовую программу (например​ Dim OutMail As​ Basic через меню​ этой ячейке. Весьма​создать новое сообщение​.​ файл находится на​

​ в виде вложения).​ в тексте сообщения​

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

Excel, PowerPoint, Project, Publisher, Visio и Word

1. ​ PowerPoint, Project, Publisher,​​    Откроется веб-страница со​​ можно оперативнее обеспечивать​​ один лист?​​ нажатием одной кнопки​​ OutApp As Object​​ Открываем редактор Visual​ когда изменил в​ Outlook)​

   • ​ Object Dim cell​​Сервис — Макрос -​ удобно для рецензирования​вбить туда адрес, тему​Примечание:​

   • ​ OneDrive или SharePoint,​​ Для этого необходимо​ электронной почты (а​ Visio и Word.​ списком поставщиков услуг,​

   • ​ вас актуальными справочными​​Какой лист нужо​k987​ Dim OutMail As​ Basic через меню​

   • ​ этой ячейке. Весьма​создать новое сообщение​​ As Range Application.ScreenUpdating​ Редактор Visual Basic​ документов, когда, например,​ и текст​

     ​ Если вы используете пакет​​ вы можете отправить​ добавить на панель​ не в виде​Откройте вкладку​

2. ​ которые позволяют отправлять​ материалами на вашем​ отправлять?​: Доброе утро! Я​​ Object Dim cell​​Сервис — Макрос -​

OneNote

1. ​ удобно для рецензирования​​вбить туда адрес, тему​​ = False Set​​ (Tools — Macro​​ вы правите отчет​прикрепить к сообщению файл​ Microsoft Office для​

   • ​ ссылку на файл.​​ быстрого доступа команду​ вложения). Для этого​Файл​ факсы через Интернет.​ языке. Эта страница​Если на листе​

   • ​ только-только начинаю изучать​​ As Range Application.ScreenUpdating​ Редактор Visual Basic​ документов, когда, например,​ и текст​

2. ​ OutApp = CreateObject(«Outlook.Application»)​ — Visual Basic​ своих подчиненных или​ (не забыть!)​​ Mac для дома​​Более новые версии​

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

​Отправить сообщение​ необходимо добавить на​.​Примечание:​ переведена автоматически, поэтому​ есть формулы, то​ возможности VBA, и​ = False Set​ (Tools — Macro​ вы правите отчет​​прикрепить к сообщению файл​​ ‘запускаем Outlook в​ Editor)​ шеф правит ваш.​нажать кнопку​ и бизнеса 2011,​

1. ​ Office 2011 г.​.​

2. ​ панель быстрого доступа​Нажмите кнопку​​  Конкретный набор доступных​​ ее текст может​ нужно оставить только​ еще очень многого​ OutApp = CreateObject(«Outlook.Application»)​

3. ​ — Visual Basic​ своих подчиненных или​ (не забыть!)​ скрытом режиме OutApp.Session.Logon​​, вставляем новый модуль​​По маршруту (Routing Recipient)​

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

​Отправить​ сообщение создается в​ ​Нажмите​

1. ​ команду​​Сохранить и отправить​​ параметров будет варьироваться​

2. ​ содержать неточности и​​ значения?​​ не понимаю. Поскольку​

3. ​ ‘запускаем Outlook в​​ Editor)​​ шеф правит ваш.​нажать кнопку​ On Error GoTo​

   • ​ в меню​​- сообщение, куда​На самом деле почту​ Outlook. Если вы​Выберите меню​

   • ​кнопку Microsoft Office​​Отправить получателю​.​ в зависимости от​ грамматические ошибки. Для​

   • ​Отправка всегда на​​ в моей работе​ скрытом режиме OutApp.Session.Logon​, вставляем новый модуль​По маршруту (Routing Recipient)​

     ​Отправить​​ cleanup ‘если не​Insert — Module​ будет вложена ваша​

4. ​ можно легко отправлять​ используете пакет Microsoft​файл​, а затем —​​. Сведения о добавлении​​Выберите вариант​

​ используемого приложения Office.​ нас важно, чтобы​

1. ​ один и тот​​ приходится пользоваться макросами,​​ On Error GoTo​

2. ​ в меню​​- сообщение, куда​​На самом деле почту​ запустился — выходим​и копируем туда​

   • ​ книга, отправится по​ прямо из Excel​​ Office для Mac​, нажмите кнопку​Параметры Word​ команд на панель​Отправить по электронной почте​Укажите псевдонимы получателей, введите​

   • ​ эта статья была​​ же адрес?​​ а ждать, пока​ cleanup ‘если не​Insert — Module​ будет вложена ваша​ ​ можно легко отправлять​​ Set OutMail =​

3. ​ текст этих двух​ цепочке получателей, каждый​ кучей разных способов.​ для дома и​​общий доступ​​или​

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

​ быстрого доступа см.​, после чего выберите​ тему и текст​ вам полезна. Просим​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub SendSheet() ‘ отправляет​ кто-то решит все​ запустился — выходим​и копируем туда​ книга, отправится по​ прямо из Excel​​ OutApp.CreateItem(0) ‘создаем новое​​ макросов:​ из которых автоматически​ Поехали…​ учебы 2011, сообщение​и выполните одно​

​Параметры Excel​ в статье Настройка​ один из следующих​ сообщения (если необходимо)​

1. ​ вас уделить пару​ активный лист​

2. ​ вопросы за меня,​ Set OutMail =​​ текст этих двух​ ​ цепочке получателей, каждый​ кучей разных способов.​ сообщение On Error​Sub SendWorkbook() ActiveWorkbook.SendMail​

3. ​ будет пересылать его​Если у вас еще​ создается в Apple​ из указанных ниже​​.​​ панели быстрого доступа.​

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

Excel, PowerPoint и Word

• ​ параметров:​​ и нажмите кнопку​ ​ секунд и сообщить,​​ActiveSheet.Copy​​ не хочется, пытаюсь​​ OutApp.CreateItem(0) ‘создаем новое​​ макросов:​

  ​ из которых автоматически​ Поехали…​

  ​ Resume Next ‘заполняем​ Recipients:=»[email protected]», Subject:=»Лови файлик»​ дальше, как эстафетную​ старый добрый Excel​ Mail.​ действий.​Щелкните​Чтобы отправить файл в​Отправить как вложение.​Отправить​ помогла ли она​With ActiveWorkbook​ постигать сию науку​ сообщение On Error​Sub SendWorkbook() ActiveWorkbook.SendMail​ будет пересылать его​Если у вас еще​ поля сообщения With​ End Sub Sub​

OneNote, Project и Visio

• ​ палочку. При желании​​ 2003, то все​​В меню​Чтобы отправить файл​​Настроить​​ тексте сообщения электронной​​    Откроется окно сообщения​​.​

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

​ вам, с помощью​.ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value​ самостоятельно. Хотя получается​ Resume Next ‘заполняем​ Recipients:=»[email protected]», Subject:=»Лови файлик»​ дальше, как эстафетную​ старый добрый Excel​ OutMail .To =​ SendSheet() ThisWorkbook.Sheets(«Лист1»).Copy With​​ можно задать, чтобы​​ просто. Открываете нужную​

1. ​файл​​Действие​ ​и в списке​​ почты, выполните указанные​​ электронной почты с​​Выберите​​ кнопок внизу страницы.​

2. ​ ‘ удалить строку,​​ пока слабо. Поэтому​​ поля сообщения With​​ End Sub Sub​​ палочку. При желании​​ 2003, то все​​ Range(«A1»).Value .Subject =​

3. ​ ActiveWorkbook .SendMail Recipients:=»[email protected]»,​​ в конце цепочки​​ книгу/лист и выбираете​выберите команду​​Как ссылку в новом​​Выбрать команды из​ ниже действия.​ вложенной копией файла​

4. ​Файл​ Для удобства также​​ если формулы нужны​ ​ не судите строго,​ OutMail .To =​ SendSheet() ThisWorkbook.Sheets(«Лист1»).Copy With​ можно задать, чтобы​

5. ​ просто. Открываете нужную​ Range(«A2″).Value .Body =​ Subject:=»Лови файлик» .Close​ сообщение вернулось к​​ в меню​​общий доступ​

support.office.com

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

​ сообщении электронной почты​​выберите элемент​Откройте файл, который вы​ в исходном формате.​>​ приводим ссылку на​.SendMail Recipients:=»адресс@gmail.com», Subject:=»итоговый​ если вопрос глупый.​ Range(«A1″).Value .Subject =​ ActiveWorkbook .SendMail Recipients:=»[email protected]»,​ в конце цепочки​ книгу/лист и выбираете​ Range(«A3»).Value .Attachments.Add Range(«A4»).Value​ SaveChanges:=False End With​ вам обратно. Можно​Файл — Отправить -​и выполните одно​Щелкните​Все команды​ хотите отправить.​Отправить как PDF.​Отправить​

​ оригинал (на английском​ отчет. » &​У меня Excel​ Range(«A2″).Value .Body =​ Subject:=»Лови файлик» .Close​ сообщение вернулось к​ в меню​ ‘команду Send можно​ End Sub​ включить режим отслеживания​ Сообщение​ из указанных ниже​Пригласить пользователей​.​

​На панели быстрого доступа​    Откроется окно сообщения​, а затем —​

1. ​ языке) .​​ .ActiveSheet.Name ‘ &​​ 2010. Ежедневно мне​​ Range(«A3»).Value .Attachments.Add Range(«A4»).Value​​ SaveChanges:=False End With​ вам обратно. Можно​Файл — Отправить -​

   ​ заменить на Display,​	​После этого скопированные макросы​
   ​ изменений, чтобы видеть​(File — Send To​	​ действий.​​.​​Щелкните​ ​ нажмите кнопку​​ электронной почты с​ один из указанных​Если в состав установленной​ .ActiveSheet.Nameможно удалить.​ приходится по электронке​ ‘команду Send можно​ End Sub​ включить режим отслеживания​ Сообщение​
   ​ чтобы посмотреть сообщение​ можно запустить в​ правки, внесенный каждым​ — Mail Recipient)​	​Чтобы отправить файл​​Примечание:​Отправить сообщение​​Отправить получателю​​ вложенной копией файла​ ниже параметров.​​ на компьютере версии​ ​.Close SaveChanges:=False​​ отправлять в качестве​ заменить на Display,​После этого скопированные макросы​ изменений, чтобы видеть​(File — Send To​ перед отправкой .Send​ меню​ человеком в цепочке.​. Откроется окошко, в​
   ​Действия​ Файл, в котором вы​	​, а затем нажмите​, чтобы открыть​​ в формате PDF.​​Отправить как вложение​ ​ Microsoft Office входит​End With​​ отчета один лист​​ чтобы посмотреть сообщение​ ​ можно запустить в​ правки, внесенный каждым​​ — Mail Recipient)​​ End With On​ ​Сервис — Макрос -​​В новых Excel 2007/2010​ котором можно выбрать​

2. ​В виде вложения (Word,​ работаете на должен​ кнопку​ сообщение электронной почты.​​Отправить как XPS.​​    Откроется окно сообщения​

​ Outlook и он​​End Sub​ из книги, содержащей​ перед отправкой .Send​ меню​ человеком в цепочке.​. Откроется окошко, в​ Error GoTo 0​ Макросы (Tools -​ ситуация немного другая.​ один из двух​ Excel и PowerPoint)​ находиться в OneDrive​

1. ​Добавить​​ Файл будет помещен​​    Откроется окно сообщения​​ электронной почты с​​ используется по умолчанию​k987​ очень много других​

   ​ End With On​	​Сервис — Макрос -​
   ​В новых Excel 2007/2010​ котором можно выбрать​	​ Set OutMail =​​ Macro — Macros)​ В этих версиях​​ вариантов отправки:​
   ​Нажмите кнопку​ или на сервере​	​, чтобы добавить команду​​ в текст сообщения.​ электронной почты с​​ вложенными копией файла​ ​ для отправки почты,​​: Отправлять нужно всегда​ листов. Поскольку в​ Error GoTo 0​ Макросы (Tools -​ ситуация немного другая.​
   ​ один из двух​ Nothing cleanup: Set​	​.​​ для отправки книги​В первом случае текущая​​Электронная почта (в виде​ ​ SharePoint. Если он​​ на панель быстрого​Укажите псевдонимы получателей, введите​ вложенной копией файла​ в исходном формате​ вы можете отправлять​ на один и​

2. ​ 10 версии потерялась​ Set OutMail =​ Macro — Macros)​ В этих версиях​​ вариантов отправки:​​ OutApp = Nothing​

См. также

​SendWorkbook​ по почте нужно​

support.office.com

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

​ книга будет добавлена​ вложения)​ не находится в​ доступа.​ тему и текст​ в формате XPS.​ и копией файла​ документы в виде​ тот же адрес,​ возможность отправки отдельного​

• ​ Nothing cleanup: Set​.​
• ​ для отправки книги​
• ​В первом случае текущая​ Application.ScreenUpdating = True​
• ​отправляет на заданный​ выбрать кнопку​
• ​ в сообщение как​​.​

​ любом месте, вам​На панели быстрого доступа​ сообщения (если необходимо)​Примечание:​ в формате веб-страницы.​

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

​ вложений. Кроме того,​ всегда один и​ листа, приходится лист​ OutApp = Nothing​SendWorkbook​ по почте нужно​​ книга будет добавлена​ End Sub​ ​ адрес всю текущую​Офис (Office Button)​​ вложение, во втором​В теле сообщения (только​ будет предложено сохранить​ нажмите кнопку​

​ и нажмите кнопку​ В приложении Project 2010​Отправить как PDF.​ файлы Excel, Publisher​ тот же лист.​ копировать в новую​ Application.ScreenUpdating = True​отправляет на заданный​ выбрать кнопку​

​ в сообщение как​​Адрес, тема, текст сообщения​ ​ книгу, а​​или вкладку​ — содержимое текущего​ Word и Excel)​

• ​ его там.​ ​Отправить получателю​​Отправить​ форматы PDF и​    Откроется окно сообщения​ или Word можно​ На листе сводная​ книгу (при этом​ End Sub​ адрес всю текущую​Офис (Office Button)​ вложение, во втором​ и путь к​SendSheet​​Файл (File)​ листа попадет прямо​Нажмите кнопку​Как ссылку, чтобы вставить​​, чтобы открыть​​.​ XPS недоступны.​​ электронной почты с​ отправлять непосредственно в​
  
  ​ таблица и еще​ нарушается форматирование, приходится​Адрес, тема, текст сообщения​ книгу, а​или вкладку​ — содержимое текущего​ вложенному файлу должны​- Лист1 как​и команду​ в текст сообщения​Электронная почта (в формате​ в сообщение электронной​ сообщение электронной почты.​Нажмите​Укажите псевдонимы получателей, введите​ вложенной копией файла​
• ​ тексте сообщения.​​ несколько столбцов с​ исправлять вручную), и​ и путь к​SendSheet​Файл (File)​ листа попадет прямо​ быть в ячейках​ вложение.​Отправить (Send)​ как текстовая таблица​ HTML)​ почты или в​ Файл будет помещен​кнопку Microsoft Office​ тему и текст​ в формате PDF.​

​Если Outlook не является​ формулами. Отправлять можно​ уже эту книгу​ вложенному файлу должны​- Лист1 как​и команду​​ в текст сообщения​​ A1:A4 текущего листа.​​При запуске макроса Excel​​. Далее, пользователю предлагается​​ (без формул).​​.​ другой файл​

​ в текст сообщения.​, выберите​ сообщения (если необходимо)​Укажите псевдонимы получателей, введите​ стандартным почтовым приложением,​ только значения, но​ отправлять.​ быть в ячейках​ вложение.​Отправить (Send)​ как текстовая таблица​Помогите, пожалуйста, беспробудному чайнику.​ будет обращаться к​ набор вариантов отправки:​Кроме этого в меню​Примечание:​Нажмите кнопку​Укажите псевдонимы получателей, введите​Отправить​ и нажмите кнопку​ тему и текст​ потребуется сделать его​ в том же​В интернете я​ A1:A4 текущего листа.​При запуске макроса Excel​​. Далее, пользователю предлагается​ (без формул).​ Как можно отправить​ Outlook, что вызовет​Обратите внимание на то,​Файл — Отправить​ Этот вариант доступен только​Копировать ссылку только для​ тему и текст​​, а затем —​

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

​Отправить​ сообщения (если необходимо)​ таковым, чтобы использовать​​ виде. какой и​ нашла макрос, который,​Petroff​ будет обращаться к​ набор вариантов отправки:​​Кроме этого в меню​ документ Excel по​​ появление вот такого​​ что в новых​(File — Send To)​ в том случае,​

​ просмотра​ сообщения (если необходимо)​Электронная почта​.​ и нажмите кнопку​ эту функцию. Дополнительные​ на исходном листе​ судя по описанию,​

​: Как и любой​ Outlook, что вызовет​Обратите внимание на то,​​Файл — Отправить​ эл. почте Кнопки​ сообщения безопасности на​​ версиях исчезла возможность​​есть еще несколько​​ если учетная запись​или​ и нажмите кнопку​​.​​Ниже приведены инструкции для​Отправить​

​ сведения см. в​_Boroda_​ должен такую проблему​ другой — прикрепить​ появление вот такого​ что в новых​

​(File — Send To)​​ «почта» — нет.​​ экране:​ отправки отдельного листа​ более экзотических вариантов​ настроена в Outlook​Копирование представления и ссылкой​Отправить​​Я не вижу команды​​ приложения OneNote 2010.​.​ статье Выбор Outlook​: Ольга, у Вас​ решить:​ и всех делов.​

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

​ сообщения безопасности на​ версиях исчезла возможность​есть еще несколько​ Outlook — не​Дождитесь, пока кнопка​ книги, вставленного в​ отправки:​ или Apple Mail.​ «Изменить»​.​ «Электронная почта».​Откройте вкладку​В приложениях Excel, Publisher​ в качестве программы​ все нормально в​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub SendSheet()​B.O.F.H.​

​ экране:​ отправки отдельного листа​ более экзотических вариантов​ установлен.​Разрешить​ тело письма -​Сообщение (для ознакомления)​В виде ссылки (Word,​.​Примечание:​Если вы не видите​Файл​ и Word можно​ по умолчанию для​ коде, кроме, разве​ThisWorkbook.Sheets(«Лист1»).Copy​: только вложением. либо​Дождитесь, пока кнопка​ книги, вставленного в​ отправки:​Mister user​станет активной и​ как это было​(Mail Recipient for Review)​ Excel и PowerPoint)​Примечание:​Мы стараемся как​ команду «Электронная почта»,​.​ отправлять файлы непосредственно​ работы с электронной​ что, того, что​

​With ActiveWorkbook​ перевести в текстовый​Разрешить​ тело письма -​Сообщение (для ознакомления)​

planetaexcel.ru

Как можно отправить документ Excel по эл. почте ?

​: Ответ смотри на​ нажмите ее, чтобы​ в Excel 2003​- отправляется вся​Нажмите кнопку​ Файл, в котором вы​ можно оперативнее обеспечивать​

​ возможно, вы используете​​Нажмите кнопку​ в тексте сообщения​

​ почтой, контактами и​​ так он имя​

​.SendMail Recipients:=»[email protected]», Subject:=»итоговый​​ вид, но будет​станет активной и​ как это было​(Mail Recipient for Review)​ почте.​ подтвердить свою отправку.​ и старше. Осталась​ книга целиком и​

​Электронной почтой (в виде​​ работаете на должен​

​ вас актуальными справочными​​ набор Microsoft Office,​Отправить​ электронной почты (а​ календарем. ​ произвольного листа не​

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

​ отчет»​ совсем не красиво​ нажмите ее, чтобы​ в Excel 2003​- отправляется вся​Кисана​ После этого созданные​ только возможность отправить​ при этом для​ ссылки)​

• ​ находиться в OneDrive​ материалами на вашем​
• ​ который не включает​
• ​и выберите один​ не в виде​
• ​Более поздних версий​ съест. А вот​
• ​.Close SaveChanges:=False​​K.I.R.A​

​ подтвердить свою отправку.​ и старше. Осталась​ книга целиком и​: да, можно…​ автоматически сообщения будут​

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

​ весь файл целиком.​ нее включается отслеживание​.​ или на сервере​ языке. Эта страница​ Microsoft Office Outlook,​​ из указанных ниже​ вложения). Для этого​ ​ Office 2010 Office 2007 ​ если Вы напишете​​End With​: выбираешь прикрепить файл​ После этого созданные​ только возможность отправить​

​ при этом для​Антон антивирус​ помещены в папку​ Зато появилась полезная​ изменений, т.е. начинает​Примечание:​ SharePoint. Если он​ переведена автоматически, поэтому​ например Microsoft Office​

​ параметров.​​ необходимо добавить на​ ​Выберите​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>ThisWorkbook.Sheets(33).Copy​End Sub​ и добавляешь сохраненную​

• ​ автоматически сообщения будут​ ​ весь файл целиком.​​ нее включается отслеживание​: а через почту​Исходящие​ возможность отправлять в​ явно фиксироваться -​ Этот параметр доступен только​ не находится в​ ее текст может​ для дома и​Отправить страницу по электронной​ панель быстрого доступа​Файл​​’или​Однако, если я​ таблицу​ помещены в папку​​ Зато появилась полезная​​ изменений, т.е. начинает​ в майле не​​и отправятся получателям​ известном формате PDF​
  
  ​ кто, когда и​ в том случае,​ любом месте, вам​ содержать неточности и​ учебы 2007. Но​ почте как вложение.​ команду​>​ThisWorkbook.Лист1.Copy​ запускаю макрос в​Любовь маньякова​Исходящие​ возможность отправлять в​ явно фиксироваться -​ пробовала? Написать новое​ при первом запуске​
• ​ и менее известном​​ в каких ячейках​ если документ, который​ будет предложено сохранить​ грамматические ошибки. Для​ даже если вы​    Откроется окно сообщения​Отправить получателю​Общий доступ​, где 33​ таком виде, респондент​: как и фото​и отправятся получателям​ известном формате PDF​ кто, когда и​ сообщение, там есть​ Outlook или, если​

​ XPS (аналог PDF,​ какие изменения производил.​ вы работаете в​ его там.​ нас важно, чтобы​ установили Outlook как​​ электронной почты с​​. Сведения о добавлении​​>​​ — это порядковый​​ получает пустую книгу​​ цепляем-сначала выбрать, а​ при первом запуске​

​ и менее известном​ в каких ячейках​ ПРИЕРЕПИТЬ. Загружаешь и​ он у вас​ но не требует​ Отобразить внесенные изменения​ среде OneDrive или​В виде вложения (Word,​ эта статья была​ автономную программу, команда​ вложенными копией файла​ команд на панель​Электронная почта​ номер листа, а​ с одним листом.​ потом прикрепить ​ Outlook или, если​ XPS (аналог PDF,​ какие изменения производил.​ письмо отправляется с​ запущен, непосредственно сразу​ Acrobat Reader для​ потом можно в​ на сервере SharePoint.​ Excel и PowerPoint)​ вам полезна. Просим​​ может отсутствовать. Дополнительные​ в исходном формате​ быстрого доступа см.​, а затем —​ Лист1 — это​ Если я меняю​ над текстом, что​ он у вас​ но не требует​​ Отобразить внесенные изменения​

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

​ вложением, то бишь​ же.​ чтения — открывается​​ меню​Укажите получателей, введите тему​Если используется приложение Excel,​ вас уделить пару​ сведения о том,​​ и копией файла​ в статье Настройка​​ один из указанных​​ «кодовое имя» листа​ название листа на​ пишем. , это​

​ запущен, непосредственно сразу​ Acrobat Reader для​ потом можно в​ с твоим документом.​А если хочется отправлять​ прямо в Internet​Сервис — Исправления -​ и текст сообщения​

​ нажмите кнопку​ секунд и сообщить,​ как отобразить ее,​​ в формате веб-страницы.​ панели быстрого доступа.​ ниже параметров.​​ (посмотреть можно, нажав​​ мое, я получаю​​ находится​ же.​ чтения — открывается​​ меню​​Президент мадагаскара​ не текущую книгу,​

​ Explorer). Команду отправки​ Выделить исправления (Tools​ (если необходимо) и​Отправить книгу​ помогла ли она​ см. в статье​

​Отправить как PDF.​​Откройте файл, который вы​​Отправить как вложение.​ Альт F11 -​ сообщение об ошибке.​kristina S​А если хочется отправлять​ прямо в Internet​​Сервис — Исправления -​​: отправляй как файл​ а любой другой​ книги для ознакомления​ — Track changes​ нажмите кнопку​.​

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

​ вам, с помощью​ базы знаний 918792​   ​ хотите отправить.​    Откроется окно сообщения​ вываливаемся в макросы;​По моим рассуждениям​: Добрый день! Подскажите​ не текущую книгу,​ Explorer). Команду отправки​ Выделить исправления (Tools​Young​ файл? И текст​ можно вытащить как​ — Highlight changes)​Отправить​При использовании PowerPoint нажмите​

​ кнопок внизу страницы.​ (Отсутствует команда «Электронная​Откроется окно сообщения электронной​На панели быстрого доступа​ электронной почты с​ Контрл R -​ вроде бы все​ пжлста, как можно​ а любой другой​ книги для ознакомления​ — Track changes​: Вставляете файл в​ сообщения тоже неплохо​ дополнительную кнопку на​или на вкладке​.​ кнопку​ Для удобства также​ почта»).​ почты с вложенной​ нажмите кнопку​ вложенной копией файла​ вываливаемся в окно​ должно работать.​ быстро отправлять по​ файл? И текст​ можно вытащить как​ — Highlight changes)​ письмо и отправляете​ было бы задать!​ панель быстрого доступа​Рецензирование — Исправления (Reveiw​

​Сохранение файла в Office​Отправить презентацию​ приводим ссылку на​В меню​ копией файла в​

planetaexcel.ru

Как отправить вместе с письмом EXEL-евский документ по электронной почте в виде таблицы?

​Отправить получателю​​ в исходном формате.​ VBAПроджект; там в​Когда я сама​

​ почте книгу или​​ сообщения тоже неплохо​ дополнительную кнопку на​или на вкладке​ на нужный адрес.​

​ Предыдущие макросы здесь​​ через​ — Track Changes)​ для Mac​

​.​​ оригинал (на английском​Файл​ формате​, чтобы открыть сообщение​Отправить как PDF.​ скобочках мы видим​

Отправка по почте из книги Excel 2016

​ пытаюсь записать макрос,​​ лист. Только сегодня​ было бы задать!​ панель быстрого доступа​Рецензирование — Исправления (Reveiw​ Файл может быть​ не помогут, поскольку​Файл — Параметры -​Выглядеть это будет​Если вам часто приходится​
​Если вы используете Word,​

​ языке) .​​наведите указатель мыши​PDF​ электронной почты. Файл​

​    Откроется окно сообщения​​ обычное название листа​ получается совсем другая​ установила 2016, а​

planetaexcel.ru

Отправка листа EXCEL по электронке (Макросы Sub)

​ Предыдущие макросы здесь​​ через​ — Track Changes)​ любым.​ ограничены возможностями самого​ Панель быстрого доступа​ примерно так:​ рассылать определенные книги​ нажмите кнопку​В Word, Excel и​ на пункт​.​ будет помещен в​ электронной почты с​ (как в книге​ версия, при выполнении​ был 2007. Из​
​ не помогут, поскольку​Файл — Параметры -​Выглядеть это будет​Если вам часто приходится​ Excel, но можно​ — Все команды​Цветные рамочки помечают​ или листы по​Отправить документ​ PowerPoint для Mac​Отправить​Укажите псевдонимы получателей, введите​ текст сообщения.​ вложенной копией файла​ Excel), а перед​ которой все равно​ 2007 было быстрее​
​ ограничены возможностями самого​ Панель быстрого доступа​ примерно так:​ рассылать определенные книги​ создать макрос, который​
​ - Отправить на​
​ изменения, внесенные в​
​ электронной почте, то​
​.​ вы можете отправить​
​и выберите вариант​
​ тему и текст​
​Укажите псевдонимы получателей, введите​
​ в формате PDF.​ скобками — другое​ нужно вводить адрес​ отправлять.​ Excel, но можно​ — Все команды​Цветные рамочки помечают​ или листы по​ будет из Excel’я​
​ проверку (File -​ документ (для каждого​ вы должны были​
​Примечание:​ файл в список​Сообщение (как вложение)​ сообщения (если необходимо)​ тему и текст​Отправить как XPS.​ (иногда совпадающее) -​
​ респондента и т.д.​Заранее благодарна.​ создать макрос, который​ — Отправить на​
​ изменения, внесенные в​

​ электронной почте, то​​ управлять Outlook’ом -​ Options — Quick​
​ пользователя — свой​ заметить, что процедуру​
​ Можно также отправить файл​ контактов вправо из​.​ и нажмите кнопку​
​ сообщения (если необходимо)​    Откроется окно сообщения​ так вот оно-то​
​Как исправить ошибку​Grr​
​ будет из Excel'я​
​ проверку (File -​
​ документ (для каждого​ вы должны были​ создавать и заполнять​
​ Access Toolbar -​ цвет). При наведении​ эту быстрой не​ в формате PDF.​
​ приложения, которое вы​
​В приложениях Excel и​
​Отправить​


​ и нажмите кнопку​​ электронной почты с​ нам и нужно.​ в прилагаемом макросе,​: Файл — общий​ управлять Outlook’ом -​ Options — Quick​ пользователя — свой​ заметить, что процедуру​ окно нового сообщения​ All Comands -​ мыши всплывает похожее​ назовешь. Если делать​Укажите получателей, введите тему​

​ работаете в. Файл​​ Word можно отправлять​.​Отправить​ вложенной копией файла​k987​ чтобы все работало​ доступ — отправить​ создавать и заполнять​
​ Access Toolbar -​
​ цвет). При наведении​
​ эту быстрой не​
​ и отправлять его.​ Send for Review)​ на примечание окошко​ ее «классически», то​ и текст сообщения​ можно отправить как​ файлы непосредственно в​В приложениях Excel, Publisher​.​ в формате XPS.​: Спасибо, все работает!!!​ правильно?​ по электронной почте​ окно нового сообщения​ All Comands -​ мыши всплывает похожее​ назовешь. Если делать​ Макрос выглядит так:​.​

​ с подробным описанием​​ надо:​

excelworld.ru

​ (если необходимо) и​

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

Если вам часто приходится рассылать определенные книги или листы по электронной почте, то вы должны были заметить, что процедуру эту быстрой не назовешь. Если делать ее «классически», то надо:

• открыть почтовую программу (например Outlook)
• создать новое сообщение
• вбить туда адрес, тему и текст
• прикрепить к сообщению файл (не забыть!)
• нажать кнопку Отправить

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

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

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

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

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

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

  Цветные рамочки помечают изменения, внесенные в документ (для каждого пользователя — свой цвет). При наведении мыши всплывает похожее на примечание окошко с подробным описанием кто, что и когда изменил в этой ячейке. Весьма удобно для рецензирования документов, когда, например, вы правите отчет своих подчиненных или шеф правит ваш.

• По маршруту (Routing Recipient) — сообщение, куда будет вложена ваша книга, отправится по цепочке получателей, каждый из которых автоматически будет пересылать его дальше, как эстафетную палочку. При желании можно задать, чтобы в конце цепочки сообщение вернулось к вам обратно. Можно включить режим отслеживания изменений, чтобы видеть правки, внесенный каждым человеком в цепочке.

В новых 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
• Создание писем с помощью функции ГИПЕРССЫЛКА

Возможно, вы всегда составляете и изменяете отчет в книге Excel, после его завершения вам нужно как можно скорее отправить текущий сохраненный отчет руководителю отдела. Как можно быстро отправить всю текущую книгу конкретному человеку, не открывая Outlook из Excel?

Отправить текущую книгу через Outlook из Excel с помощью команды «Сохранить и отправить»

Отправить текущую книгу через Outlook как вложение из Excel с кодом VBA

Отправить текущую книгу через Outlook из Excel с помощью команды «Сохранить и отправить»

С этой Сохранить и отправить в Excel, вы можете быстро отправить всю книгу как вложение, как файл PDF, как файл XPS или Интернет-факс через Outlook. Вы можете сделать так:

1. Откройте книгу, которую хотите отправить.

2. Нажмите Файл > Сохранить и отправить > Отправить по электронной почте в Excel 2010 см. снимок экрана:

Tips: Если вы используете Excel 2007, нажмите Кнопка управления > Отправить, см. снимок экрана:

В Excel 2013 нажмите Файл > Поделиться > Эл. адрес, см. снимок экрана:

3. Затем выберите один формат, в котором вы хотите отправить Excel, как из Отправка по электронной почте раздел, в данном случае я нажимаю Отправить как вложение значок кнопки, см. снимок экрана:

4. Появится окно редактирования Outlook, введите имена получателей в поле к и Cc текстовые поля и введите тему в Тема поле, вы также можете ввести какое-либо сообщение в поле Введение, см. снимок экрана:

Ноты:

1. Этот метод работает только при использовании Outlook в качестве почтовой программы.

2. После отправки книги вы можете перейти в Outlook, чтобы проверить, успешно ли было отправлено электронное письмо.

Отправить текущую книгу через Outlook как вложение из Excel с кодом VBA

Здесь вы также можете отправить текущую книгу в виде вложения из Excel со следующим кодом VBA, выполните следующие действия:

1. Откройте книгу, которую хотите отправить.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: отправить текущую книгу как вложение из Excel

Sub SendWorkBook()
'Update 20131209
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Внимание: В приведенном выше коде вы можете изменить следующую информацию по своему усмотрению.

• .to = «skyyang @extendoffice.com «
• .CC = «»
• .BCC = «»
• .Subject = «особенность kte»
• .Body = «Здравствуйте, пожалуйста, проверьте и прочтите этот документ, спасибо.»

4. Затем нажмите F5 нажмите клавишу, чтобы запустить этот код, и появится диалоговое окно, нажмите Разрешить, и эта рабочая тетрадь была разослана.

Ноты:

1. Этот код доступен только при использовании Outlook в качестве почтовой программы.

2. После отправки книги вы можете перейти в Outlook, чтобы убедиться, что электронное письмо было отправлено успешно.

Статьи по теме:

Как отправить лист только через Outlook из Excel?

Как отправить / отправить по электронной почте диапазон ячеек через Outlook из Excel?

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

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

Отправить один лист Excel как вложение по электронной почте

Вы можете отправить один лист Excel (из многих листов в книге) в качестве вложения к электронному письму. Для этого вам нужно создать новую книгу с этим единственным листом, а затем отправить ее с помощью функции «Отправить получателю электронной почты».

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

Вы можете легко отправить всю книгу, вложив ее как часть электронного письма.

Вот как это сделать:

Хотя вы можете делать все вышеупомянутые вещи, не используя параметр «Отправить на почту», он действительно ускоряет процесс и делает его более эффективным.

Отправка документа Microsoft Excel по электронной почте

Документы Microsoft Excel отправляются по электронной почте аналогично документам Microsoft Word.

Для отправки документа нажмите кнопку Сообщение панели инструментов Стандартная (рис. 30.12).

Рис. 30.12. Отправка документа Microsoft Excel по электронной почте

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

Рис. 30.13. Выбор способа отправки документа Microsoft Excel по электронной почте

При отправке листа в тексте сообщения инструментов появится панель сообщения (рис. 30.14).

Рис. 30.14. Отправка листа Microsoft Excel по электронной почте

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

По умолчанию в поле Тема отображается имя документа. При желании можно ввести другую тему.

Для отправки сообщения нажмите кнопку Отправить лист.

Отправка всей книги как вложенного файла ничем не отличается от аналогичной отправки документа Microsoft Word.

Как отправить письмо из Excel?

Прежде чем начать читать статью прошу принять к сведению объявление: используйте СВОИ АДРЕСА ЭЛ.ПОЧТЫ при тестировании кодов . Не надо отсылать письма на указанные в статье e-mail адреса- это все приходит мне на почту. Помимо этого Вы сами не сможете понять работает или нет, т.к. письма придут мне, а не Вам.
Спасибо за понимание
P.S. А если написанное выше Вы все же проигнорировали и отправили письмо на мои адреса электронной почты — это означает, что Вы соглашаетесь с тем, что вся информация внутри письма, включая вложения, может быть использована мной без ограничений в личных целях.

Отправить письмо из Excel можно несколькими способами, в том числе и через написание кода в VBA.

Отправка через меню Excel
Отправку без кода осуществить достаточно просто:

Excel 2003 : Файл (File) —Отправить (Send To) —Сообщение (Mail Recipient)
и выбрать способ отправки:

• Сообщение (Mail Recipient) — создается сообщение в программе по умолчанию для отправки электронных писем
• Сообщение (для ознакомления) (Mail Recipient for Review) — вполне интересный вариант. Перед отправкой для книги включается отслеживание изменений(Сервис (Tools) —Исправления (Track changes) ). Можно воспользоваться этим методом, чтобы отправить получателю для внесения им изменений, а после отследить их(Сервис —Исправления —Выделить исправления (Highlight changes) )
• Сообщение (как вложение) (Mail Recipient as attachment) — создается сообщение в программе по умолчанию для отправки электронных писем, в которое вложением вкладывается активная книга целиком
• По маршруту (Routing Recipient) — практически тоже самое, что и Сообщение (для ознакомления) (Mail Recipient for Review) с той разницей, что письмо с вложением пересылается как эстафета от одного получателя к другому. После этого так же можно отследить изменения, внесенные каждым пользователем
• Папка Exchange (Exchange folder) — активная книга автоматически сохраняется в заданную папку общего сервера Microsoft Exchange. Доступ к этой книге будет открыт всем участникам рабочей группы
• Факс пользователю службы факсов интернета (Fax) — отправляет содержимое книги по факсу указанным получателям. Для использования данной возможности должна быть установлена служба факсов

Далее выбирается способ отправки:

• Как вложение (Send as attachment) — будет автоматически запущена почтовая программа по умолчанию и создано новое письмо, в которое уже будет вложен файл книги, из которой была вызвана команда
• Как ссылку (Send link) — доступно, только если файл находится на сетевом ресурсе. После нажатия будет создано новое письмо в почтовой программе по умолчанию, в тело которого будет вставлена ссылка на книгу
• Как PDF (Send as PDF) — файл будет автоматически сохранен в формате PDF, далее будет создано новое письмо в почтовой программе по умолчанию и файл PDF будет вставлен в письмо
• Как XPS (Send as XPS) — файл будет автоматически сохранен в формате PDF, далее будет создано новое письмо в почтовой программе по умолчанию и файл PDF будет вставлен в письмо
• Отправить как факс через интернет (Send as internet fax) — если у вас на ПК установлена служба работы с факсами и есть возможность отправлять и получать факсы на ПК — то данная команда отправит данные активного листа файла как факс

Sub SendMailStandart() ActiveWorkbook.SendMail «mail1@excel-vba.ru», «Тема письма» End Sub

Также можно указать несколько получателей:

Sub SendMailStandart_MassRecipients() ActiveWorkbook.SendMail Array(«mail1@excel-vba.ru», «mail2@excel-vba.ru»), «Тема письма» End Sub

Внутри скобок Array можно в кавычках через запятую указать достаточное количество получателей.
Данный метод универсален, но работает только с активным файлом. Нельзя выбрать файл с диска и отправить как вложение. Кроме того, нельзя отправить более одного файла разом и указать текст письма.
Поэтому очень часто на форумах возникает вопрос как отправить письмо из Excel кодом с указанием темы, текста и вложения.
Есть несколько вариантов:

Отправить письмо через Outlook кодом VBA

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 ‘раскомментировать строку, если в Outlook несколько учетных записей и нужно подключиться к конкретной(только если Outlook закрыть) ‘ [параметры]: Session.Logon «имя профиля»,»пароль»,[показывать окно выбора профиля], [запускать в новой сессии] ‘objOutlookApp.Session.Logon «profile»,»1234″,False, True 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 ‘тема сообщения .Body = sBody ‘текст сообщения ‘.HTMLBody = sBody ‘если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.) ‘добавляем вложение, если файл по указанному пути существует(dir проверяет это) If sAttachment <> «» Then If Dir(sAttachment, 16) <> «» Then .Attachments.Add sAttachment ‘просто вложение ‘чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName End If End If .Send ‘Display, если необходимо просмотреть сообщение, а не отправлять без просмотра End With Set objOutlookApp = Nothing: Set objMail = Nothing Application.ScreenUpdating = True End Sub

Этот код отправляет одно письмо и одно вложение за раз. Но если несколько раз вызвать метод .Attachments.Add, то можно добавить еще файлы:

.Attachments.Add «C:TempКнига1.xlsx» .Attachments.Add «C:TempКнига2.xlsx» .Attachments.Add «C:DocumentsReport.rar»

objOutlookApp.Session.Logon «user»,»1234″,False, True

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

Важно помнить: пути для файлов в качестве вложений должны содержать полный путь до файла, включая его имя и расширение: C:DocumentsReport.rar . При указании только имени Report.rar или пути без расширения ( C:DocumentsReport ) ошибки не будет, но вложения не будут помещены в сообщения и адресату отправится письмо без вложений.

Этот код создает сообщение, но есть маленький нюанс — если в Outlook настроено добавление подписей в новые сообщения — то созданные кодом VBA письма игнорирует эту настройку(особенность Outlook, так назовем). Поэтому, если необходимо отправлять письма с подписью, то ознакомьтесь со статьей: Вставить в письмо подпись из Outlook через VBA
В этой же статье можно посмотреть пример составления письма с форматированным текстом.

Отправить письма через Outlook с картинкой в теле письма

Sub Send_Mail_With_Picture() Dim objOutlookApp As Object, objMail As Object Dim sTo As String, sSubject As String, sBody As String, sAttachment As String, sPicture 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 «user»,»1234″,False, True 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) sPicture = «C:ДокументыИзображенияExcel_vba_ru.png» ‘если надо вставить в письмо картинку ‘создаем сообщение With objMail .To = sTo ‘адрес получателя .CC = «» ‘адрес для копии .BCC = «» ‘адрес для скрытой копии .Subject = sSubject ‘тема сообщения ‘ .Body = sBody ‘текст сообщения без форматирования .HTMLBody = sBody ‘если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.) ‘чтобы картинка была видна внутри сообщения — надо её сначала добавить как вложение ‘если картинка по указанному пути существует(dir проверяет это) If Dir(sPicture, 16) <> «» Then If Dir(sPicture, 16) <> «» Then .Attachments.Add sPicture ‘теперь вставляем код картинки .HTMLBody = .HTMLBody & «<p>Картинка в письме</p>» & «<img src=cid:» & Replace(Dir(sPicture, 16), » «, «%20») & «>» ‘ & » height=240 width=180>» ‘» height=240 width=180>» — если нужны размеры картинки End If End If ‘добавляем вложение, если файл по указанному пути существует(dir проверяет это) If sAttachment <> «» Then If Dir(sAttachment, 16) <> «» Then .Attachments.Add sAttachment ‘просто вложение End If End If .Send ‘Display, если необходимо просмотреть сообщение, а не отправлять без просмотра End With Set objOutlookApp = Nothing: Set objMail = Nothing Application.ScreenUpdating = True End Sub

Этот код отправляет одно письмо и вставляет одну картинку. За это отвечает строка

Если картинку надо вложить с заранее указанными размерами, то строка будет выглядеть так:

«<img src=cid:» & Replace(Dir(sPicture, 16), » «, «%20″) & » height=240 width=180>» ‘height — высота ‘width — ширина

Если надо добавить несколько картинок, то метод .Attachments.Add sPicture надо будет вызвать столько раз, сколько картинок(для каждого свой путь к картинке).

Важно помнить: пути для картинок должны содержать полный путь до файла, включая его имя и расширение: C:ДокументыИзображенияExcel_vba_ru.png . При указании только имени Excel_vba_ru.png или пути без расширения ( C:ДокументыИзображенияExcel_vba_ru ) ошибки не будет, но картинка не будет вставлена, а вместо неё скорее всего будет текст «Ошибка загрузки картинки!» или пустой квадрат вместо реальной картинки.

Массовая рассылка писем по адресам
Так же можно сделать нечто вроде рассылки, организовав цикл по ячейкам. Предположим, что в столбце А записаны адреса, в столбце В тема, в столбце С текст сообщения, в столбце D путь к вложениям:

Тогда можно применить следующий код:

Sub Send_Mail_Mass() 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 ‘пробуем подключиться к Outlook, если он уже открыт Set objOutlookApp = GetObject(, «Outlook.Application») Err.Clear ‘Outlook закрыт, очищаем ошибку If objOutlookApp Is Nothing Then Set objOutlookApp = CreateObject(«Outlook.Application») End If ‘произошла ошибка создания объекта — выход If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub ‘objOutlookApp.Session.Logon «user»,»1234″,False, True lLastR = Cells(Rows.Count, 1).End(xlUp).Row ‘цикл от второй строки(начало данных с адресами) до последней ячейки таблицы For lr = 2 To lLastR Set objMail = objOutlookApp.CreateItem(0) ‘создаем новое сообщение ‘создаем сообщение With objMail .to = Cells(lr, 1).Value ‘адрес получателя .Subject = Cells(lr, 2).Value ‘тема сообщения .Body = Cells(lr, 3).Value ‘текст сообщения ‘вложение(если ячейка не пустая и путь к файлу указан правильно) If Cells(lr, 4).Value <> «» Then If Dir(Cells(lr, 4).Value, 16) <> «» Then .Attachments.Add Cells(lr, 4).Value End If End If .Send ‘Display, если необходимо просмотреть сообщение, а не отправлять без просмотра End With Next lr Set objOutlookApp = Nothing: Set objMail = Nothing Application.ScreenUpdating = True End Sub

Скачать пример массовой рассылки:

При использовании этих кодов есть один недостаток: очень часто при программной отправке писем Outlook выдает окно с запросом подтверждения отправки. Сообщение может быть трех видов:

• Программа пытается получить доступ к адресам электронной почты, хранящимся в Outlook. Если вы этого не ожидаете, нажмите кнопку «Запретить» и проверьте наличие последних обновлений для антивирусной программы.
• Программа пытается отправить сообщение от вашего имени. Если вы этого не ожидаете, нажмите кнопку «Запретить» и проверьте наличие последних обновлений для антивирусной программы.
• Программа пытается выполнить действие, которое может привести к отправке сообщения от вашего имени. Если вы этого не ожидаете, нажмите кнопку «Запретить» и проверьте наличие последних обновлений для антивирусной программы

Чтобы при программной отправке данных сообщений не появлялось, в версиях Outlook, начиная с 2007 можно отключить его настройками безопасности:

• Outlook 2007 : Меню—Параметры—Центр управления безопасностью—Программный доступ-установить Никогда не предупреждать о подозрительной активности (не рекомендуется)
• Outlook 2010 и выше : Файл—Параметры—Центр управления безопасностью—Программный доступ-установить Никогда не предупреждать о подозрительной активности (не рекомендуется)

ВАЖНО: Если компьютер управляется администратором Microsoft Exchange или Microsoft Windows Active Directory Domain Services и администратором в качестве параметров по умолчанию установлен запрет на внесение изменений в параметры безопасности пользователями, возможность изменения данных настроек безопасности программного доступа будет недоступна.

Важно: сам код рассылки не имеет никаких ограничений по числу отправляемых сообщений. Но различные почтовые серверы могут устанавливать свои лимиты. Например, Gmail и Yandex могут заблокировать email, с которого ведется рассылка, если общее количество отправленных сообщений превышает 100 штук в день. Поэтому производить важные массовые рассылки рекомендуется с собственного SMTP-сервера.

Отправка сообщения без использования Outlook — используем CDO

Option Explicit Sub Send_Mail() Const CDO_Cnf = «http://schemas.microsoft.com/cdo/configuration/» Dim oCDOCnf As Object, oCDOMsg As Object Dim SMTPserver As String, sUsername As String, sPass As String, sMsg As String Dim sTo As String, sFrom As String, sSubject As String, sBody As String, sAttachment As String On Error Resume Next ‘sFrom – как правило совпадает с sUsername SMTPserver = «smtp.yandex.ru» ‘ SMTPServer: для Mail.ru «smtp.mail.ru»; для Яндекса «smtp.yandex.ru»; для Рамблера «mail.rambler.ru» sUsername = «YourMail@mail.ru» ‘ Учетная запись на сервере sPass = «1234» ‘ Пароль к почтовому аккаунту If Len(SMTPserver) = 0 Then MsgBox «Не указан SMTP сервер», vbInformation, «www.Excel-VBA.ru»: Exit Sub If Len(sUsername) = 0 Then MsgBox «Не указана учетная запись», vbInformation, «www.Excel-VBA.ru»: Exit Sub If Len(sPass) = 0 Then MsgBox «Не указан пароль», vbInformation, «www.Excel-VBA.ru»: Exit Sub sTo = «AddressTo@mail.ru» ‘Кому sFrom = «YourMail@yandex.ru» ‘От кого sSubject = «Автоотправка» ‘Тема письма sBody = «Привет от Excel-VBA» ‘Текст письма sAttachment = «C:/Temp/Книга1.xls» ‘Вложение(полный путь к файлу) ‘Назначаем конфигурацию CDO Set oCDOCnf = CreateObject(«CDO.Configuration») With oCDOCnf.Fields .Item(CDO_Cnf & «sendusing») = 2 .Item(CDO_Cnf & «smtpauthenticate») = 1 .Item(CDO_Cnf & «smtpserver») = SMTPserver ‘если необходимо указать SSL ‘.Item(CDO_Cnf & «smtpserverport») = 465 ‘для Яндекса и Gmail 465 ‘.Item(CDO_Cnf & «smtpusessl») = True ‘===================================== .Item(CDO_Cnf & «sendusername») = sUsername .Item(CDO_Cnf & «sendpassword») = sPass .Update End With ‘Создаем сообщение Set oCDOMsg = CreateObject(«CDO.Message») With oCDOMsg Set .Configuration = oCDOCnf .BodyPart.Charset = «koi8-r» .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody ‘Проверка наличия файла по указанному пути If Len(sAttachment) > 0 Then If Dir(sAttachment, 16) <> «» Then .AddAttachment sAttachment End If End If .Send End With Select Case Err.Number Case -2147220973: sMsg = «Нет доступа к Интернет» Case -2147220975: sMsg = «Отказ сервера SMTP» Case 0: sMsg = «Письмо отправлено» Case Else: sMsg = «Ошибка номер: » & Err.Number & vbNewline & «Описание ошибки: » & Err.Description End Select MsgBox sMsg, vbInformation, «www.Excel-VBA.ru» Set oCDOMsg = Nothing: Set oCDOCnf = Nothing End Sub

Данный код отправляет письмо, используя объект CDO (Collaboration Data Objects — присутствует во всех версиях Windows) и от имени Вашей учетной записи(либо Яндекс, либо Мэйл, либо Рамблер либо др.).

• SMTPserver — Каждый из приведенных выше сервисов имеет свой сервер для отправки сообщений(его можно посмотреть на сайте сервиса). В комментариях к коду я написал три самых распространенных, но если Вы используете какой-то другой, то просто посмотрите на его сайте настройки для Outlook и отыщите тот параметр, который отвечает за SMTPserver .
• sUsername — это Ваш логин для входа в почтовый сервис. Думаю тут все понятно. Единственный момент — обязательно указывать e-mail именно в полном виде — YourMail@mail.ru , даже если для входа на сервис через браузер Вы используете только первую часть записи(YourMail). Если необходимо подставить в качестве отправителя псевдоним(чтобы получатель видел не просто адрес, а ассоциированное имя учетной записи), то указывать надо именно в формате псевдонима:

sFrom = «Excel-vba <YourMail@yandex.ru>»

Это основные моменты. Поля Кому(sTo), От кого(sFrom),Тема письма(sSubject), Текст письма(sBody) и Вложение(sAttachment) думаю не нуждаются в расшифровке.

Чтобы использовать данный код вы можете либо просто скопировать его прямо со страницы, либо скачать файл. В файле программа немного упрощена к использованию — в ячейки листа вам необходимо будет внести поля: Кому(sTo), От кого(sFrom),Тема письма(sSubject), Текст письма(sBody) и Вложение(sAttachment) и выбрать SMTPserver. SMTPserver выбирается из выпадающего списка. Сам список является динамическим и расположен на листе «Settinngs«. Там же расположены поля Учетной записи и Пароль, которые автоматически подставляются в необходимые поля на листе «Отправка«. Т.к. список динамический Вы можете просто добавлять к уже имеющимся новые сервисы и потом просто выбирать их из списка. Так же в файле есть еще одна возможность — выбрать файл. Для этого надо просто нажать на кнопку и выбрать файл.

Ввиду все более участившихся вопросов о том, как добавить к тексту письма картинку именно через CDO — описываю как это можно сделать. Я приведу лишь самый главный кусок кода — создание непосредственно сообщения. Весь остальной код остается таким же, как приведен выше.

With oCDOMsg Set .Configuration = oCDOCnf .From = sFrom .BodyPart.Charset = «windows-1251» .To = sTo .Subject = sSubject Set objbp = oCDOMsg.AddRelatedBodyPart(«C:ДокументыИзображения11.jpg», «11.jpg», 1) objbp.Fields.Item(«urn:schemas:mailheader:Content-ID») = «<11.jpg>» objbp.Fields.Update If Len(sAttachment) > 0 Then If Dir(sAttachment, 16) <> «» Then .AddAttachment sAttachment End If End If ‘для вложения картинки письмо лучше формировать в формате HTML .HTMLBody = «<img src=»»11.jpg»»><br />» & sBody .Send End With

Самый главный момент:
AddRelatedBodyPart

C:ДокументыИзображения11.jpg — указывается полный путь к файлу картинки на компьютере, включая расширение файла.
11.jpg — указывается имя картинки с расширением. Это имя будет использовано внутри письма и именно его необходимо будет указать дальше в » urn:schemas:mailheader:Content-ID «. И указывать обязательно в треугольных скобках: » »
внутри же самого письма в том месте, где должна отображаться картинки надо записать:

в приведенном выше коде картинка вставляется в самом начале письма и после неё так же добавляется перенос на новую строку при помощи тэга

Статья помогла? Поделись ссылкой с друзьями!

Видеоуроки

Поиск по меткам

Большое спасибо! Лучшего описания не видел. Использовал Ваш код CDO отсылки почты в MS Access — работает прекрасно.

Здравствуйте, Дмитрий. Огромное спасибо за данный файл !
Скачал Массовая рассылка писем через Outlook.xls
Подскажите пожалуйста, как при отправке убрать окно предварительного просмотра сообщения в аутлук ?
в коде нашёл строку с комментарием
.Display = ‘, если необходимо просмотреть сообщение, а не отправлять без просмотра
а что туда вписывать, не пойму
Пробовал вообще её убирать или дописывать =false
не помогает

Андрей, вместо .Display надо просто записать .Send

Огромное спасибо ! Всё работает

для отправки сообщения использовал код «ОТПРАВИТЬ ПИСЬМО ЧЕРЕЗ OUTLOOK КОДОМ VBA»
проблема в том, что в ячейку (откуда тянутся пути файлов) может быть вписано несколько файлов (до 20-30)

значение ячейки имеет вот такой вид (указывается в одной строке):
«\fuib.comkhoDOCUMENTYOOKUTUКулиничев! открытие счетовe-tokenписьмо на заказ.docx»; «\fuib.comkhoDOCUMENTYOOKUTUКулиничев! открытие счетовe-tokenакт.doc»; «\fuib.comkhoDOCUMENTYOOKUTUКулиничев! открытие счетовтарифыРаздел 1. Расчетно-кассовое обслуживание.doc»

при это отправляется только первый файл

помогите, пожалуйста, чтобы добавляло в сообщение Outlook все файлы, адреса, которых указаны в ячейке

Добрый день, Дмитрий. А можно ли так сделать, чтоб из выбранного списка (где у Вас имя, почта) добавить еще один столбец с датой (будущей). Если текущая дата < указанной напротив определенных фамилий им отправлять сообщение.