Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas

Attribute VB_Name = "ModuleMailer"
' (c) Andreas Motl <andreas.motl@ilo.de>, 2007-09-01

Option Explicit

Const showProfileChooser As Boolean = True
Const outlookProfileName As String = "x"
Const outlookProfilePass As String = ""

Dim mailer As Outlook.Application
Dim mailerAlreadyRunning As Boolean

Public Function mailerCheckRunning() As Boolean
    Dim tmp As Variant
    On Error Resume Next
    tmp = mailer.ActiveExplorer.WindowState
    If Err.Number = 0 Then mailerCheckRunning = True
    On Error GoTo 0
End Function

Public Function mailerStart()
    
    slog "creating mailer-object"
    Set mailer = New Outlook.Application
    DoEvents
    DoEvents
    
    mailerAlreadyRunning = mailerCheckRunning()
    
    If mailerAlreadyRunning Then
        slog "*not* logging on, using running mailer"
    Else
        If showProfileChooser Then
            slog "logging in (using Profile-Chooser), this may take some seconds!"
            mailer.Session.Logon , , 1
            DoEvents
            DoEvents
        Else
            slog "logging in (auto-selecting profie " & outlookProfileName & "), this may take some seconds!"
            mailer.Session.Logon outlookProfileName, outlookProfilePass, 0
        End If
    End If
    
End Function

Public Function mailerShutdown()
    
    slog "logging off"
    mailer.Session.Logoff
    
    If mailerAlreadyRunning Then
        slog "*not* quitting running mailer!"
    Else
        slog "closing active mail-explorer"
        mailer.ActiveExplorer.Close
        slog "quitting mailer"
        mailer.Quit
    End If

    slog "destroying mailer-object"
    Set mailer = Nothing

End Function
1	Attribute VB_Name = "ModuleMailer"
2	' (c) Andreas Motl <andreas.motl@ilo.de>, 2007-09-01
3
4	Option Explicit
5
6	Const showProfileChooser As Boolean = True
7	Const outlookProfileName As String = "x"
8	Const outlookProfilePass As String = ""
9
10	Dim mailer As Outlook.Application
11	Dim mailerAlreadyRunning As Boolean
12
13	Public Function mailerCheckRunning() As Boolean
14	Dim tmp As Variant
15	On Error Resume Next
16	tmp = mailer.ActiveExplorer.WindowState
17	If Err.Number = 0 Then mailerCheckRunning = True
18	On Error GoTo 0
19	End Function
20
21	Public Function mailerStart()
22
23	slog "creating mailer-object"
24	Set mailer = New Outlook.Application
25	DoEvents
26	DoEvents
27
28	mailerAlreadyRunning = mailerCheckRunning()
29
30	If mailerAlreadyRunning Then
31	slog "not logging on, using running mailer"
32	Else
33	If showProfileChooser Then
34	slog "logging in (using Profile-Chooser), this may take some seconds!"
35	mailer.Session.Logon , , 1
36	DoEvents
37	DoEvents
38	Else
39	slog "logging in (auto-selecting profie " & outlookProfileName & "), this may take some seconds!"
40	mailer.Session.Logon outlookProfileName, outlookProfilePass, 0
41	End If
42	End If
43
44	End Function
45
46	Public Function mailerShutdown()
47
48	slog "logging off"
49	mailer.Session.Logoff
50
51	If mailerAlreadyRunning Then
52	slog "not quitting running mailer!"
53	Else
54	slog "closing active mail-explorer"
55	mailer.ActiveExplorer.Close
56	slog "quitting mailer"
57	mailer.Quit
58	End If
59
60	slog "destroying mailer-object"
61	Set mailer = Nothing
62
63	End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26