Vba outlook добавить вложение

Обновлено: 06.07.2024

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

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

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

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

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

.Attachments.Add "C:\Temp\Книга1.xlsx" .Attachments.Add "C:\Temp\Книга2.xlsx" .Attachments.Add "C:\Documents\Report.rar"

objOutlookApp.Session.Logon "user","1234",False, True

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

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

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

"<img src=cid:" & Replace(Dir(sPicture, 16), " ", "%20") & " height=240 width=180>" 'height - высота 'width - ширина

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

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

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

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

Но так же при отправке файлов и писем часто необходимо не привязываться к конкретной почтовой программе. Ведь далеко не все ставят Outlook. Многие используют иные почтовые программы, например TheBat.

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

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

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

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

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

Я стремлюсь добавить вложение к каждому элементу, который в настоящее время выбран в Outlook 2016 году. Моя идея состоит в том, чтобы вызвать Attachments.Add в цикле для каждого элемента в текущем выборе.

В папке "черновики" у меня есть три Черновика с предметами:

Проект Тест 3
Проект Тест 2
Проект Тест 1

Я начал с этого:

К сожалению, Test.txt был приложен только к черновому тесту 3, хотя были выбраны все три Черновика. Я подумал, что, возможно, неправильно повторяю выбор, поэтому попробовал сделать это:

Опять же, хотя все три проекта были выбраны, Test.txt был приложен только к проекту теста 3. В примере кода в этой статье Application.ActiveExplorer и его свойство Selection хранятся в отдельных переменных. Я подумал, что, возможно, именно этого и не хватало, поэтому написал Вот это:

Поведение было идентично поведению первых двух тестов. Наконец, мне пришло в голову, что проблема может заключаться в изменении черновиков, когда я их просматриваю. Затем я написал этот код, который хранит свойства EntryID выбранных элементов в отдельном строковом массиве перед циклическим перебором их:

Опять же, только черновик теста 3 имел Test.txt , прикрепленный после запуска этого кода. Я подумал, что Outlook может быть трудно прикрепить один и тот же файл к нескольким черновикам, поэтому я изменил последний тест, чтобы прикрепить другой файл к каждому черновику. Только черновик теста 3 имел вложение после его выполнения. Даже если я поменяю Application.ActiveExplorer.Selection на Application.ActiveExplorer.CurrentFolder.Items , все равно только первый черновик получит вложение.

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

2 ответа

Пытаюсь понять, как добавить тень ко всем выбранным элементам на странице в пределах InDesign CC. Вот что у меня есть, но там написано Undefined is not an object. myDS = app.select(SelectAll.ALL); myDS.dropShadowSettings.mode = ShadowMode.drop; myDS.dropShadowSettings.angle = .0083;.

Таким образом, на конкретной странице у меня есть некоторое количество элементов формы, где-то между 3 и 8, в зависимости от пользователя и его действий на странице. Как я могу динамически добавить определенное событие onblur ко всем элементам формы на странице? Если у меня есть: function.

Некоторые действия требуют .Save .

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

Я принял ответ @niton's, но вот мой код после добавления .Save :

у меня раньше работал макрос и был установлен офис 2013
сейчас мне установили офис 2016
и у меня перестал работать макрос
подскажите в чем проблема.
макрос написал мой коллега по работе.
он уволился и я теперь не знаю что делать.
а макрос этот нужен.

Отправка email без помощи outlook. а через CDO

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

Мой макрос работает только под Windows
Как на Маке сделать - не знаю, нет Мака для тестирования

Доброго времени суток! Подскажите пожалуйста, нужен макрос для отправки фиксированного диапазона ячеек A14:N25 через аутлук в теле письма в виде куска таблицы
Нашел макрос на отправку файла, вот только не могу понять в каком формате нужно прописать attachment?

Sub Send_Mail()
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String

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)

Можем сделать под заказ.

Добрый день.
Отправка писем данным макросом работает прекрасно, но можно добавить параметр который отвечает за отправку письма не сразу, а в назначенную дату и время ?
Необходима рассылка уведомлений за 10 дней до контрольной даты.
Заранее спасибо за ответ.

Александр, я не консультирую по бесплатным макросам, тем более, если они написаны не мной.
Обратитесь на форумы по Excel, там помогут.

Здравствуйте,снова :)
Пошел по Вашему совету =>
1. сначала файл сохраняю в формате .pdf в определенной папке
2. Отправляю файл с прикреплением этого файла из определенной папки
Вот только проблемка, он файл сохраняет, но ничего не отправляется.

Sub save_in_pdf_and_send_email()
Dim s$
s = "C:\Users\alexander.leontyev\Desktop\60_SQA\10. Supplier perfomance\SP"
MakeSureDirectoryPathExists s
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
s & "\Supplier Perfomance - " & Range("b3") & " - " & Range("b4") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String

