G
George Sambataro
Hi.
I have done some limited testing on reading address books and sending email
using the redemption.dll (purchased/registered)
I have run into a problem on a Windows 2000 machine running Outlook 2000.
When I execute the code below. The contact folders are listed with a ZERO
(0) count even though there are contact entries. and then after about 1
second the program abends with the following general error message. "
test.exe exe has generated error and will be closed by Windows. You will
need to restart the program. An error log is being created".
Has anyone heard of this before? I have send Dmitry (author) several notes
but he has not responded yet.
Thanks,
George
PS. The email send code works OK..
Dim j As Long, c As Long, i As Long
Dim rt() As String
Dim ra() As String
' types are SMTP and MAPIPDL
Dim rals As New Redemption.AddressLists
Dim raes As Redemption.AddressEntries
With rals
For i = 1 To .Count
Set raes = .Item(i).AddressEntries
ablist.AddItem rals.Item(i).Name & " - " & raes.Count
Next i
End With
Set rals = Nothing
Set raes = Nothing
I have done some limited testing on reading address books and sending email
using the redemption.dll (purchased/registered)
I have run into a problem on a Windows 2000 machine running Outlook 2000.
When I execute the code below. The contact folders are listed with a ZERO
(0) count even though there are contact entries. and then after about 1
second the program abends with the following general error message. "
test.exe exe has generated error and will be closed by Windows. You will
need to restart the program. An error log is being created".
Has anyone heard of this before? I have send Dmitry (author) several notes
but he has not responded yet.
Thanks,
George
PS. The email send code works OK..
Dim j As Long, c As Long, i As Long
Dim rt() As String
Dim ra() As String
' types are SMTP and MAPIPDL
Dim rals As New Redemption.AddressLists
Dim raes As Redemption.AddressEntries
With rals
For i = 1 To .Count
Set raes = .Item(i).AddressEntries
ablist.AddItem rals.Item(i).Name & " - " & raes.Count
Next i
End With
Set rals = Nothing
Set raes = Nothing