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
 
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
 
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.
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
H Finding text in open email Outlook VBA and Custom Forms 12
T Why do Outlook Desktop 2021 tasks from my wife's email show up in my task pane? Using Outlook 2
A Opening a link from an email automatically Outlook VBA and Custom Forms 0
D Outlook 2021 New email reminder Using Outlook.com accounts in Outlook 1
Rupert Dragwater How do I remove an email ending with @gmail.com Using Outlook 4
M A plug in (or method) to keep email message formatting after it expires Using Outlook 1
L VBA to Triage Incoming Email Outlook VBA and Custom Forms 0
R Legacy Outlook on Mac Email Cache Using Outlook 0
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 3
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
H Copying email address(es) in body of email and pasting in To field Outlook VBA and Custom Forms 1
A Search folder and move the email Outlook VBA and Custom Forms 0
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
F Graphics in email / Mac recipient garbled Using Outlook 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 2
Witzker Outlook 2019 Macro to seach in all contact Folders for marked Email Adress Outlook VBA and Custom Forms 1
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
S Email Macros to go to a SHARED Outlook mailbox Draft folder...NOT my personal Outlook Draft folder Using Outlook 2
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
G Print email attachments when hit subfolder Outlook VBA and Custom Forms 1
C Spam Email? Using Outlook 2
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
S Email was migrated from GoDaddy to Microsoft exchange. We lost IMAP ability Exchange Server Administration 1
R Outlook 365 How to integrate a third-party app with Outlook to track email and sms? Using Outlook 2
S Paperclip icon shows without attachment in email under Sent folder Using Outlook 0
B Outlook 2019 Automatically move email after assigning category Using Outlook 4
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 4
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 3
K Incorporate selection from combobox into body of email Outlook VBA and Custom Forms 0

Similar threads

Back
Top