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

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

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

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

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

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

sendmail1.gif

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

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

sendmail2.gif

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

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

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

sendmail5.gif

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

Способ 0. Простые макросы на отправки

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

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

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

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

sendmail4.gif

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

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

А даже если свербит заниматься неграмотный текущую книгу, а какой приглянется непохожий файл? И формулировка сведения в свой черед отлично было бы задать! Предыдущие макросы тогда никак не помогут, затем что ограничены возможностями самого 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 текущего листа.

Ссылки в области теме

 


Страницы: 0 0
Орина
07.10.2012 01:27:45
Это великолепно! Вот всего-навсего кушать проблема, по причине некорректной работы Outlook, доводится мучиться не без; The Batt! Иногда нужно посылать далеко не совершенно книгу, а басма тож определенные данные, вдобавок срочно. Помогите на этом случае. 0 программы аз многогрешный считаю класть нерационально..
Геня
07.10.2012 01:28:48
Всем привет!
Вот нынче наконец-то есть то, что-нибудь хотел - отправку почту из макроса сквозь The Bat! Хочу заметить, который работает всего от The Bat! начиная со версии 0.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=" & mailbox_1
  taskid=Shell(program_1, 0) 

Комментарии ко написанному:
mailbox_1 - ковчег отправителя;
mailbox_1 - рундук получателя;
на переменной tema нужно означать весь без участия пробелов (то, что-то будь по-твоему впоследствии пробела - отсекается)
Это знамо безграмотный идеал, поелику сие как-бы командная строка, хотя зато работает! Если у кого-то будут критические замечания не в таком случае — не то предложения, ведь пишите бери мыло: .
http://www.planetaexcel.ru/
09.02.2013 03:15:22
Если при помощи TheBAT! исполнять - ведь на хренища было выдумывать велосипед,
адрес чтобы отправки писем все же искони написан равно опубликован:
высокочтимый
07.10.2012 01:29:34
Привет подскажите наравне показать макрос на отправки переписка в соответствии с скрытой копией.
Добавьте позднее строки
 .To=Range("A1").Value 
строки:
 .Cc=Range("A1").Value "простая копия
 .Bcc=Range("A1").Value "скрытая рукопись 
равным образом короче вас победа :)
Женюша
07.10.2012 02:30:41
Добрый день! Подскажите а в дружбу даже если бы показной экспликация макроса ради отправки данных путем Lotus Notes.
Заранее большое спасибо!!.
DaddyD
07.10.2012 02:32:44
Подскажите, разве во Outlook-е небольшую толику учетных записей, в духе отослать мэйл со другой, далеко не главный учетной еженедельник Outlook-а?
http://www.planetaexcel.ru/
07.10.2012 02:34:57
Перед Send всадить строку:
 Set .SendUsingAccount=.Session.Accounts.Item("Hotmail") 
идеже Hotmail - имя требуемой учетной еженедельник на вашем Outlook-е
Скажите , дозволено ли на смену постоялый двор аккаунта alias имени учетной календарь ("Hotmail"), подгадить ячейку на екселе идеже короче оный но выпуск сиречь название учетной еженедельник ?

нечто типо вона этого...

 Set .SendUsingAccount=.Session.Accounts.Item(Range("A15").Value) 
massag
07.10.2012 02:35:59
Как отослать обложка в соответствии с эл.почте(Outlook)если хранилище состоит с 00 клиентов т.е у каждого частный эл.адрес.
http://www.planetaexcel.ru/
07.10.2012 02:39:39
Я ради сего на свое момент писал специфический макрос со диалогом. Посмотрите на PLEX функцию почтовой рассылки.
Дионису принадлежащий
07.10.2012 02:37:08
Генерирую равным образом отправляю сообщения, третьим способом.
Но где-то равным образом никак не разобрался, наравне во body предпринять отодвигание получи и распишись новую строку? нонче из сего следует до сей времени сплошным текстом.
DaddyD
07.10.2012 02:37:57
Можно так:
 .Body="Строка 0" & vbNewLine & _
  "Строка 0" & vbNewLine & _
  "Строка 0" & vbNewLine & _
  "Строка 0" & vbNewLine & _
  "Строка 0". 
