Я не в курсе, появилась ли в новых версиях 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.