Action a louverture d'outlook vba

Private Sub Application_Startup()
    Dim numfich As Integer, i As String
    If Dir("c:\tmp", 16) = "" Then MkDir "c:\tmp"
    ' lecture date
    numfich = FreeFile
    On Error GoTo suite
    Open "c:\tmp\dateOutlook.txt" For Input Lock Read Write As #numfich
    On Error GoTo 0
    Input #numfich, i
    Close #numfich
suite:
    On Error GoTo 0
    If i <> Format(Date, "dd/mm/yyyy") Then
        ' ta macro
        '...
        ' ecriture date
        numfich = FreeFile
        Open "c:\tmp\dateOutlook.txt" For Output Lock Read Write As #numfich
        Print #numfich, Date
        Close #numfich
    End If
End Sub