Extracting CC Email Address Using VBA

Status
Not open for further replies.
E

ejek6337

Hello,

I have the current code that works for extracting various information from

the MailItem Object:

If itm.Class = olMail Then

Set msg = itm

objWks.Cells(i + 1, 1) = msg.Subject

objWks.Cells(i + 1, 2) = msg.ReceivedTime

objWks.Cells(i + 1, 3) = msg.SenderName

objWks.Cells(i + 1, 4) = msg.SenderEmailAddress

objWks.Cells(i + 1, 5) = msg.Body

objWks.Cells(i + 1, 21) = msg.CC

objWks.Cells(i + 1, 22) = msg.To

It is dumpting the data into an excel spreadsheet. I am able to extract the

sender email address with "SenderEmailAddress". Is there any possible way to

extract all the CC Email Addresses as well? The "CC" above only extracts the

name(s) in the field, not the actual email address. If there is not way to

do it I don't want to waste my time researching further. Thank you for any

information you can provide.

Ed
 
M

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
See the Recipients collection, and check the type property of each recipient

object.

Best regards

Michael Bauer

Am Fri, 20 Nov 2009 12:14:01 -0800 schrieb ejek6337:


> Hello,

> I have the current code that works for extracting various information from
> the MailItem Object:

> If itm.Class = olMail Then
> Set msg = itm
> objWks.Cells(i + 1, 1) = msg.Subject
> objWks.Cells(i + 1, 2) = msg.ReceivedTime
> objWks.Cells(i + 1, 3) = msg.SenderName
> objWks.Cells(i + 1, 4) = msg.SenderEmailAddress
> objWks.Cells(i + 1, 5) = msg.Body
> objWks.Cells(i + 1, 21) = msg.CC
> objWks.Cells(i + 1, 22) = msg.To

> It is dumpting the data into an excel spreadsheet. I am able to extract

the
> sender email address with "SenderEmailAddress". Is there any possible way

to
> extract all the CC Email Addresses as well? The "CC" above only extracts

the
> name(s) in the field, not the actual email address. If there is not way

to
> do it I don't want to waste my time researching further. Thank you for

any
> information you can provide.

> Ed
 
E

ejek6337

Thanks a million. The recipients object worked like a charm. I knew I was

just overlooking something. Thanks for the direction.

Ed

"Michael Bauer " wrote:



> See the Recipients collection, and check the type property of each recipient
> object.

> > Best regards
> Michael Bauer

> > >

> Am Fri, 20 Nov 2009 12:14:01 -0800 schrieb ejek6337:
>
> > Hello,
> > I have the current code that works for extracting various information from
> > the MailItem Object:
> > If itm.Class = olMail Then
> > Set msg = itm
> > objWks.Cells(i + 1, 1) = msg.Subject
> > objWks.Cells(i + 1, 2) = msg.ReceivedTime
> > objWks.Cells(i + 1, 3) = msg.SenderName
> > objWks.Cells(i + 1, 4) = msg.SenderEmailAddress
> > objWks.Cells(i + 1, 5) = msg.Body
> > objWks.Cells(i + 1, 21) = msg.CC
> > objWks.Cells(i + 1, 22) = msg.To
> > It is dumpting the data into an excel spreadsheet. I am able to extract
> the
> > sender email address with "SenderEmailAddress". Is there any possible way
> to
> > extract all the CC Email Addresses as well? The "CC" above only extracts
> the
> > name(s) in the field, not the actual email address. If there is not way
> to
> > do it I don't want to waste my time researching further. Thank you for
> any
> > information you can provide.
> > Ed
> .
>
 
Status
Not open for further replies.
< encryption macro | how to add my custom items to "Change E-mail Account" dialog >
Similar threads
Thread starter Title Forum Replies Date
B Extracting email addresses from a folder - how to also get the name of the person the address is for? Using Outlook 5
Z Default VBA code for extracting data from email (Outlook) to Excel? Outlook VBA and Custom Forms 1
M Oh please read---> Extracting email web leads on to excel spread sheet Using Outlook 3
J Need Help Extracting Email Content into Excel Specifically the Attachment Name Using Outlook 3
D Outlook VBA error extracting property data from GetRules collection Outlook VBA and Custom Forms 10
O Extracting all mail addresses from all folders Using Outlook 10
M Extracting cell data from table Outlook VBA and Custom Forms 2
A Extracting only one recipient from Msgitem.To Outlook VBA and Custom Forms 7
V Extracting user-defined details from a public folder Outlook VBA and Custom Forms 2
D Extracting Location info from All Day Event in mailboxes into webpage Exchange Server Administration 3
K Extracting Calendar information from a OST file? Exchange Server Administration 5
Rupert Dragwater How to permanently remove an email address Using Outlook 9
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
F Want to add second email to Outlook for business use Using Outlook 3
kburrows Outlook Email Body Text Disappears/Overlaps, Folders Switch Around when You Hover, Excel Opens Randomly and Runs in the Background - Profile Corrupt? Using Outlook 0
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
A Outlook 2019 Help with forwarding email without mentioning the previous email sender. Outlook VBA and Custom Forms 0
J Macro to send email as alias Outlook VBA and Custom Forms 0
M Shift Delete doesn't delete email from server Using Outlook 4
K Incorporate selection from combobox into body of email Outlook VBA and Custom Forms 0
L Why are some email automatically going to "archive" Using Outlook 2
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
B Outlook 2019 Custom Email form - Edit default email form Outlook VBA and Custom Forms 6
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
T Problem when requesting to view an email in a browser Using Outlook 0
J Outlook 365 Forward Email Subject to my inbox when new email arrive in shared inbox Using Outlook 0
HarvMan Archive Email Manually Using Outlook 1
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
S New Email "From" box stopped working Using Outlook 0
Rupert Dragwater Duplicate email in Folder Using Outlook 8
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
W Outlook 365 I am getting the "Either there is no default mail client" error when I try to send an email on excel Office 365 Using Outlook 1
MattC Changing the font of an email with VBA Outlook VBA and Custom Forms 0
L Specific Incoming Email Address Immediately Deleted Using Outlook 2
Witzker Outlook 2019 Macro to send an Email Template from User Defined Contact Form Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Edit contact from email does not open the user defined contactform Using Outlook 3
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
R Roadrunner Email Settings | Contact Roadrunner Customer Support Outlook VBA and Custom Forms 1
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
Albert McCann Outlook 2021 Outlook Display of HTML Email from two senders is glitchy Using Outlook 0
A How Do I Setup My Optonline.Net Email Account? Outlook VBA and Custom Forms 1
H Preventing the 'email address fetch from Exchange' crashing email reading code Exchange Server Administration 0
D multiple email accounts - why do I have to choose the "from" account address?? Using Outlook 2
Wotme create email only data file Using Outlook 1
F Outlook 2016 Email with attachments not being received Using Outlook 3
J Outlook 2019 Regex email addresses from body Outlook VBA and Custom Forms 6
D Prompt to prefix subject line whenever sending an email Outlook VBA and Custom Forms 3
J Quick steps delete original email and move reply/sent email to folder Using Outlook 2
C Wishlist Extract or scan new email addresses from out of office replies. Leads from OOO replies Using Outlook 1

Similar threads

Top