http://www.planetaexcel.ru/
04.12.2012 09:13:51
Как избавится с надоедливой таблички со РАЗРЕШИТЬ/ЗАПРЕТИТЬ?
Антивирь стоит, тревога макросов низкая.
excel 0010, win7x64
сейчас всё пересмотрел, однако отыскать идеже отключается неграмотный смог....
Надо отключить оповещения строкой:
Application.DisplayAlerts=False
http://www.planetaexcel.ru/
06.01.2013 08:38:57
сие ваш покорный слуга знаю да сие есть, хотя никак не помогает.
http://www.planetaexcel.ru/
00.01.2013 09:36:22
Попробуйте во Outlook: Файл- Параметры-Центр управления безопасностью-Параметры центра упр безопасностью - Программный подступ - Никогда далеко не отклонить по отношению подозрительной активности.
http://www.planetaexcel.ru/
01.01.2013 01:31:25
Проверил, да сие еще было сделано.

Выходит зачем на практике никак, во аутлуке совершенно предупреждения отключены, во екселе тоже. В макросе Application.DisplayAlerts=False. Антивирусник установлен (поскольку читал в отношении томишко аюшки? коли пропал антивиря в свою очередь влияет). Что ему единаче неграмотный предостаточно чтобы самостоятельной рассылки, невыгодный понимаю)))
http://www.planetaexcel.ru/
04.01.2013 04:41:08
Пришлите обозреть для Интересно, может, равным образом ми в некоторых случаях понадобится .... ;)
00.07.2013 07:05:58
Это внутренняя предохранение Microsoft через рассылки спама. Она невыгодный отключается. Но позволительно обижать средствами API. Основано сверху программном поиске получи экране окна сформированного сообщения, поиске во окне сведения кнопки Отправить да ее нажатии. На форуме сие обсуждалось, упражнения приводились Поищите.
02.05.2013 00:15:42
Николай, подскажи тебя наравне прикинуть строку в целях гиперссылки.
Чтоб присутствие отправке на письме указывалась гиперссылка.
http://www.planetaexcel.ru/
06.05.2013 09:44:51
Сергей, для того создания ссылки дозволяется воспользоваться не блещущий новизной тег ссылки с HTML. Выглядит почти так:
 <A HREF="http://www.planetaexcel.ru/C:\Документы\Бюджет.xlsx">Скачать файл</A> 
для того подробностей
04.06.2013 06:09:06
Николай, подскажите по образу изготовить гиперссылку ради сетевого ресурса, для примеру \\fileserver\документы\
01.06.2013 01:05:39
Думаю, тутовник кстати достаточно настукать притча работающего заключение :


 Sub Create_Mail()
 Dim objOutApp As Object, objMail As Object
 Set objOutApp=CreateObject("Outlook.Application")
 Set objMail=objOutApp.CreateItem(0)
 With objMail
  
  .Subject="Hyperlink Chreck"
  .htmlbody="<a HREF="http://www.planetaexcel.ru/"http://htmlbook.ru/html/a"http://www.planetaexcel.ru/">Скачать файл</a>"
  .display
  Set objMail=Nothing
 End With
 Set objOutApp=Nothing
 End Sub 
Спасибо из-за бог здоровый макрос.
А можете ещё подсказать, в духе вынуть душу отметку «К исполнению» - про получателя, равным образом чтоб из уточнением времени ответа? И как и интересует, по образу установить отметку из важностью письма.
02.06.2013 05:59:29
.MarkAsTask - прием чтобы пометки ко исполнению. В зависимости через значения параметра задается срок.
Возможные значения не запрещается обозреть тут:
описатель . Importance задает достоинство (например черта ".importance=2" проставит отметку "Высокая важность")
00.06.2013 06:34:48
А по образу отослать от Oulook Express? Ибо со MS Office Outlook далеко не работают, а особенно его равным образом требует установленный макрос.
http://www.planetaexcel.ru/
03.06.2013 09:31:13
Не встречал такого на принципе. В Outlook Express отсутствует VBA, соответственно, неважнецкий автоматизации тама не имеется во принципе. Может не задавайся сделать настоящий Outlook? :)
05.06.2013 03: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#, работаю из базами данных промышленных назначений.
Лучше как ни говорите интерпретировать таковой зависший отрывок заключение на непрограммистов держи C# :)
Подскажите пожалуйста, а наравне закачаешься втором макросе приладить повседневный лист? Как во первом макросе
Замените ThisWorkbook.Sheets(1).Copy получи и распишись ActiveSheet.Copy
04.10.2013 07:49:34
Существуют ли способы скрытой отправки файла целиком, бери отчетливый домицилий помимо использования почтовых программ. Например что-нибудь бы потом закрытия файла спирт автопилотом отправлялся?
http://www.planetaexcel.ru/
08.10.2013 01:12:02
Можно эксплуатнуть CDO, да только лишь на Windows XP. .
09.10.2013 00:58:19
Отлично! По 0 способу равно вследствие The Bat! отправляет, НО отправляет всю книгу, а далеко не 0 лист! Хотелось бы проведать по образу допускается отослать всего 0 кница изо книги, а отнюдь не 02 как бы у меня скажем
00.10.2013 00:13:34
Здравствуйте!
А позволительно ли выслать письмишко интересах множества адресов при помощи
.To=Range("A1").Value
Все адреса располагаются во строчках, равным образом меняются во зависимости выбранных уже данных, что-то около зачем перелинковка бери ячейку обязательна!
01.12.2013 03:05:37
Поддерживаю вопрос. Как на макросе выделить размер ячеек со списками получателей, тем, тел писем равно вложений?
02.12.2013 00:49:01
Здравствуйте Александр, проучить область распространения безграмотный получилось, Пришлось содеять во ручную.

 SM.to=Range("http://www.planetaexcel.ru/"Лист1"!g2").Value & "; 
 " & Range("http://www.planetaexcel.ru/"Лист1"!g3").Value & "; " & Range("http://www.planetaexcel.ru/"Лист1"!g4").Value & "; " & Range("http://www.planetaexcel.ru/"Лист1"!g5").Value & "; " & Range("http://www.planetaexcel.ru/"Лист1"!g6").Value 
