VBA 代码增强功能

Question

我一直在使用以下宏，它确实运行良好，但到了需要进行一些增强的地步：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myMail As String

If Target.Column = 7 Then

    If Target.Value = "option 1" Then
        myMail = "email1"
    ElseIf Target.Value = "option 2" Then
        myMail = "email2"
    ElseIf Target.Value = "option 3" Then
        myMail = "email3"
    ElseIf Target.Value = "option 4" Then
        myMail = "email4"
    ElseIf Target.Value = "option 5" Then Exit Sub

    End If

    With CreateObject("Outlook.Application").CreateItem(0)
        .To = myMail
        .Subject = "Hello"
        .Body = "Hi," & vbNewLine & vbNewLine & "This is a test"
        .Display
    End With
End If
End Sub

“选项”是从第 7 列中每个单元格的下拉列表中选择的（它不允许我使用“G”）。选择其中一个选项后，会自动生成一封电子邮件。

我现在想将同一行中“A”列单元格的值添加到电子邮件的主题行中。例如，如果在单元格 G15 中选择了选项 3，则需要将单元格 A15 中的值添加到电子邮件的主题行中。

除此之外，还需要进一步增强：

由于工作表可能会增长到 100 行，我希望宏生成一个超链接，该超链接链接到列“A”中的确切单元格（从该单元格获取添加到电子邮件主题行的值）。然后需要将此超链接自动添加到电子邮件正文中。