sTo = Range("ac3") & ";" & Range("ac4") & ";" & Range("ac5") & ";" & Range("ac6") 'Кому(можно заменить значением из ячейки - sTo = Range("A1").Value)
sSubject = "Supplier Performance - " & Range("b3") & " - " & Range("b4") 'Тема письма(можно заменить значением из ячейки - sSubject = Range("A2").Value)
sBody = "We inform you that we are appreciated you by point evaluation => more detailed description is presented in the attached file"
sAttachment = "C:\Users\alexander.leontyev\Desktop\60_SQA\10. Supplier perfomance\SP" & "\Supplier Perfomance - " & Range("b3") & " - " & Range("b4") & ".pdf" 'Вложение(полный путь к файлу. Можно заменить значением из ячейки - sAttachment = Range("A4").Value)

With objMail
.To = Range("ac3") & ";" & Range("ac4") & ";" & Range("ac5") & ";" & Range("ac6")
.CC = Range("ad4") & ";" & Range("ad5") & ";" & Range("ad6")
.BCC = ""
.Subject = "Supplier Performance - " & Range("b3") & " - " & Range("b4")
.Body = "We inform you that we are appreciated you by point evaluation => more detailed description is presented in the attached file"
End With

Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True

Спасибо большое, сейчас попробую :)

1. листа в формате PDF не существует.
если хотите его прикрепить, - сначала надо сохранить этот лист в формате PDF в файл
иначе - никак. впрочем, это происходит моментально и незаметно для пользователя, если макрос правильно написан
ваш код тут не подойдет, - он подходит только для отправки книги в обычном формате (Excel)
для PDF нужен совсем другой код (с использованием CDO или почтовой программы типа Outlook)

2. в четвёртой строке, в коде ошибка: .CC = Range("h25") & Range("h26") тут не в тему
метод SendMail объекта Workbook не поддерживает указание получателей копии в таком виде (надо указывать массив текстовых значений)
попробуйте заменить четвертую строку следующим:

1. Помогите пожалуйста скорректировать макрос, так чтобы он вкладывал в письмо лист в формате PDF (не сохраняя на рабочем столе, потом прописывать чтобы из папки вставлял и прочее)
2. Скорректировать макрос, чтобы вставлял помимо основных получателей, еще получателей для копии письма (основные адреса указаны у меня в ячейках H21, H22, а для копии в ячейках H25, H26)

1. Sub send_emails()
2. ThisWorkbook.Sheets("SP").Copy
3. With ActiveWorkbook
4. .SendMail Recipients:=Range("h21") & Range("h22").CC = Range("h25") & Range("h26"), Subject:="SP"
5. .Close SaveChanges:=False
6. End With
7. End Sub

P.S.
для составления данного макроса пользовался интернетом, вот только не нашел как вставить лист в формате .pdf и получателей для копии не работает)

Замените "почта куда отправлять" на Range("D2")
где D2 - адрес ячейки с адресом почты

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

Sub SendWorkbook()
ActiveWorkbook.SendMail Recipients:="моя почта", Subject:="Лови файлик"
End Sub

Sub SendSheet()
ThisWorkbook.Sheets("рассылка").Copy
With ActiveWorkbook
.SendMail Recipients:="почта куда отправлять", Subject:="Лови файлик"
.Close SaveChanges:=False
End With
End Sub

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

просто .CC = Email$, .BCC = Email$ (скрытая)

Игорь, спасибо за макрос
вопрос: а если адреса получателей расположены в диапазоне ячеек (A1:A20)

Все файлы откуда? со всего компа? :)

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

Олег, сформируйте шаблон письма в формате HTML, и вставьте в HTML-код тег img, ссылающийся на вашу картинку в интернете
(картинку можно разместить на любом сайте, - лишь бы ссылка на картинку была прямая и постоянная)
Внедрить картинку в тело письма - тоже можно, но код очень сложный (я сам этого не делал ни разу, и не планирую)

Насколько я понял из поиска по интернету в Outlook 2007-2010 данная функция не поддерживается. Отправьте письмо через веб-доступ к почтовому ящику или через другой почтовый клиент.

Sub ЕмейлЭтотЛистВТеле(ByVal Строка As Integer)
'для работы необходимо подключить библиотеку "Microsoft CDO for Windows200 Library" в редакторе макросов Tool –> References

Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@mail.ru"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update

End With
End Sub

TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With

'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource align=left x:publishsource links">

Добрый день. Подскажите как в тело письма вносить диаграммы и текст с листа excel?

В этой статье мы узнаем, как использовать Outlook в качестве объекта Microsoft из Excel с использованием кодирования VBA и как мы можем отправлять электронную почту, включая вложение, с помощью VBA.

Как использовать функцию Outlook VBA Outlook?

Чтобы использовать функцию Outlook VBA, нам нужно сделать две вещи.

Ссылка на объект Microsoft Outlook из библиотеки объектов в VBA.
Напишите код VBA для отправки электронных писем в модуле VBA.

Как вы знаете, Outlook - это объект, и нам нужно предоставить ссылку на объект Outlook. Итак, в VBA есть библиотека ссылок на объекты, которую нам нужно использовать для справки.

Для использования библиотеки ссылок на объекты выполните следующие действия.