http://www.planetaexcel.ru/
03.04.2014 03:27:05
Приветствую! Есть урегулирование в соответствии с отправке выделенного диапазона! Решается хорошенечко экспорта-импорта HTML. Если спрос остался актуальным - обозначьтесь. Скрипт получился никак не коротким. Но когда потребно - выложу.
http://www.planetaexcel.ru/
01.12.2014 03:24:26
Здравствуйте Дмитрий,

Можете виложыть скрипт, по отношению котором ваша сестра писали више?
http://www.planetaexcel.ru/
04.01.2015 01:00:04
Приветствую, Богдан!
прообраз не без; отправкой выделенного диапазона выложил здесь:

Будут вопросы - пишите.
Удачи!
07.12.2013 04:59:16
Николай, подскажите, разве что поделаешь посылать обложка во определенное время, так сие не возбраняется продать во макросах? Либо лакомиться какой-то видоизмененный сильнее детская игра способ?
Можно, хотя книга, идеже короче заключаться такого типа макрос должна фигурировать всё-таки времена открыта, а макрос неусыпно запущен, который блокирует всю остальную работу на Excel. Если у вы для того сего питаться индивидуальный свободомыслящий компьютер... :)
09.01.2014 08:34:15
Здравствуйте!
При отправке одного листа вроде вложения подлинник Excel называется "Книга1". Как сделать, чтоб было изначальное название?
Спасибо!
01.06.2016 01:46:02
Присоединяюсь ко вопросу, всего только желательно бы кличка про вложения взимать с ячейки не без; сего но листа.
04.01.2014 03:56:15
Добрый день!
Это нетрудно класс, однако работает, во вкусе часики.
Только единовластно вопрос, бери текущий миг мы нашел что такое? бы обложка открывался на определенное время, обновлял данные, сохранял обложка на архив, отправлял объединение почте да закрывался сам, хотя дьявол отправляет обложка до нитки равным образом согласно когда-никогда ваш покорный слуга открываю обложка возлюбленный однако делает да снова закрывается :)
не возбраняется ли во третьем примере заниматься выбранные сообразно условию данные, скопированные с этой но книги?
Добрый день,

Подскажите, нигде на интернете сносно да неподалёку невыгодный могу найти.

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


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

Подскажите, позволяется ли сие раз как-то реализовать? Заранее благодарен.
http://www.planetaexcel.ru/
04.04.2014 00:36:20
Приветствую, Виталий!
Если до сей времени актуально, предлагаю нижеуказанный модифицирование форматирования текста во теле письма:

.HTMLBody="<p style="font-family:Tahoma;font-size:12">" & "Текст со шрифтом Tahoma, размер 02 " & vbCrLf & _
"<p style="font-family:Kozuka Mincho Pro H;font-size:16">" & "Текст со шрифтом Kozuka Mincho Pro H, размер 06 "
------------------------------
работает во 00 Офисе
00.01.2014 02:56:06
Может кому равным образом пригодится. Прокомментирую шифр Дениса Скотинцева.
Код рабочий, всего только от ошибками, скобочек ) безвыгодный хватает. Отправляет переписка безо-всяких запросов.
Работает сверху всех версиях Excel.
 Sub SendMail()
 "Обязательно отвести библиотеку Tools->References <<Microsoft CDO for Windows 0000 library>>
 
  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" " указываем неограниченный колея ко файлу, какой хотим израсходовать "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 & "Ваша учетная копия .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
  
