/[cvs]/joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMain.bas
ViewVC logotype

Diff of /joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleMain.bas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Sat Sep 1 15:18:39 2007 UTC revision 1.3 by joko, Sat Sep 1 15:22:49 2007 UTC
# Line 47  Public Sub Main() Line 47  Public Sub Main()
47              MsgBox _              MsgBox _
48                  "Problem: Could not open MAPI folder '" & MapiFolderPath & "'." & vbCrLf & _                  "Problem: Could not open MAPI folder '" & MapiFolderPath & "'." & vbCrLf & _
49                  "Please configure properly in port settings dialog or registry:" & vbCrLf & vbCrLf & _                  "Please configure properly in port settings dialog or registry:" & vbCrLf & vbCrLf & _
50                  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Monitors\Winprint Hylafax\Ports\" & hfax_port & "\MapiFolderPath", _                  "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\Winprint Hylafax\Ports\" & hfax_port & "\MapiFolderPath", _
51                  vbOKOnly, "ERROR"                  vbOKOnly, "ERROR"
52              End              End
53          End If          End If
# Line 145  Private Function readMapiFolderToArray(m Line 145  Private Function readMapiFolderToArray(m
145  End Function  End Function
146    
147  Private Function getRegistrySetting(portName As String, subKey As String) As String  Private Function getRegistrySetting(portName As String, subKey As String) As String
148      getRegistrySetting = regQuery_A_Key(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\Print\Monitors\Winprint Hylafax\Ports\" & portName, subKey)      getRegistrySetting = regQuery_A_Key(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Print\Monitors\Winprint Hylafax\Ports\" & portName, subKey)
149  End Function  End Function
150    
151  Private Function writeAddressbook(ByRef entries As Variant, abFormat As String, abPath As String, ByRef count As Integer) As Boolean  Private Function writeAddressbook(ByRef entries As Variant, abFormat As String, abPath As String, ByRef count As Integer) As Boolean
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed