--- joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas	2007/09/01 15:18:39	1.1
+++ joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMailer.bas	2007/09/05 11:44:50	1.4
@@ -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