Сообщение из Excel в Outlook - гиперссылка

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сообщение из Excel в Outlook - гиперссылка - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Сообщение из Excel в Outlook - гиперссылка (Макросы/Sub)

Сообщение из Excel в Outlook - гиперссылка

Jazz01

Дата: Понедельник, 29.05.2017, 16:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Уважаемые специалисты,

подскажите, пожалуйста, как добавить в кнопку такую функцию, чтобы среди выводимого в новом письме outlook текста указывалась гиперсылка на текущий открытый файл

[vba]

Код

Private Sub CommandButton1_Click()

On Error GoTo ErrHandler

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")

' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.to = "Ivanov@pochta.ru"
.Subject = "Test message"
.Body = " please open the file:"[b]LINK TO THE CURRENT FILE[/b]
.Display ' DISPLAY MESSAGE.
End With

' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing

ErrHandler:
'

End Sub

[/vba]

Сообщение отредактировал Jazz01 - Понедельник, 29.05.2017, 17:29

Ответить

Сообщение из Excel в Outlook - гиперссылка (Макросы/Sub)

Страница 1 из 1
1