Добавить гиперссылку на рабочий лист excel с помощью Outlook VBA

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.worksheet.

Если кто-то знает правильный синтаксис, чтобы получить outlook vba, чтобы сделать это в excel, я был бы очень благодарен, если бы они разделили его.

Большое спасибо.

Neva

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