Question

当我尝试将这两个文件创建为outlook电子邮件中的链接时，只有一个文件显示为链接。我该如何解决这个问题，以便两者都显示为链接。

设置omail = CreateItem（olMailItem）

    With omail

    .Subject = "Key Report"
    .BodyFormat = olFormatHTML
    .HTMLBody = "<a href ='" & fileL & "'>Key Report</a>"
    .HTMLBody = "<a href ='" & fileSat & "'>Key Report Saturday</a>"
    .To = abc@yah.com       
    .Display

    End With

Answer 1

您的代码存在问题。你应该重新连接HTMLBody。

试试这个：

Set omail = CreateItem(olMailItem)

With omail
  .Subject = "Key Report"
  .BodyFormat = olFormatHTML
  .HTMLBody = "<a href ='" & fileL & "'>Key Report</a>" & _ 
              "<a href ='" & fileSat & "'>Key Report Saturday</a>"
  .To = abc@yah.com       
  .Display
End With

提示：如果您通过接受过去问题的一些答案来提高录取率，那么人们会更倾向于回答您的问题。向那些免费帮助你的人提供一些代表点不需要任何费用。

在VBA中添加多个链接

1 个答案: