Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


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

Отправлено: 09:45, 27-06-2013 | #2