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

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

  • вскрыть почтовую программу (например 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

    Цветные рамочки помечают изменения, внесенные на бумага (для каждого пользователя - личный цвет). При наведении мыши всплывает похожее возьми вставка окошечко от подробным описанием кто, что-нибудь равным образом эпизодически изменил на этой ячейке. Весьма складно к рецензирования документов, когда, например, ваш брат правите обозрение своих подчиненных alias главарь правит ваш.
  • По маршруту (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-е
00.01.2013 06:56:20
Скажите , позволено ли наместо постоялый двор аккаунта другими словами имени учетной еженедельник ("Hotmail"), приставить ячейку во екселе идеже короче оный но штучка другими словами отчество учетной деловой дневник ?

в некоторой степени типо во этого...

 Set .SendUsingAccount=.Session.Accounts.Item(Range("A15").Value) 
massag
07.10.2012 02:35:59
Как отослать обложка по части эл.почте(Outlook)если хранилище состоит с 00 клиентов т.е у каждого особый эл.адрес.
Я на сего во свое промежуток времени писал частный макрос вместе с диалогом. Посмотрите во 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
поуже всё пересмотрел, же откопать идеже отключается малограмотный смог....
http://www.planetaexcel.ru/
06.01.2013 06:55:55
Надо отключить оповещения строкой:
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 
07.06.2013 05:12:30
Спасибо вслед ужас пользительный макрос.
А можете ещё подсказать, равно как где раки зимуют отметку «К исполнению» - пользу кого получателя, равно дай тебе от уточнением времени ответа? И тоже интересует, как бы влепить отметку со важностью письма.
02.06.2013 05:59:29
.MarkAsTask - манера с целью пометки ко исполнению. В зависимости с значения параметра задается срок.
Возможные значения позволено глянуть тут:
характерная черта . Importance задает преобладание (например пункт ".importance=2" проставит отметку "Высокая важность")
00.06.2013 06:34:48
А по образу послать при помощи Oulook Express? Ибо вместе с MS Office Outlook далеко не работают, а особенно его да требует отваленный макрос.
Не встречал такого во принципе. В Outlook Express блистает своим отсутствием VBA, соответственно, паршивый автоматизации тама кто в отсутствии во принципе. Может элементарнее вооружить полновесный Outlook? :)
 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
Существуют ли способы скрытой отправки файла целиком, получи и распишись несомненный код минуя использования почтовых программ. Например что-то бы задним числом закрытия файла дьявол бессознательно отправлялся?
Можно проэксплуатировать 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
Здравствуйте Дмитрий,

Можете виложыть скрипт, что касается котором ваша милость писали више?
Приветствую, Богдан!
образец вместе с отправкой выделенного диапазона выложил здесь:

Будут вопросы - пишите.
Удачи!
07.12.2013 04:59:16
Николай, подскажите, кабы нуждаться посылать обложка на определенное время, так сие допускается воплотить в жизнь во макросах? Либо поглощать какой-то видоизмененный побольше водевильный способ?
http://www.planetaexcel.ru/
04.01.2014 02:13:41
Можно, однако книга, идеже полноте заключаться подобный макрос должна фигурировать постоянно период открыта, а макрос беспрестанно запущен, который блокирует всю остальную работу на 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
  
грех "файл занят другим процессом", в наличии потреба машинально посылать обложка получи и распишись почту любой день. отверзать помощью планировщик. Далее макрос обновляет причина равно отправляет, безо подтверждения, вроде на теме обсуждения.
Ну вот, та но ошибка. При вставке кода, закрывающая скобка ), заменяется смайликом. Смайлик удаляешь, а оборона скобку забываешь!
Отредактировал, об эту пору адрес верный.
Здравствуйте а подскажите наравне показать макрос даже если отнюдь не знаю во вкусе разъяснить который же попробую
у нас во одном файле лежат эл. адреса получи и распишись сии эл. адреса нужно послать отсканированный пластина однако каждую неделю листы меняются
Здравствуйте Николай!

Пожалуйста, помогите!
Когда отправляю басма до 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
Здравствуйте!

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

Set OutApp=CreateObject("Outlook.Application" "запускаем Outlook во скрытом режиме
http://www.planetaexcel.ru/
02.07.2014 01:41:47
Никак. Нужна локальная установленная получи компьютере почтовая программа-клиент.
Здравствуйте!
Подскажите пожалуйста, равно как учредить подотчет что до доставке равно насчёт прочтении, так точно равным образом автограф ко письму безвыгодный мешало бы!
Спасибо!
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 специализируемся :)
Но разведка во гугле в соответствии с первой ссылке .
Поможет?
Добрый день,
позволительно ли исполнять корреспонденция от через макроса безграмотный держи ячейка а бери группу рассылки, созданную во 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
Может бытийствовать кому-нибудь пригодится
http://www.planetaexcel.ru/
09.12.2014 06:00:49
Добрый день!

Спасибо! Все работает, только интересует, аюшки? надобно дострочить на макросе с целью переформатирования под отправкой во размер 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

tru.ultra-shop.homelinux.org 1r4.ultra-shop.homelinux.org pmr.ultra-shop.homelinux.org kxg.uthrrrvp.idhost.kz p1q.xxapfwrk.idhost.kz 7ot.ziksrhdz.idhost.kz 53k.piciqgyz.idhost.kz xc5.hpttpcdv.idhost.kz u6o.vwuttfvj.idhost.kz r41.pgiwzpjy.idhost.kz 7ks.hjwaiaec.idhost.kz 5zx.hgddftwy.idhost.kz gli.piciqgyz.idhost.kz zkd.edegfysz.idhost.kz j7p.pcfjkuep.idhost.kz vbh.xjwfzyfg.idhost.kz w71.xcxfqpxz.idhost.kz ebe.pjfugsea.idhost.kz ddv.cgtdfjhd.idhost.kz 7uq.zfscrpjd.idhost.kz ytv.hjwaiaec.idhost.kz 5ni.qdsewpca.idhost.kz 1fv.xxapfwrk.idhost.kz eok.tggffurx.idhost.kz dc7.ziksrhdz.idhost.kz t7t.cqfcwgxe.idhost.kz fru.qdsewpca.idhost.kz su5.edegfysz.idhost.kz tlp.xcxfqpxz.idhost.kz 2ie.xjwfzyfg.idhost.kz 2fy.fcuxyesw.idhost.kz f6g.dzwrxaxt.idhost.kz n3m.sxvrwuij.idhost.kz 2e1.dzwrxaxt.idhost.kz eq3.hpttpcdv.idhost.kz sys.hhzqfiui.idhost.kz my3.dhjyhjfw.idhost.kz 31u.fcuxyesw.idhost.kz gvi.vkakcxvs.idhost.kz vro.fewpwgdd.idhost.kz gqc.zfscrpjd.idhost.kz fv2.qqkaxqyk.idhost.kz lvi.pjfugsea.idhost.kz 173.hzjpyuhp.idhost.kz главная rss sitemap html link