- '---------------------------------------------------------------------------------------
- 'Cette procédure permet de vérifier si outlook est lancé, si elle ne l'est pas on la
- 'lance ! Bien sur on peut adapter le programme pour toute les applications !
- 'on peut également généraliser la procédure pour passer l'application et le chemin
- 'en paramètre, si ca vous dit, a vos clavier !!!!!
- '---------------------------------------------------------------------------------------
-
- Sub VerifOutlook()
- 'Vérifie la présence d'outloo, si le process n'est pas présent on lance Outlook.
- Dim p As New Process
-
- Try
- 'Vérification de l'existence du process (on le trouve dans le gestionnaire des taches ^^)
- If UBound(Diagnostics.Process.GetProcessesByName("OUTLOOK")) < 0 Then
- 'Si il n'est pas déjà lancé on le lance donc manuellement
- p.StartInfo.FileName = "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"
- 'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
- p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
- 'Démarrage du process
- p.Start()
- End If
- Catch err As Exception
- MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !")
- End Try
- End Sub
'---------------------------------------------------------------------------------------
'Cette procédure permet de vérifier si outlook est lancé, si elle ne l'est pas on la
'lance ! Bien sur on peut adapter le programme pour toute les applications !
'on peut également généraliser la procédure pour passer l'application et le chemin
'en paramètre, si ca vous dit, a vos clavier !!!!!
'---------------------------------------------------------------------------------------
Sub VerifOutlook()
'Vérifie la présence d'outloo, si le process n'est pas présent on lance Outlook.
Dim p As New Process
Try
'Vérification de l'existence du process (on le trouve dans le gestionnaire des taches ^^)
If UBound(Diagnostics.Process.GetProcessesByName("OUTLOOK")) < 0 Then
'Si il n'est pas déjà lancé on le lance donc manuellement
p.StartInfo.FileName = "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"
'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
'Démarrage du process
p.Start()
End If
Catch err As Exception
MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !")
End Try
End Sub