How to extract email addresses from TO or CC line of a particular email

Status
Not open for further replies.
I

Ivan

Hello

I'm using Outlook 2007 on Exchange and I'm having an email with a huge

amount of recipiens in the To and Co lines and I woul like to collect these

addresses into one of the subfolder of my Contacts folder.

OK, I can copy one email address at a time if I select only one address,

then pick out the "Add to Outlook Contacts" command from the mouse right

click menu. Evidently is this procedure more than retardatory.

If I select two or more addresses from any of both lines, then there isn't

any such "Add to Outlook Contacts" command on the content menu and I can

only copy the selected addresses to clipboard. As I can see nad understand

only the display name parts of the addresses are copied to cipboard and

these data are without real address not useful for me.

I'm sure that it should be some way to do this with VBA code. Could anybody

help me with a piece of code or a hint?

Ivan
 
K

Ken Slovak - [MVP - Outlook]

Get the Recipients collection of the mail item and iterate that collection.

You can harvest whatever information you want from each Recipient (whatever

is available on that object).

When adding contacts using code you will not get any warning dialogs if you

try to add a duplicate contact. So any code must search in the Contacts to

see if such a contact already exists. How you determine a duplicate is up to

you. Names can be slightly different (Richard, Rich, Ricky) and so on, so

you have to account for that.

It's somewhat more complicated than it sounds like it would be.

"Ivan" <ivan@nekje.si> wrote in message

news:%23oaSFxCuJHA.4632@TK2MSFTNGP06.phx.gbl...
> Hello

> I'm using Outlook 2007 on Exchange and I'm having an email with a huge
> amount of recipiens in the To and Co lines and I woul like to collect
> these addresses into one of the subfolder of my Contacts folder.

> OK, I can copy one email address at a time if I select only one address,
> then pick out the "Add to Outlook Contacts" command from the mouse right
> click menu. Evidently is this procedure more than retardatory.

> If I select two or more addresses from any of both lines, then there
> isn't any such "Add to Outlook Contacts" command on the content menu and I
> can only copy the selected addresses to clipboard. As I can see nad
> understand only the display name parts of the addresses are copied to
> cipboard and these data are without real address not useful for me.

> I'm sure that it should be some way to do this with VBA code. Could
> anybody help me with a piece of code or a hint?

> Ivan

>
 
I

Ivan

Thank you Ken,

I play with some VBA code and below is a program for extracting the display

names and the addresses from all the emails od the specific outlook folder.

The results are in the Immediate window of MVB and an user can easily change

that part of the code:

Sub ExtractRecipientsFromEmail()

Dim OlApp As Outlook.Application

Dim MailObject As Object

Dim RecipientObject As Object

Dim Email As String

Dim NS As NameSpace

Dim Folder As MAPIFolder

Set OlApp = CreateObject("Outlook.Application")

Set NS = ThisOutlookSession.Session

Set Folder = NS.PickFolder

For Each MailObject In Folder.Items

If MailObject.Class = olMail Then

For Each RecipientObject In MailObject.Recipients

If RecipientObject.Address Like "*@*" Then

Debug.Print RecipientObject.Name, RecipientObject.Address

End If

Next

End If

Next

Set OlApp = Nothing

Set MailObject = Nothing

Set RecipientObject = Nothing

End Sub

Ivan
<kenslovak@mvps.org> wrote in message

news:ermpdPFuJHA.5172@TK2MSFTNGP04.phx.gbl...
> Get the Recipients collection of the mail item and iterate that
> collection. You can harvest whatever information you want from each
> Recipient (whatever is available on that object).

> When adding contacts using code you will not get any warning dialogs if
> you try to add a duplicate contact. So any code must search in the
> Contacts to see if such a contact already exists. How you determine a
> duplicate is up to you. Names can be slightly different (Richard, Rich,
> Ricky) and so on, so you have to account for that.

> It's somewhat more complicated than it sounds like it would be.

> >

>

> "Ivan" <ivan@nekje.si> wrote in message
> news:%23oaSFxCuJHA.4632@TK2MSFTNGP06.phx.gbl...
> > Hello
>

>> I'm using Outlook 2007 on Exchange and I'm having an email with a huge
> > amount of recipiens in the To and Co lines and I woul like to collect
> > these addresses into one of the subfolder of my Contacts folder.
>

