RE: Contact Program

Sorry for the delay in getting back to you, meeting this morning and working
on this response for a while. LOL.

OK cool, I will change my macro security setting to Medium or lower;
hopefully I will be able To answer your question.
Currently the emails are setup by a rule. Emails come into 3 seperate
Inboxes depending on their source: "ERealty" Inbox, "Realtor.com" Inbox and
"Website" Inbox. This seems to be working, but we need a module that will
take each email (can do all Inboxes at once or seperately) and generate a
contact in their corresponding Contact folders (e.g. Emails from "ERealty"
Inbox create a contact in "ERealty" contact folder; "Realtor.com Inbox emails
create a contact in "Realtor.com" Contact folder, etc.)
But I think your question's more in regards to when contacts should be made,
correct? I think would probably be better if we could set these up to
generate contacts in a batch (that I can run once or twice a day) Could be
one Inbox at a time (or all Inboxes at same time, whichever is easier). I
know this may be a round-about way to do this but what I am trying to do is
this:

Goal: Get a csv file (from each source/Inbox) w/ full names and email
address from all emails that come into the Inbox.

To do this what I am thinking is to basically take all emails from each
source (e.g each Inbox), pull out their full name and email address from the
email, and create a contact from this, then I can export all contacts from a
specific contact folder to a csv file containing the full names and email
address of all emails that came into the Inbox. Then I can import this csv
list to another program.
I also notice that the program I am importing to will not overwrite a
contact so if the list of contacts contains the same contact the second time,
there will be duplicates . So I need to maybe once or twice a day, pull all
the names and email addresses from a specfiic Inbox, generate a csv file w/
these names and email address (via creating a Outlook contact first as
intermediate step), then move these contacts to a Archive folder (by source
name, e.g. ERealty, etc. to keep them sorted by source) Then the next time I
run the program, the contacts list only includes contacts that came in since
the last time I ran the program. Then there will be no duplicates of old data
when I Import to another program. Now I've probably thoroughly confused you.
LOL. Let me know if this didn't make sense.

Basically I just need a module to take emails from each Inbox and create
contacts from all emails currently in the Inbox. (I can manually archive
these and export them to a csv file if easier to do manually then in a
module;). What do you think? Thanks again for your assistance.

"Eric Legault [MVP - Outlook]" wrote:

> You need to change your macro security settings to Medium or lower to run
> macros.
>
> Do you want these Contacts created only when e-mails are received in your
> Inbox, or moved to those sub-folders? Or do you need to create them in one
> shot as a batch, running the batch once for every folder containing the
> e-mails?
>
> --
> Eric Legault - B.A, MCP, MCSD, Outlook MVP
> Try Picture Attachments Wizard for Outlook! http://tinyurl.com/ckytm
> Job: http://www.imaginets.com
> Blog: http://blogs.officezealot.com/legault/
>
>
> "Brent E" wrote:
>
> > Sounds Magnificent. I really appreciate your assitance, Eric. I am also
> > running 2003 and am curious. I've pasted these procedures into my
> > ThisOutlookSession module and restarted Outlook, but this won't seem to run
> > automatcially, what command should I use to launch this? I tried lookin in my
> > macros window but was blank. I also thought of running these procedures name
> > from the Immediate window in the VBE, but I get an error saying "Macros not
> > enabled in this project".
> >
> > Also, this is basically what I am trying to get to: a module that will do
> > the following:
> > I've got 3 Inboxes setup which get email from 3 different sources.
> > These Inboxes are named "ERealty", "Realtor.com" and "Website"
> > I need to create contacts from all emails in each Inbox and save these
> > contacts in corresponding Outlook contact folders, named similarly (e.g.
> > "ERealty", "Realtor.com" and "Website")
> > So we have Inboxes and Contact Folders w/ these names.
> > These Inboxes and Contact folders are already created and in place.
> > So I need to create a module that will automatically generate contacts from
> > each Inbox and save them in their proper Contact folder. ? I really
> > appreciate your assistance
> >
> > "Eric Legault [MVP - Outlook]" wrote:
> >
> > > You don't need to select the folders at all. If all you want is to create a
> > > new Contact from all incoming messages and save it in the default Contacts
> > > folder, you can do so by pasting this code into your ThisOutlookSession
> > > module in the Outlook VBA Editor:
> > >
> > > Option Explicit
> > > Dim WithEvents NewMailItems As Outlook.Items
> > >
> > > Private Sub Application_Startup()
> > > Set NewMailItems =
> > > Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
> > > End Sub
> > >
> > > Private Sub NewMailItems_ItemAdd(ByVal Item As Object)
> > > 'THIS WILL FIRE FOR EVERY NEW E-MAIL; YOU CAN USE THE
> > > 'Item OBJECT TO WORK WITH THE PROPERTIES OF THE E-MAIL MESSAGE
> > >
> > > Dim objContact As Outlook.ContactItem
> > > Dim objMsg As Outlook.MailItem
> > >
> > > If Item.Class <> olMail Then Exit Sub
> > >
> > > Set objContact = Application.CreateItem(olContactItem)
> > > Set objMsg = Item
> > >
> > > objContact.FullName = objMsg.SenderName
> > > objContact.Email1Address = objMsg.SenderEmailAddress
> > > objContact.Save
> > >
> > > Set objContact = Nothing
> > > Set objMsg = Nothing
> > > End Sub
> > >
> > > Note that the ItemAdd event is not guaranteed to fire if a large number of
> > > messages are delivered at once. Also, if you do not have Outlook 2003 a
> > > security warning will pop up when the code tries to access the
> > > SenderEmailAddress property. For ways to bypass this, see:
> > >
> > > Microsoft Outlook "Object Model Guard" Security Issues for Developers:
> > > http://www.outlookcode.com/d/sec.htm
> > >
> > > And for some great starting resources on Outlook programming, see:
> > >
> > > Visual Basic and VBA Coding in Microsoft Outlook:
> > > http://www.outlookcode.com/d/vb.htm
> > >
> > > --
> > > Eric Legault - B.A, MCP, MCSD, Outlook MVP
> > > Try Picture Attachments Wizard for Outlook! http://tinyurl.com/ckytm
> > > Job: http://www.imaginets.com
> > > Blog: http://blogs.officezealot.com/legault/
> > >
> > >
> > > "Brent E" wrote:
> > >
> > > > Good morning,
> > > >
> > > > I am really new to VBA for Outlook. I am trying to create a macro/module
> > > > that will:
> > > > Automatically select the contacts folder,
> > > > Select Inbox titled "Realtor.com"
> > > > Create a contact from each email that comes into this Inbox.
> > > > I am not sure what commands or syntax to use. Would this be a simple
> > > > program? Suggestions would be really appreciated. Thanks.
> > > >
> > > > Cordially,
.

Relevant Pages