Получить гиперссылку при зацикливании ячеек - PullRequest
Новая
       18

Получить гиперссылку при зацикливании ячеек

0 голосов
/ 23 сентября 2019

У меня есть столбец с датами и другие столбцы, содержащие некоторую информацию.один из других столбцов - это столбец с гиперссылками.Когда дата достигнута, я хочу получить гиперссылку и добавить ее в строку, гиперссылка - это ссылка на другой файл Excel.Я хочу отправить всю эту информацию по почте, и гиперссылка должна быть кликабельной и открыть файл Excel.

У меня все работает нормально, кроме гиперссылки.Теперь у меня есть 2 вопроса:

  • Возможно ли это вообще?Если да, то как?
  • Могу ли я открыть ссылку только на компьютере или она также доступна на моем телефоне?(на телефоне есть только приложение Outlook, нет файлов Excel)

Это то, что у меня есть. 

Dim nr As Integer
Dim nrString As String
Dim device As String
Dim link As Hyperlink
Dim subj As String
Dim msg As String

Sub Maillijst_verlopen_PO()

    Sheets("PO").Select
    For Each Cell In Range("o2", Range("o2").End(xlDown))
        If Cell.Value < Date And Cell.Value <> "" And Cell.Offset(0, 2) = "actief" Then
            nr = Cell.Offset(, -14).Value
            nrString = CStr(nr)
            device = Cell.Offset(0, -9).Value

            link= "<A href=" & Cell.Offset(0, -6).Value & ">test link</A>"

            subj = "nr " + nrString + ": " + device '+ " " + link
            msg = msg + vbCrLf + subj
        End If
    Next

    msg = "De volgende zaken hebben onderhoud nodig: " + vbCrLf + msg
    Call Mail_small_Text_Outlook
    msg = ""

End Sub


Sub Mail_small_Text_Outlook()

    Dim xOutApp As Object
    Dim xOutMail As Object

    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)

    With xOutMail
    .To = "....@h....."
    .CC = ""
    .BCC = ""
    .Subject = "PO verlopen"
    .Body = msg
    .Send
    End With

    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

1 Ответ

0 голосов
/ 23 сентября 2019

Вам нужно изменить Dim link As Hyperlink на Dim hyperlink As String, и тогда ваш HyperLink будет сохранен в вашей переменной hyperlink в виде строки.

И затем, конечно, вы можете продолжить его объединение состальное и есть в subj, когда комментирование отменено ...

...