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.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub Auto_Open()
Dim OutlApp As Object
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutlApp Is Nothing Then
Set OutlApp = CreateObject("Outlook.Application")
OutlApp.Session.GetDefaultFolder(6).Display
End If
OutlApp.ActiveWindow.WindowState = 1
End Sub
Sub Auto_Open()
Dim OutlApp As Object
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If OutlApp Is Nothing Then
Set OutlApp = CreateObject("Outlook.Application")
OutlApp.Session.GetDefaultFolder(6).Display
OutlApp.ActiveWindow.WindowState = 1
AppActivate Application.Caption
VERDER1
Else
VERDER1
End If
End Sub
Sub VERDER1()
Do
SHOWLETTER = UCase$(InputBox("Van welke Show kooilijsten versturen?" & vbCr & "De eerste letter", ""))
Select Case True
Case SHOWLETTER Like "[A-Z]"
Exit Do
Case Else
MsgBox "Moet één hoofdletter zijn."
End Select
Loop
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.