Невозможно кодировать VBA для Mailto и гиперссылок

Question

Просто, чтобы уйти с дороги, я впервые использую этот тип кодирования. К вашему сведению.

Хорошо, вот такая проблема:

Я использую Excel 2010

Я пытаюсь создать гиперссылку, включающую в себя mailto, чтобы создавать электронные письма, в которых почти нет необходимости вводить что-либо.

В настоящее время я использую следующую формулу: =HYPERLINK("mailto:"&C25&"&cc="&C26&"?subject="&C16&"&body="&C2,"SendEmail")

Проблема в том, что когда все оценивается, функция гиперссылки превышает 256 символов. Я думал о написании кода VBA, чтобы обойти это, но я никогда не делал никакого кода VBA.

Я нашел следующий код, но я не уверен, как реализовать это в качестве решения моей проблемы:

    Dim curCell As Range
    Dim longHyperlink As String

    Set curCell = Range("C31")   ' or use any cell-reference
    longHyperlink = Range("C30")  ' Or a Cell reference like [C1]

    curCell.Hyperlinks.Add Anchor:=curCell, _
                    Address:=longHyperlink, _
                    SubAddress:="", _
                    ScreenTip:=" - Click here to follow the hyperlink", _
                    TextToDisplay:="Long Hyperlink"

End Sub

Буду признателен за любые отзывы или помощь.

Обновление:

Я пытался использовать

longHyperlink = Range("C30")

, где C30 имеет следующее содержимое: "mailto:"&C25&"&cc="&C26&"?subject="&C16&"&body="&C2,"SendEmail", включая "

Когда яПри попытке выполнить ссылку, созданную при запуске модуля, появляется предупреждение Microsoft о том, хочу ли я открыть этот файл.

Когда я говорю «да», возникает неожиданная ошибка.