Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub ReadBodyForHyperlink(Item As Outlook.MailItem)
Dim r As Long
Dim e As Integer, b As Integer, a As Integer, c As String
Dim d As Integer, f As String, g As String, g1 As String, h As String
Dim StartTime As Single
e = 0
b = 0
b = InStr(1, Item.Body)
Do While e < Len(Item.Body)
a = InStr(b + 1, Item.Body, "HYPERLINK " & Chr(34))
If a = 0 Then Exit Sub
b = InStr(a + 11, Item.Body, Chr(34))
c = Mid(Item.Body, a + 11, b)
d = InStr(1, c, Chr(34))
f = Mid(Item.Body, a + 11, d - 1)
e = b
g = Right(f, 3)
g1 = Right(f, 11)
h = Left(f, 6)
If g = "gif" Or g = "bmp" Or g1 = "members.php" Or g1 = "fmelden" Or h = "mailto" Then
f = ""
Else
OpenIEWaitAndClose (f)
End If
Loop
End Sub
Sub OpenIEWaitAndClose(sURL As String)
Dim IE As Object
Dim StartTime As Single
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate sURL
Do Until Not .Busy
DoEvents
Loop
StartTime = Timer
Do While Timer < StartTime + 10 '10 seconden
DoEvents
Loop
.Quit
End With
Set IE = Nothing
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.