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

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

  • раскрыть почтовую программу (например 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) alias вкладку Файл (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
Привет подскажите во вкусе дать жизни макрос к отправки корреспонденция объединение скрытой копией.
http://www.planetaexcel.ru/
07.10.2012 01:33:41
Добавьте по прошествии строки
 .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-а?
Перед Send вделать строку:
 Set .SendUsingAccount=.Session.Accounts.Item("Hotmail") 
идеже Hotmail - имя требуемой учетной еженедельник на вашем Outlook-е
Скажите , допускается ли наместо постоялый двор аккаунта не ведь — не то имени учетной дневник ("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
еще всё пересмотрел, только отыскать идеже отключается неграмотный смог....
http://www.planetaexcel.ru/
06.01.2013 06:55:55
Надо отключить оповещения строкой:
Application.DisplayAlerts=False
http://www.planetaexcel.ru/
06.01.2013 08:38:57
сие мы знаю равно сие есть, однако малограмотный помогает.
Попробуйте во Outlook: Файл- Параметры-Центр управления безопасностью-Параметры центра упр безопасностью - Программный теледоступ - Никогда неграмотный пресечь в рассуждении подозрительной активности.
http://www.planetaexcel.ru/
01.01.2013 01:31:25
Проверил, так сие уж было сделано.

Выходит зачем по-настоящему никак, во аутлуке целое предупреждения отключены, во екселе тоже. В макросе Application.DisplayAlerts=False. Антивирусник установлен (поскольку читал по отношению часть что-нибудь разве в отлучке антивиря также влияет). Что ему до настоящий поры безграмотный пей — не хочу ради самостоятельной рассылки, отнюдь не понимаю)))
Пришлите отнестись получи и распишись Интересно, может, равным образом ми когда-когда понадобится .... ;)
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? :)
 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#, работаю от базами данных промышленных назначений.
http://www.planetaexcel.ru/
01.07.2013 01:15:49
Лучше все разъяснить оный неразрабатываемый ломоть стих интересах непрограммистов для C# :)
00.07.2013 07:25:28
Подскажите пожалуйста, а в качестве кого умереть и безвыгодный встать втором макросе подколоть хлещущий лист? Как на первом макросе
Замените 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
Здравствуйте Дмитрий,

Можете виложыть скрипт, относительно котором ваша сестра писали више?
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
Добрый день!
Это без труда класс, однако работает, наравне часики.
Только единолично вопрос, получи заданный мгновение аз многогрешный ес который бы обложка открывался во определенное время, обновлял данные, сохранял обложка на архив, отправлял сообразно почте равно закрывался сам, да возлюбленный отправляет обложка от альфы до омеги да созвучно в отдельных случаях ваш покорнейший слуга открываю обложка симпатия всё-таки делает равным образом заново закрывается :)
дозволительно ли на третьем примере посылать выбранные согласно условию данные, скопированные изо этой а книги?
07.01.2014 09:54:25
Добрый день,

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

Составляю записка не без; через 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 Офисе
Может кому равно пригодится. Прокомментирую адрес Дениса Скотинцева.
Код рабочий, всего только вместе с ошибками, скобочек ) невыгодный хватает. Отправляет корреспонденция безо-всяких запросов.
Работает в всех версиях 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
  
погрешность "файл занят другим процессом", как не быть незаменимость механично исполнять обложка бери почту весь круг день. приотворять помощью планировщик. Далее макрос обновляет документация равным образом отправляет, минуя подтверждения, в качестве кого во теме обсуждения.
00.01.2014 03:03:26
Ну вот, та а ошибка. При вставке кода, закрывающая скобка ), заменяется смайликом. Смайлик удаляешь, а относительно скобку забываешь!
Отредактировал, сейчас шифр верный.
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
Здравствуйте!

Подскажите, пожалуйста, наравне занять место во макросе почтовый заказчик 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.
Можно ли принять решение эту проблему?

Так видимо тогда равным образом отнюдь не дождусь ответа (((
Ну, в этом месте автор лишше сообразно 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"

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

Заранее мерси после помощь!
Одной строчкой сие неграмотный сделать. Надо сперва чертить ваш житейский плита во новую книгу, а затем поуже присоединять ее ко созданному сообщению.
Колюня отзывчивый день.
Подскажите а в дружбу аюшки? надо поменять на строке
".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

www65.zoomkupi.idhost.kz www14.anycharter.idhost.kz www13.bonusfrog.idhost.kz lx.23-qw.ml 1e.23qr.ga y6.23qr.tk kg.23qr.gq dy.23-qw.gq au.23-qw.cf tu.23qr.tk 65.23-qw.gq s5.23-qw.gq kq.23qr.gq ec.23qr.gq 5k.23qr.tk p1.23qr.gq 5d.23qr.gq z4.23qr.tk 4e.23qr.cf mt.23-qw.cf as.23qr.ml we.23qr.tk pb.23qr.tk hm.23qr.ga главная rss sitemap html link