I have done some limited testing on reading address books and sending email using the redemption.dll.
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? BTW.. The redemption email send works just fine on this same PC.
Any help or information is appreciated
Thx,
George
***********************************
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 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? BTW.. The redemption email send works just fine on this same PC.
Any help or information is appreciated
Thx,
George
***********************************
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