--- joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas	2007/09/01 15:18:39	1.1
+++ joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas	2007/09/01 17:11:21	1.3
@@ -4,10 +4,12 @@
 Option Explicit
 
 Const showProfileChooser As Boolean = True
-Const outlookProfileName As String = "x"
+Const outlookProfileName As String = ""
+'Const outlookProfileName As String = "Outlook"
+'Const outlookProfileName As String = "Microsoft Exchange Server"
 Const outlookProfilePass As String = ""
 
-Dim mailer As Outlook.Application
+Public mailer As Outlook.Application
 Dim mailerAlreadyRunning As Boolean
 
 Public Function mailerCheckRunning() As Boolean
@@ -37,7 +39,7 @@
             DoEvents
         Else
             slog "logging in (auto-selecting profie " & outlookProfileName & "), this may take some seconds!"
-            mailer.Session.Logon outlookProfileName, outlookProfilePass, 0
+            mailer.Session.Logon outlookProfileName, outlookProfilePass, 1
         End If
     End If