vab 在 outlook 邮件正文文本后插入多个 超链接短名

在Outlook邮件正文中插入多个超链接，通常称为"VBA宏"（Visual Basic for Applications）操作，因为可以编写一段宏脚本来自动化这个过程。以下是一个简单的步骤指南：

1. **启用VBA**：首先，你需要打开Outlook并转到“文件”>“选项”>“信任中心”，然后点击“信任中心设置”，在“VBA项目安全级别”中选择“启用所有宏”。

2. **创建新宏**：点击“开发”选项卡，如果你找不到，可能需要安装VBA编辑器。然后右键点击“Macros”，选择“新建”->“Module”，这将为你创建一个新的VBA模块。

3. **编写代码**：

Sub InsertHyperlinks()
    Dim rng As Range
    Dim linkText As String ' 想要插入的链接文本
    Dim linkURLs() As String ' 链接数组，例如：linkURLs = Array("http://example1.com", "http://example2.com")

    Set rng = Selection ' 或者根据需要指定其他范围
    For i = LBound(linkURLs) To UBound(linkURLs)
        rng.Text = rng.Text & "<a href='" & linkURLs(i) & "'>" & linkText & "</a>"
        ' 如果有多个链接，每次循环后rng指向下一行
        If rng.Rows.Count > 1 Then
            Set rng = rng.Offset(1, 0)
        End If
    Next i
End Sub

4. **运行宏**：保存代码后，在VBA编辑器中双击宏名字`InsertHyperlinks`，它会在选中的文本后插入对应链接。

5. **应用到邮件正文**：在Outlook的新邮件或现有邮件窗口中选中你想要插入链接的部分，然后运行此宏。