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 = ""
'Const outlookProfileName As String = "Outlook"
'Const outlookProfileName As String = "Microsoft Exchange Server"
Const outlookProfilePass As String = ""

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