Шаг 1. На вкладке «Разработчик» щелкните Visual Basic, чтобы открыть редактор VB.

Шаг 2: Перейдите в Инструменты и затем выберите Ссылки, как показано на скриншоте ниже.

Шаг 3. Прокрутите вниз в библиотеке эталонных объектов и выберите «Библиотека объектов Microsoft Outlook 16.0», чтобы сделать ее доступной для Excel VBA.

В зависимости от офиса Microsoft версия Outlook может отличаться. В нашем случае это 16.0. Вы можете использовать « Библиотеку объектов Microsoft Outlook 14.0», если это версия, показанная на вашем компьютере.

Установите флажок Microsoft Outlook, как показано на скриншоте выше. Теперь мы можем использовать объект Microsoft Outlook в Excel VBA.

Этот процесс установки ссылки на «MICROSOFT OUTLOOK 16.0 OBJECT LIBRARY» известен как «Раннее связывание». Без установки библиотеки объектов как «MICROSOFT OUTLOOK 16.0 OBJECT LIBRARY» мы не можем использовать свойства IntelliSense и методы VBA, что затрудняет написание кода.

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

Шаг 1: Создайте подпроцедуру, назвав макрос. Мы будем называть макрос «send_email», как показано на скриншоте ниже.

Код:

Шаг 2: Определите переменную как Outlook. Приложение, как показано на скриншоте ниже. Это ссылка на приложение Outlook VBA.

Код:

Шаг 4: На предыдущих шагах мы определили переменную, теперь нам нужно их установить.

Теперь установите первую переменную «Приложение Outlook» как «Новое приложение Outlook.Application», как показано на снимке экрана ниже.

Код:

Шаг 5: Теперь установите вторую переменную «Outlook Mail» с помощью приведенного ниже кода.

Код:

Шаг 6: Теперь мы можем использовать VBA Outlook, используя оператор « С », как показано на скриншоте ниже.

Код:

Теперь у нас есть доступ к таким элементам электронной почты, как «Кому», «CC», «BCC», «тема», «Основная часть электронного письма» и многим другим.

Шаг 7: Внутри оператора «С» мы можем увидеть список, поставив точку, известную как «Список Intellisense».

Шаг 8: Сначала выберите формат тела как olFormatHtml, как показано на скриншоте ниже.

Код:

Шаг 9: Выберите « .Display » для отображения почты, как показано на скриншоте ниже.

Код:

Шаг 10: Выберите « .HTMLbody », чтобы написать электронное письмо, как показано на скриншоте ниже.

Код:

Нам нужно помнить несколько вещей при написании письма в коде VBA.

«
»Используется для включения разрыва строки между двумя строками. Чтобы добавить подпись в электронное письмо, вам нужно ввести «& .HTMLbody»

Ниже приведен пример того, как написать письмо в VBA.

Код:

Шаг 11: Теперь нам нужно добавить получателя письма. Для этого вам нужно использовать «.To».

Код:

Шаг 12: Если вы хотите добавить кого-либо в «CC» и «BCC», вы можете использовать «.CC» и «.BCC», как показано на скриншоте ниже.

Код:

Шаг 13: Чтобы добавить тему для письма, которое мы отправляем, мы можем использовать « .Subject », как показано на скриншоте ниже.

Код:

Шаг 14: Мы можем добавить нашу текущую рабочую книгу в виде вложения в электронное письмо с помощью свойства «.Attachment». Для этого сначала объявите переменную Source как строку.

Код:

Затем используйте следующий код, чтобы прикрепить файл в письме.

Код:

Здесь ThisWorkbook используется для текущей книги и. FullName используется для получения полного имени листа.

Итак, код наконец готов к отправке по электронной почте. Нам нужно просто запустить макрос сейчас.

Шаг 16: Запустите код, нажав F5 или кнопку Run, и посмотрите результат.

Окончательный полный код

Код:

Пример функции Outlook VBA

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

« Привет, команда

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

С уважением,

неизвестный

Выполните шаги, указанные выше, для ссылки на объект Microsoft и написания кода VBA, или вы можете просто изменить код соответствующим образом.

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

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

Код:

После запуска макроса вы увидите, что письмо было отправлено автоматически из вашего внешнего вида.

То, что нужно запомнить

Во-первых, убедитесь, что вы установили Microsoft Outlook на свой компьютер и вы вошли в свою учетную запись.
Убедитесь, что флажок для Microsoft Outlook в ссылке на библиотеку объектов всегда установлен. Код не запустится и выдаст ошибку, если она не проверена.
Определение переменных и установка переменных очень важны в кодировании VBA. Без переменных код не будет работать.
Убедитесь, что если вы хотите добавить подпись в почте, сначала у вас должна быть хотя бы одна подпись, уже созданная в outlook.
Всегда используйте «
»Для ввода пробелов в почте.

Vba outlook добавить вложение

2 ответа

Похожие вопросы:

Комментарии

Как использовать функцию Outlook VBA Outlook?

Пример функции Outlook VBA

То, что нужно запомнить

Рекомендуемые статьи