0

我收到大量带有附件的电子邮件。需要保存附件，编辑以添加参考（以编程方式），记录新参考号，并将保存的附件转发给各个收件人。我已经在 Outlook vba 中完成了所有这些工作，但是为了使审计更容易，我需要在包含新添加的参考号的日志单元格中添加一个超链接，以便我可以快速导航到新保存的文件。

我已经彻底搜索但没有快乐，并尝试过：

        With LogObj.Sheets("Log")
        .Hyperlinks.Add Anchor:=LogObj.Sheets("Log").Cells(LastOrderRow, 3), Address:="",   SubAddress:= _
            "SavePath", TextToDisplay:=LogObj.Sheets("Log").Cells(LastOrderRow, 3)
        End With

我试过了：

        LogObj.Sheets("Log").Cells(LastOrderRow, 3) = _
        WorksheetFunction.Hyperlink(savePath, LogObj.Sheets("Log").Cells(LastOrderRow, 3))

在绝望中，我试着直言不讳：

        OrderRef = "LogObj.Sheets("Log").Cells(LastOrderRow, 3)"
        LogObj.Sheets("Log").Cells(LastOrderRow, 3) = _
        WorksheetFunction.Hyperlink(""" & SavePath & """, OrderRef)

以及上面的许多变化，包括添加 application.worksheetfunction。

如果有人知道让 Outlook vba 在 excel 中执行此操作的正确语法，如果他们愿意分享，我将不胜感激。

非常感谢。

涅瓦河

4

1 回答 1

1

文件的路径应该放在地址中。这对我有用。确保您的路径有效。

With LogObj.Sheets("Log")
    Set rNext = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
    rNext.Value = lReference
    .Hyperlinks.Add Anchor:=rNext, Address:=sSavePath, TextToDisplay:=CStr(lReference)
End With
于 2013-09-29T00:59:24.287 回答