[решено] Microsoft Excel - ссылки на почту

[JimmOnLine]

Подскажите пожалуйста, возможно ли организовать следующее:
Чтобы при нажатии на ячейку в Microsoft Excel, открывался Microsoft Outlook с уже заданной темой и содержанием письма [Т.е. чтобы тема бралась из одной ячейки Microsoft Excel'я, а содержимое письма из другой ячейки]?.

[Iska]

Я не в курсе, появилась ли в новых версиях Microsoft Excel возможность нажимать на ячейки, но в прежних, насколько я помню, такой возможности не было.

Вот примерный макрос:
Option Explicit

Sub CreateMailByMicrosoftOutlook()
Dim objOutlook As New Outlook.Application

With objOutlook
With .CreateItem(olMailItem)
With .Recipients.Add("Василий Пупкин")
.Type = olTo
.Resolve
End With

.Subject = ThisWorkbook.ActiveSheet.Range("A2").Value
.Body = ThisWorkbook.ActiveSheet.Range("B2").Value

.Display
End With
End With
End Sub

Вы можете привязать его выполнение к рисунку, автофигуре, кнопке в UserForm и т.п. Предварительно потребуется добавить в проект ссылку на объектную модель Microsoft Outlook установленной версии Microsoft Office.

[JimmOnLine]

mailto:mail@mail.ru?subject=Тема&body=содержимое письма!%0AНовая строка%0AНовая строка%0AНовая строка.

=СЦЕПИТЬ("mailto:";H1;"?subject=Тема&body=Содержимое письма%0AНовая строка.")
=ГИПЕРССЫЛКА(СЦЕПИТЬ("mailto:";H1;"?subject=Тема&body=Содержимое письма%0AНовая строка."))

Решено.

[Iska]

Решено. »
Откроется почтовый клиент по умолчанию ;).

[JimmOnLine]

Ну это само собой.