Excel - Запуск функции VBA для отправки электронной почты с помощью = HYPERLINK ()

Question

РЕДАКТИРОВАТЬ: Найден аналогичный топи c.

Запуск VBA из ГИПЕРССЫЛКИ ()

Это решает мою проблему.

Добавлена ​​возвращаемая часть.

 Set OutlookMail = Nothing
 Set OutlookApp = Nothing

А затем я сделал аргументы функции «комментарием», чтобы избежать ее запуска, просто наведя на нее указатель мыши

Внутри функции я поставил

Set gerarEmail = Selection

и N преобразовал gerarEmail () в "#gerarEmail()"

---

Я новичок ie в программировании на VBA ;

Я пытаюсь использовать код VBA в MS Excel для отправки электронной почты с функцией =HYPERLINK();

Function GerarEmail(aso, vaso, ps, vps)

        Dim OutlookApp As Outlook.Application
        Dim OutlookMail As Outlook.MailItem
        Dim strBody As String

        Set OutlookApp = New Outlook.Application
        Set OutlookMail = OutlookApp.CreateItem(olMailItem)

        strBody = "Documentos Pendentes" & vbCrLf & vbCrLf & _
                    "ASO: " & aso & " vence em " & vaso & " dias;" & vbCrLf & _
                    "PLANO DE SAÚDE: " & ps & " vence em " & vps & " dias;" & vbCrLf & _

                    "FAVOR RESPONDER A ESTE E-MAIL COM OS DOCUMENTOS PENDENTES"


        With OutlookMail
            '.BodyFormat = olFormatHTML
            .Display
            .Body = strBody
            .To = "user@email.net"
            .CC = ""
            .Subject = "Pendências de Documentos"

        End With

End Function

Затем я хочу позвонить =HYPERLINK(GerarEmail(B1; B2; B3; B4); "Enviar") на Листе.

Я не знаю, что я делаю не так, но ячейка, в которой я пишу =HYPERLINK(), возвращается с #NAME?, а не с Enviar, как должно быть.

Любая помощь будут оценены. Спасибо.