Solved

Just get the selected mails subject into an excel file in colum A.

Posted on 2009-07-10
3
217 Views
Last Modified: 2012-05-07
Hi,

Just get the selected mails subject into an excel file in colum A.
When mails selected and run has to just get the mails subject to a file.

Regards
Sharath
0
Comment
Question by:bsharath
  • 2
3 Comments
 
LVL 50

Accepted Solution

by:
Dave Brett earned 500 total points
Comment Utility
Shrath,

This Outlook VBA dumps all the selected mail subjects to a csv file, oAppdump.csv

Did you need anything else on this?

Cheers
Dave

Sub DumpSter()

Dim objFSO, objTF

Dim oMess As MailItem

Set objFSO = CreateObject("scripting.filesystemobject")

Set objTF = objFSO.createtextfile("C:\oAppdump.csv")

For Each oMess In ActiveExplorer.Selection

objTF.writeline oMess.Subject

Next

objTF.Close

End Sub

Open in new window

0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Thanks Dave works perfect...
0
 
LVL 50

Expert Comment

by:Dave Brett
Comment Utility
thx for the grade Sharath :)
0

Featured Post

Complete Microsoft Windows PC® & Mac Backup

Backup and recovery solutions to protect all your PCs & Mac– on-premises or in remote locations. Acronis backs up entire PC or Mac with patented reliable disk imaging technology and you will be able to restore workstations to a new, dissimilar hardware in minutes.

Join & Write a Comment

Technology opened people to different means of presenting information, but PowerPoint remains to be above competition. Know why PPT still works today.
If you don't know how to downgrade, my instructions below should be helpful.
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

728 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

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now