Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Add-ins for Outlook (http://www.outlookbanter.com/add-ins-outlook/)
-   -   Recipients Objects (http://www.outlookbanter.com/add-ins-outlook/8502-recipients-objects.html)

David Cebrian March 16th 06 06:37 PM

Recipients Objects
 
Hello,

Anybody can help me with that problem.

I can not instanciate a variable of type MAPI.Recipients (CDO)
My code fails when I try to use the method Add.

The application returns me that the object do not exists.

Thanks,

My code inside a Form

Public SMScontactes As Outlook.Recipients

Dim ContactesSMS As MAPI.Recipients

Private Sub treuLlistaDis()

Dim i, k As Integer

Dim recipAux As Outlook.Recipient

Dim recipAct As Outlook.Recipient

Dim chivato As String

Try

For i = 1 To SMScontactes.Count

recipAct = SMScontactes.Item(i)

If Not SMScontactes.Item(i).AddressEntry.Members Is Nothing Then

For k = 1 To SMScontactes.Item(i).AddressEntry.Members.Count

recipAux =
SMScontactes.Add(SMScontactes.Item(i).AddressEntry .Members(k).Name)

recipAux.Resolve()

ContactesSMS.Add(recipAux.Name, recipAux.Address, , recipAux.EntryID)
'FAILS -----------------

Next k

recipAct.Delete()

End If

Next i

Catch ex As Exception

MsgBox("Error a TreureLlistaDis - " & ex.Message & " - " & chivato)

End Try

End Sub





Dmitry Streblechenko March 16th 06 10:05 PM

Recipients Objects
 
Do you mean you cannot create it using CreateObject? The only creatable
object in CDO 1.21 is MAPI.Session.
Recipients object can only be retrieved from Message.Recipients and
Session.AddressBook

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"David Cebrian" wrote in message
...
Hello,

Anybody can help me with that problem.

I can not instanciate a variable of type MAPI.Recipients (CDO)
My code fails when I try to use the method Add.

The application returns me that the object do not exists.

Thanks,

My code inside a Form

Public SMScontactes As Outlook.Recipients

Dim ContactesSMS As MAPI.Recipients

Private Sub treuLlistaDis()

Dim i, k As Integer

Dim recipAux As Outlook.Recipient

Dim recipAct As Outlook.Recipient

Dim chivato As String

Try

For i = 1 To SMScontactes.Count

recipAct = SMScontactes.Item(i)

If Not SMScontactes.Item(i).AddressEntry.Members Is Nothing Then

For k = 1 To SMScontactes.Item(i).AddressEntry.Members.Count

recipAux =
SMScontactes.Add(SMScontactes.Item(i).AddressEntry .Members(k).Name)

recipAux.Resolve()

ContactesSMS.Add(recipAux.Name, recipAux.Address, , recipAux.EntryID)
'FAILS -----------------

Next k

recipAct.Delete()

End If

Next i

Catch ex As Exception

MsgBox("Error a TreureLlistaDis - " & ex.Message & " - " & chivato)

End Try

End Sub








All times are GMT +1. The time now is 09:06 AM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com