In Microsoft Excel eine VBA basierte IE Abfrage am Router (Systemprotokoll) tätigen und bedingt eine Mail abschicken

<li id="System"><a href="#" title="System" onclick='internalLink("System","index");'>  
System
</a><ul id="navlist2" class="" style="display: none;"><li><a href="#" title="Zugangsschutz" onclick='internalLink("System","accessProtection");'>Zugangsschutz</a></li><li><a href="#" title="Systemzeit" onclick='internalLink("SystemBase","changeTime");'>Systemzeit</a></li><li><a href="#" title="Konfiguration sichern" onclick='internalLink("SystemBase","changeConfiguration");'>Konfiguration sichern</a></li><li><a href="#" title="Gerät rücksetzen" onclick='internalLink("SystemBase","doReset");'>Gerät rücksetzen</a></li><li><a href="#" title="Firmware-Update" onclick='internalLink("SystemBase","changeFirmware");'>Firmware-Update</a></li><li><a href="#" title="Betriebsart" onclick='internalLink("System","operationMode");'>Betriebsart</a></li><li><a href="#" title="Fernverwaltung" onclick='internalLink("System","remoteConfig");'>Fernverwaltung</a></li><li><a href="#" title="Provider Support" onclick='internalLink("System","renderDeviceManagement");'>Provider Support</a></li><li><a class="cHasSubItems" title="Diagnose">  
Diagnose
</a><ul id="navlist3" class="" style="display: none;"><li><a href="#" title="Systemmeldungen" onclick='internalLink("System","syslog");'>  
Systemmeldungen
</a></li><li><a href="#" title="Ping-Test" onclick='internalLink("System","doPingTest");'>Ping-Test</a></li><li><a href="#" title="Paket-Tracer" onclick='internalLink("System","doTrace");'>Paket-Tracer</a></li></ul></li><li><a class="cHasSubItems" title="QoS">QoS</a><ul id="navlist3" class="" style="display: none;"><li><a href="#" title="Einstellungen" onclick='internalLink("System","indexQoS");'>Einstellungen</a></li><li><a href="#" title="Klassen erstellen" onclick='internalLink("System","indexQoSClass");'>Klassen erstellen</a></li><li><a href="#" title="Regeln erstellen" onclick='internalLink("System","indexQoSTrafficPlan");'>Regeln erstellen</a></li><li><a href="#" title="Statistiken" onclick='internalLink("System","indexQoSStatistics");'>Statistiken</a></li></ul></li><li><a class="cHasSubItems" title="Rechtl. Informationen">Rechtl. Informationen</a><ul id="navlist3" class="" style="display: none;"><li><a href="#" title="Lizenz" onclick='internalLink("System","license");'>Lizenz</a></li></ul></li><li><a href="#" title="Sitemap" onclick='internalLink("SasOverview","sitemap");'>Sitemap</a></li></ul></li>  

<div id="StgTable_syslog_Content"><div><table class="cStgTable" cellspacing="0" cellpadding="0">  
<thead><tr class="Header"><th class="cTitle cDefault"><div><div class="cLink">Ereignislogbuch</div>  
</div>
</th>
<th class="cIcon cDefault"><div><div class="Hide Visibility"></div>  
<div class="Refresh Update"></div>  
</div>
</th>
</tr>
</thead>
<tr><td colspan="2"><textarea class="cFull" id="MessageLog" name="" rows="9" cols="700" readonly="readonly" wrap="off">JJJ-MM-TT hh:mm:ss (Event zB) DHCP: Client registered 192.168.100.55 'WLAN-MAC-Adresse' '7-stellige Zahl'  
'---und das geht in der nächsten Zeile weiter für die vergangenen 3-5 Tage---'  
2017-01-30 12:19:02  NTP: System time successfully synchronized with server ntp1.t-online.de
2017-01-30 05:00:32  WLAN: WLAN is running
2017-01-30 02:00:07  WLAN: WLAN disabled
2017-01-28 22:21:40  GUI: Session expired (natürlich gekürzt, usw.)
</textarea>
</td>
</tr>
</table>
</div>
</div>

An: mail@mail.de
Betreff: SysLog Router Fehlerberichte (heute)
Inhalt: Nur die Fehlerberichte des Tages. +Danke Telekom:)