Adding new entries to AddressList.AddressEntries...



  • 1. =?Utf-8?Q?Auto-Archiving_of_employee=C2=B4s_ema?= =?Utf-8?Q?ils_-_solution_needed?=
    Hello, we store all emails of our projects in our Company in public folders (one for each project, about 80 per year). Problem: If an employee sends or receives an email, the mail first is stored in the mailbox of the employee. The employee has to move the mail by himself manually. Idea: # Sending emails: - employee sends an email - A Window opens, where the employee can select the public folder - the email moves automatically to the public folder # Receiving emails: - employee receives an email (status unread) - when it becomes marked at "read" a Window opens, where the employee can select the public folder - the email moves automatically to the public folder Question: I do not know, what kind of solution can realize the idea ... Who can help me? Thanks, Uli Systems: Current Versions of MS Exchange & MS Outlook, all updates/hotfixes/aso. (Server&Clients)
  • 2. Detect if outlook is running with RPC-Http
    Dear Sirs, How may I detect programmatically if the running outlook is connected to the exchange through RPC-HTTP? Regards, Yahya
  • 3. outlook 2007
    to enable the instant search i'been asked to download an update but nothing happen,apparently the program do not recognize ,part of the program needed for the download. also when i click on help a message appeared sain that the action has been cancelled due to restriction on this computer and suggest to contact my sistem amministrator. i use my home computer and i am the administrator,can anibody tell me how can i solve this problem and why this is happening

Adding new entries to AddressList.AddressEntries...

Postby Heinz-Josef Bomanns » Sun, 06 Feb 2005 17:42:50 GMT

Hi again,

i have a form with a list displaying addresses that i read via OOM,
"NameSpace.AddressLists(x)". Works well so far. I now want to add a
new address entry to one of the AddressLists. I've learned that it's
not possible via "AdressList.AddressEntries.Add", so i've tried to get
a pointer to the underlying contacts folder via




This will fail 'cause the "ID" is no "EntryID" or "StoreID".
"AddressList.Parent" points to "AddressLists" instead to the folder
from which the entries are selected and thus also isn't of much help. 

Question is now: How do i get a pointer to the appropiated contacts
folder to add a new entry directly? Or do i have to dig deeper into
CDO for a solution? Thanks for any hint...


So long...

Re: Adding new entries to AddressList.AddressEntries...

Postby Ken Slovak » Wed, 09 Feb 2005 00:00:44 GMT

Get AddressList.ID, compare it with Contacts.EntryID. You will see an 
interesting pattern where the contacts folder ID is embedded within the ID 
for the AddressList.

  Dim strID As String
  Dim oAL As Outlook.AddressList
  Dim oFolder As Outlook.MAPIFolder

  Set oAL = Application.Session.AddressLists("Contacts")
  Set oFolder = Application.Session.GetDefaultFolder(olFolderContacts)
  Debug.Print oFolder.EntryID
  strID = oAL.ID
  Debug.Print Mid(strID, 89, Len(strID) - 89)

Ken Slovak
[MVP - Outlook]
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options

Re: Adding new entries to AddressList.AddressEntries...

Postby Heinz-Josef Bomanns » Tue, 15 Feb 2005 03:28:51 GMT

Hi Ken,

Thanks for the hint, will have a further look at this tomorrow -
Outlook is full of surprises ;)


So long...

Similar Threads:

1.How to find that AddressEntry belongs to which AddressList using CDO

Do you have the AddressEntries collection the AddressEntry came from?
If you do it's easy. Just use AddressEntries.Parent and that's the
name of the AddressList.

If you don't have that you will have to use  a more brute force method
of checking each AddressList.AddressEntries collection to see if the
AddressEntry is a member of that collection.

"Mita Garg" < XXXX@XXXXX.COM > wrote in message
news: XXXX@XXXXX.COM ...
> Hi All,
> I have a Cdo AddressEntry Object. How can I find that this
> AdddressEntry belongs to which AddressList i.e if GAL, Contacts, All
> Users, All Contacts or whatever it is.
> If possible, can you can you send me an example
> Private Sub Test (objAddressEntry as MAPI.AddressEntry)
> End Sub
> Any help will be appreciated.
> Tks Mita

2.Outlook 2002: can't add new contacts, or new calendar entries


I've been struggling to get Outlook 2002 to add new 
contacts.  They are created, but the name won't appear.

Also when I try to add an event to the calendar, nothing 

I have had these problems since Outlook 2000, which was 
the main reason I upgraded to Office XP Pro.  But it 
hasn't solved the problem.

I also find I can't get the auto archive to work 
properly, it often stops.  I can't manually drag/move 
older emails to the archive folders, only newer ones.

I've run the SCANPST program a few times, no errors.  

I've been trying to reduce the size of the .PST by 
archiving and deleting files.  It is still over 700,000kb.

Your help is much appreciated,


Phil H 

3.Adding speed dial entry blanks names of previously added entries

Can add first speed dial entry no problem.  When I go back in to add a second 
the "Name" field of the first one added is blank.  If I continue to add a 
second name and click OK, then the name field of the first is blanked out.  
This is bad primarily because when select from the menu Actions/Call 
Contact/Speed Dial the list displayed has no Contact Name displayed (only 
phone number).  This is bad.

4.Which way should I add an AddressEntry?

how do I add a ContactItem to a specific AddressList?
I have populate a ListBox with user's Address Book.
User will select the specific Address Book and an AddressEntry will be added
into that AddressList.

So do I add the entry like this:
    AddressList = oNs.AddressLists.Item(UserSelectedIndex)
    myentry = AddressList.AddressEntries.Add("SMTP", "testtest",
(If I add it this way, I do not have access to other properties such as
CompanyName, Birthday etc etc)

Or like this:
    sCtact  = oApp.CreateItem(Outlook.OlItemType.olContactItem)
    sCtact.FullName = "Test 123"
    sCtact.CompanyName = "His Company Name"
    sCtact.Birthday= "His birthday"
    sCtact.Email1Address =  XXXX@XXXXX.COM 
(If I add it this way, it will not be added to user's specified address


5.Adding a public folder with contacts to multiple users addresslist


We have just transfered a lot of contacts to an exchange public folder. Each 
user are now able to add this folder to their Outlook Address Book lists. So 
far doing this by right clicking the folder and selecting it for an Outlook 
Address Book.

Are there any way to automate the addition of this public contacts folder to 
every users Outlook Address Book settings? ( both current and newly created 
users) Either with some VBA in Outlook, registry modification or maybe some 
other kind of script.

Best regards

Johnn Nekman

6. Adding contacts/addresslists and setting permissions

7. Creating new AddressLists with VBA

8. Addresslist disapperaed after moving to new machine



Who is online

Users browsing this forum: No registered users and 16 guest