Solved

Autofill Field's In Outlook 2007 New Contacts

Posted on 2009-04-09
3
382 Views
Last Modified: 2012-05-06
I'm using Microsoft Outlook for the first time for work, and I'm adding in a lot of contacts from my department. Is there a way to make it so it gives me an auto-complete option for a company I've listed before? Not to mention the other fields?

Also, can I make it automatically create contacts for anyone who sends me an email? Or anyone I email to?

Thanks
0
Comment
Question by:laneybeal
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 125 total points
ID: 24112327
Hi, laneybeal.

Outlook doesn't have an autocomplete for filling in contacts, but it does have an option for creating a new contact for another person from the same company.  Select a contact, then click Actions > New Contact from Same Company.  Outlook will create a new contact with all the company details filled in.

Outlook does not have the ability to automatically create contacts for messages you receive.  However, you can add that capability with a simple bit of scripting.  I can help with that if you're interested.
0
 
LVL 2

Author Comment

by:laneybeal
ID: 24112546
I'd love for some information on how to do that.

Thank you.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 24112836
Ok, here the code that does this.  Follow these instructions to use it.

1.  Start Outlook
2.  Click Tools > Macro > Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7.  Edit the code as needed.  I included comments wherever something needs to or can change
8.  Click the diskette icon on the toolbar to save the changes
9.  Close the VB Editor
10. Create a rule that fires for all messages
11. Set the rule's action to "run a script" and select this script as the one to run.
Sub AutoAddContact(Item As MailItem)
    Dim objContacts As MAPIFolder, _
        objContact As ContactItem, _
        objSelected As Selection, _
        objItem As Object, _
        objReply As MailItem, _
        objRecip As Recipient, _
        strAddress As String
    Set objContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContact = objContacts.Items.Find("[FullName] = " & Chr(34) & Item.SenderName & Chr(34))
    If TypeName(objContact) = "Nothing" Then
        Set objContact = Application.CreateItem(olContactItem)
        Set objReply = Item.Reply
        Set objRecip = objReply.Recipients.Item(1)
        If Err = 0 Then
            strAddress = objRecip.Address
            If strAddress = "" Then
                strAddress = objRecip.Name
            End If
        End If
        With objContact
            .Email1Address = strAddress
            .FullName = Item.SenderName
            .Body = "Record created automatically on " & Date & " at " & Time & " by BlueDevilFan's script."
            .Save
        End With
    End If
    Set objContact = Nothing
    Set objContacts = Nothing
    Set objSelected = Nothing
    Set objItem = Nothing
    Set objReply = Nothing
    Set objRecip = Nothing
End Sub

Open in new window

0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Large Outlook files lead to various unwanted errors and corruption issues. Furthermore, large outlook files can also make Outlook take longer to start-up, search, navigate, and shut-down. So, In this article, i will discuss a method to make your Out…
How to resolve IMCEAEX NDRs in Exchange or Exchange Online related to invalid X500 addresses.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question