Only 250 contacts read

  • Thread starter Thread starter Marco B
  • Start date Start date
M

Marco B

Hello,
I looked around in several forums without to find anything about what
I'm trying to figure out since this morning. My problem ist hat I
would like to print labels via VB code from an Outlook.Selection of
Contacts. Everything works fine until this Outlook Contacts Selection
reaches the Number 250. For the rest of the selection Outlook
Selection returns an empty or invalid Contact item which results in an
Error (Err Number 13) like Type mismatch (I asume there is no Contact
Item really coming from this Selection.

Here some code:

Function generateDok(pcWordTemplate As String)
On Error GoTo ErrorHandler

Dim loFolder As MAPIFolder
Dim loItm As Object
Dim loExplorer As Explorer
Dim loSelection As Outlook.Selection
***

If Not m_olApp.ActiveExplorer Is Nothing Then
'Set a reference to the currently selected folder
Set loExplorer = m_olApp.ActiveExplorer
Set loFolder = loExplorer.CurrentFolder

***
Set loSelection = loExplorer.Selection

'Open Word invisibly
Set loAppWord = GetObject(, "Word.Application")

***
'Open a new letter based on the selected template
loAppWord.Documents.Add (lcWordTemplate)

For Each loItm In loSelection
If loItm.Class = olContact Then ‘ the 250th element is a
Contact object but loItm seems to contain nothing ??
'------------------------------------------------------------------------------
'Here on the 250th element the call raises the Error
loAppWord.Selection.TypeText (doAdresse(loItm,
pcWordTemplate))
'------------------------------------------------------------------------------
'Check row number before moving to the next cell
lvRow = loAppWord.Selection.Information(wdEndOfRangeRowNumber)
loAppWord.Selection.MoveRight Unit:=wdCell
'Check row number after moving to the next cell
lvNewRow =
loAppWord.Selection.Information(wdEndOfRangeRowNumber)
'If the cursor is still on the same row, go to the next
cell
If (lvRow = lvNewRow) Then
loAppWord.Selection.MoveRight Unit:=wdCell
End If
End If
Next

***

End If

***

ErrorHandlerExit:
Exit Function

ErrorHandler:

***
End Function

It does not depend if the contact folder is locally or in the public
folder. In both cases the application stops with the error. Has anyone
had such a behavior before and how can I resolve it?
 
Versions used:
Microsoft Office Outlook 2003
Microsoft Office Word 2003
Microsoft Windows XP Version 2002 Service Pack 1

This may help? Cheerios Marco
 
Back
Top