Görev Çubuğunda Outlook'un Açık Olup Olmadığını Kontrol Etmek

[programer]

Arkadaşlar merhaba şirkette excelde yaptığım formu kullanıcılar e-mail olarak bana gönderiyorlar. Yanlız bazen problemler oluşuyor. Outlook açık olmadığı için mail gelmiyor kullanıcı ne zaman Outlook'gunu açarsa e-mail bana o zaman geliyor. Kullanıcı formu gönder dediği zaman Outlook görev çubuğunda açık değilse açsın eğer Outlook açıksa normal işlemine devam etsin. Bunu nasıl yapabiliriz.

 

[veyselemre]

Kodlar Haluk Beyin forumdaki processlist_132 isimli dosyasından alınmıştır.

Private Sub outlookKapaliysaAc()
Const strComputerName As String = "."
Const strNameSpace As String = "root\cimv2"
Const strClassName As String = "win32_process "

Dim Prog As Object
Dim objWMIService As Object
Dim RunningProcesses As Object

    On Error Resume Next
    If Err.Number <> 0 Then
        MsgBox "WMI y&#252;klenmemi&#351;! Programdan &#231;&#305;k&#305;lacak...", vbExclamation, _
               "Windows Management Instrumentation"
        Exit Sub
        On Error GoTo 0
    End If
    Set objWMIService = GetObject("winmgmts:\\" & strComputerName & _
                                  "\" & strNameSpace)
    Set RunningProcesses = objWMIService.ExecQuery("Select * from " & strClassName)

    For Each Prog In RunningProcesses
        If Prog.Name = "OUTLOOK.EXE" Then GoTo cik
    Next
    Application.ActivateMicrosoftApp xlMicrosoftMail
cik:
    Set objWMIService = Nothing
    Set RunningProcesses = Nothing
End Sub

Kontrol işlemini yapmaksızın açsanızda olabilir.

Sub ootlookAc()
    Application.ActivateMicrosoftApp xlMicrosoftMail
End Sub

Ayrıca forumda cdo ile mail gönderme ile ilgili örnekler vardı. Onu kullanırsanız, outlooktan daha kullanışlı.

 

[programer]

Kodlar Haluk Beyin forumdaki processlist_132 isimli dosyasından alınmıştır.

Yardımınız için teşekkür ederim