>> OK, I can copy one email address at a time if I select only one address,
> > then pick out the "Add to Outlook Contacts" command from the mouse right
> > click menu. Evidently is this procedure more than retardatory.
>

>> If I select two or more addresses from any of both lines, then there
> > isn't any such "Add to Outlook Contacts" command on the content menu and
> > I can only copy the selected addresses to clipboard. As I can see nad
> > understand only the display name parts of the addresses are copied to
> > cipboard and these data are without real address not useful for me.
>

>> I'm sure that it should be some way to do this with VBA code. Could
> > anybody help me with a piece of code or a hint?
>

>> Ivan
>

>
>>

>
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
D Extract email addresses from inbox in a batch and move them into "bcc" for a mass email campaign Using Outlook 1
M Extract all links from Outlook email, send to Excel Using Outlook 2
K Extract email address from body and auto-reply outlook Using Outlook 1
K Extract email to excel from a specific sender Outlook VBA and Custom Forms 3
O VBA to extract email (fields and body) to Excel Outlook VBA and Custom Forms 14
B Extract Dates for Appointment Item in Body of email Outlook VBA and Custom Forms 10
K extract certain text from an Outlook Email Message Outlook VBA and Custom Forms 2
H Extract emails from Outlokk 2007 email body Using Outlook 0
E I am trying to extract the email adress's i have in outlook. These are not saved 'contacts' these are ones from auto fill. When i open up an email, an Using Outlook 1
R Saving Outlook Email As Text File Extract Outlook VBA and Custom Forms 2
N Extract Outlook emails to excel Outlook VBA and Custom Forms 2
T Extract Data From Outlook Tasks Using Outlook 0
T Extract Data From Outlook Tasks Using Outlook 0
V extract users of a particular department Outlook VBA and Custom Forms 1
J Outlook 2013 Extract Flag Completed dates to Excel Macro Outlook VBA and Custom Forms 16
S How to extract mail items from multiple folders and shared mailboxes? Outlook VBA and Custom Forms 0
R Trying to extract information between two symbols from outlook subject Using Outlook 2
P Recover / Extract Rules from standalone PST file creating RWZ file Using Outlook 2
D Need to extract a line from a word attachment, and add it to the subject line Outlook VBA and Custom Forms 3
E Extract excel files from outlook Outlook VBA and Custom Forms 2
D VBA Script to extract text matching specific criteria Outlook VBA and Custom Forms 1
M Extract text in existing message body for use in newmail items Using Outlook 17
M HELP--Extract Data from 2003 outlook transfer to excel spreadsheet Using Outlook 1
M VBA Code to extract data from an Outlook Form Using Outlook 0
M Extract attachments with a script Using Outlook 0
M HELP - Can't open outlook... How can I extract my Emails that I had in folders Using Outlook 3
K Extract Global Address List Using Outlook 1
L How to extract table format of Task Item if its body contains formatted table. Exchange Server Administration 1
M Extract, zip and replace attachement in each message of a pst file Using Outlook 0
N Programming to extract automatically extract attachments Outlook VBA and Custom Forms 3
S How to extract outlook calendar data. Outlook VBA and Custom Forms 3
? outlook attachment Extract File ??? Outlook VBA and Custom Forms 1
D Extract Data from OST File Using Outlook 2
N How to extract date and time stamp from messsages Outlook VBA and Custom Forms 6
V Extract Subject,Sent From, Message from mailbox to Excel Outlook VBA and Custom Forms 5
S Automatically extract attachments? Outlook VBA and Custom Forms 1
D Sending email from Office 365 alias in Outlook Using Outlook 4
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 2
S Body text of Email from invite date/time Outlook VBA and Custom Forms 8
R Outlook 2010 How do you export 2 email Accounts' 2010 Inbox Files to new computer (2019)? Using Outlook 1
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
L Outlook saved email templates Using Outlook 1
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
T How can you include Junk Email in Search Results like you can include Deleted Items? Using Outlook 3
B Extracting email addresses from a folder - how to also get the name of the person the address is for? Using Outlook 5
W Replyin to the reply-to email address Outlook VBA and Custom Forms 0
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
B Outlook 2003 email sending & receiving suddenly stopped working Using Outlook 3
Similar threads


















































Top