[решено] Microsoft Excel - ссылки на почту - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - [решено] Microsoft Excel - ссылки на почту (http://forum.oszone.net/showthread.php?t=263266)

Microsoft Excel - ссылки на почту

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

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

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

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

Решено.

Цитата:

Цитата JimmOnLine

Решено. »

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

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