使用Outlook VBA向Excel工作表添加超鏈接

Question

我收到大量帶有附件的電子郵件。 需要保存附件，進行編輯以添加參考（以編程方式），記錄新的參考號，然后將保存的附件轉發給各個收件人。 我已經在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中做到這一點，我將不勝感激，如果他們願意共享它。

非常感謝。

內娃

Answer 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