Макрос который вставляет вложение (путь в буфере) в активное письмо Outlook.

[Leanna]

Добрый день!

Как решить следующую задачу.
Я нахожусь в окне письма Outlook, запускаю макрос. Макрос должен делать следующее:

Добавляет в письмо вложение (файл). Путь к файлу берется из буфера обмена.

Как вытащить текст из буфера обмена знаю.

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
End With

Но какой командой сделать добавление вложения в _текущее_ письмо нигде не обнаружила.
Помогите пожалуйста!

[Leanna]

Неужели никто не знает?

Если создавать новое письмо, то это будет так:

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
OutMail.Attachments.Add Путь_к_файлу

Но что же писать перед .Attachments.Add Путь_к_файлу если я _уже_ нахожусь в нужном мне письме?

PS. Может мне посоветуете где этот вопрос можно решить, может англоязычный форум какой-то есть?

[EducatedFool]

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        filename$ = .GetText ' имя файла из буфера обмена
End With

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

' если в буфере обмена - ссылка на существующий файл, - то прикрепляем этот файл
if dir(filename$)<>"" then OutMail.Attachments.Add filename$