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 |
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 |