![]() |
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 |
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