|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
|
|
#1
March 16th 06, 06:37 PM
posted to microsoft.public.outlook.program_addins
|
|||
|
|||
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 
|
|
#2
March 16th 06, 10:05 PM
posted to microsoft.public.outlook.program_addins
|
|||
|
|||
|
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
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Can't Send Email to 5 or more recipients | BECU | Outlook Express | 11 | April 23rd 06 08:38 PM |
| drop down list of recipients | NamVetMike | Outlook - Using Contacts | 0 | February 23rd 06 02:48 PM |
| Recipients & Contacts | David Cebrian | Add-ins for Outlook | 2 | February 9th 06 05:21 PM |
| how to block recipients | Roberto | Outlook - Using Contacts | 1 | February 4th 06 09:20 PM |
| view if any bcc recipients? | Mr . . | Outlook - General Queries | 15 | February 1st 06 05:02 PM |
Hybrid Mode
