--- joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas	2007/09/01 15:22:49	1.2
+++ joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas	2007/09/01 17:11:21	1.3
@@ -4,7 +4,9 @@
 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 = ""
 
 Public mailer As Outlook.Application
@@ -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