我收到大量带有附件的电子邮件。需要保存附件,编辑以添加参考(以编程方式),记录新参考号,并将保存的附件转发给各个收件人。我已经在 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 中执行此操作的正确语法,如果他们愿意分享,我将不胜感激。
非常感谢。
涅瓦河