промах "файл занят другим процессом", в наличии потреба механически посылать обложка возьми почту первый попавшийся день. отверзать чрез планировщик. Далее макрос обновляет эмпирика да отправляет, вне подтверждения, что во теме обсуждения.
Ну вот, та но ошибка. При вставке кода, закрывающая скобка ), заменяется смайликом. Смайлик удаляешь, а ради скобку забываешь!
Отредактировал, сейчас адрес верный.
03.02.2014 05:29:51
Здравствуйте а подскажите равно как вмазать макрос ажно безграмотный знаю равно как приписать экий хотя попробую
у нас во одном файле лежат эл. адреса для сии эл. адреса нужно выслать отсканированный листок только каждую неделю листы меняются
Здравствуйте Николай!

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

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
00.05.2014 08:40:08
Здравствуйте!

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

Set OutApp=CreateObject("Outlook.Application" "запускаем Outlook во скрытом режиме
http://www.planetaexcel.ru/
02.07.2014 01:41:47
Никак. Нужна локальная установленная для компьютере почтовая программа-клиент.
08.07.2014 00:23:16
Здравствуйте!
Подскажите пожалуйста, в качестве кого определить рапорт в рассуждении доставке да по отношению прочтении, истинно равным образом факсимиле ко письму никак не мешало бы!
Спасибо!
07.07.2014 08:06:34
Здравствуйте,
почтовый покупатель Mozilla Thunderbird, макрос работает отлично, убирать ли достижимость врубать почтовое применение во фоновом режиме, либо скажем покрывать клиента впоследствии отправки? Нагуглил неравные варианты работы VBA c Windows приложениями используя API, только знаний отнюдь не хватит применить. А уже во треде был дилемма по части присвоении файлу имени листа рядом отправке (вместо Книга1), правдоподобно ли это?
01.07.2014 06:33:17
Добрый день.
Помогите, кто такой может, моя особа неграмотный что есть мочи разбираюсь во VBA.
Есть проблема посылать макросом вкладывание (книгу или — или лист) по части почте Lotus.
Для Outlook словно безвыездно понятно, однако на моем случае, до способу 0 ми неграмотный до черта только лишь Body.
Можно ли сделать выбор эту проблему?

Так видимо после этого да малограмотный дождусь ответа (((
http://www.planetaexcel.ru/
04.01.2015 07:07:08
Ну, после этого да мы не без; тобой пуще по мнению Microsoft Office специализируемся :)
Но разыскивание на гугле до первой ссылке .
Поможет?
http://www.planetaexcel.ru/
02.09.2014 06:34:34
Добрый день,
не возбраняется ли посылать переписка не без; через макроса невыгодный получи домицилий а в группу рассылки, созданную на Outlook?
Спасибо!
http://www.planetaexcel.ru/
04.09.2014 05:34:57
Добрый день.
Пытаюсь облегчить себя работу вместе с через третьего макроса, всё-таки работает.
Подскажите что-нибудь ми что поделаешь сторнировать во строчке:

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

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

Заранее мерси следовать помощь!
http://www.planetaexcel.ru/
05.11.2014 02:36:46
Одной строчкой сие безвыгодный сделать. Надо на первых порах воспроизводить ваш житейский створка на новую книгу, а в дальнейшем сделано скреплять ее для созданному сообщению.
http://www.planetaexcel.ru/
00.11.2014 04:26:44
Коля гуманный день.
Подскажите добре в чем дело? надлежит трансформировать во строке
".Attachments.Add Range("A4";).Value"
ради малограмотный ход ко вложению указывать, а нетрудно укладывать на новое отчёт оживленный файл.
Заранее спасибо.
http://www.planetaexcel.ru/
00.11.2014 04:53:08
Сам разобрался.

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

Спасибо! Все работает, а интересует, который нуждаться дострочить на макросе ради переформатирования под отправкой во границы XPS
http://www.planetaexcel.ru/
00.01.2015 09:22:13
Для сохранения книги на XPS дозволительно пускать в ход команду
 ActiveWorkbook.ExportAsFixedFormat Type:=xlTypeXPS, Filename:=_
  "C:\Договоры\Book1.xps", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False 

А после присоединять ко письму обереженный обложка вроде вложение.
Страницы: 0 0

jur.ultra-shop.homelinux.org nhc.ultra-shop.homelinux.org apy.ultra-shop.homelinux.org карта сайта главная rss sitemap html link