Вопросы Теги

Excel VBA цикл по всем гиперссылкам в Outlook HTML и копировать в Excel

вы не можете использовать input.click() напрямую, но вы можете вызвать это в другом событии щелчка элемента. 

var a = document.querySelector('a');
var inpupt = document.querySelector('a');
a.addEventListener('click', function (e) {
    input.click();
});

это говорит вам Использование элементов ввода скрытого файла с помощью кнопки click () метод

0
задан JohnD 20 January 2019 в 15:08
поделиться

1 ответ

В настоящее время мой код копирует все из электронного письма, и гиперссылки показывают фактическую ссылку, а не видимую формулировку.

Вот очень простой пример для достижения того, чего вы хотите. Я использую Debug.Print, чтобы показать данные. Не стесняйтесь вносить изменения, чтобы переместить его в Excel. Я запускаю этот код из Excel. 

Option Explicit

Const olMail As Integer = 43

Sub Sample()
    Dim OutApp As Object
    Dim MyNamespace As Object
    Dim objFolder As Object
    Dim olkMsg As Object
    Dim objWordDocument As Object
    Dim objWordApp As Object
    Dim objHyperlinks As Object
    Dim objHyperlink As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set MyNamespace = OutApp.GetNamespace("MAPI")

    '~~> Let the user select the folder
    Set objFolder = MyNamespace.PickFolder

    '~~> Loop through the emails in that folder
    For Each olkMsg In objFolder.Items
        '~~> Check if it is an email
        If olkMsg.Class = olMail Then
            '~~> Get the word inspector
            Set objWordDocument = olkMsg.GetInspector.WordEditor
            Set objWordApp = objWordDocument.Application
            Set objHyperlinks = objWordDocument.Hyperlinks

            If objHyperlinks.Count > 0 Then
               For Each objHyperlink In objHyperlinks
                   Debug.Print objHyperlink.Address '<~~ Address
                   Debug.Print objHyperlink.TextToDisplay '<~~ Display text
               Next
            End If
        End If
    Next
End Sub
0
ответ дан Siddharth Rout 20 January 2019 в 15:08
поделиться
Другие вопросы по тегам:

Похожие вопросы: