Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook from Excel
I remember seeing the code for this before, but i can't seem to find it
any suggestions would be great. I need to pull all emails that contain a certain word or from a certai folder and put them onto a spreadsheet. should be pretty simple for you smart guys, but i have no idea where t begin. thanks -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook from Excel
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook from Excel
Scott
http://www.dicks-clicks.com/excel/olRetrieving.htm -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com "scottnshelly " wrote in message ... I remember seeing the code for this before, but i can't seem to find it. any suggestions would be great. I need to pull all emails that contain a certain word or from a certain folder and put them onto a spreadsheet. should be pretty simple for you smart guys, but i have no idea where to begin. thanks. --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook from Excel
Is it possible to retrieve all e-mails from a folder rather than al
e-mails that contain a word -- Message posted from http://www.ExcelForum.com |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook from Excel
Hi Scott,
Is it possible to retrieve all e-mails from a folder rather than all e-mails that contain a word? Yes. Here's some modified code that list the subject, from name, and received time of all emails in a folder named "test": Sub GetFromInbox() Dim olApp As Outlook.Application Dim olNs As NameSpace Dim Fldr As MAPIFolder Dim olMail As Outlook.MailItem Dim i As Integer Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("test ") For Each olMail In Fldr.Items i = i + 1 ActiveSheet.Cells(i, 1).Value = olMail.Subject ActiveSheet.Cells(i, 2).Value = olMail.SenderName ActiveSheet.Cells(i, 3).Value = olMail.ReceivedTime Next olMail Set Fldr = Nothing Set olNs = Nothing Set olApp = Nothing End Sub -- Regards, Jake Marx MS MVP - Excel www.longhead.com [please keep replies in the newsgroup - email address unmonitored] |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Outlook from Excel
Thanks,
Now i have this code that pulls all the e-mails from a folder name 'terms' and puts them into different cells in the same column the prints. the problem is, i only need one four-digit number from eac cell. so i end up printing way too many pages than neccessary. is i possible to only print the four-digit number from each e-mail/cell? Thanks -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
custimized outlook today in outlook 2007 | Excel Discussion (Misc queries) | |||
excel open in outlook if outlook is running | Excel Discussion (Misc queries) | |||
Send to Outlook 2000 not Outlook Express | Excel Discussion (Misc queries) | |||
Outlook 2003 demo back to Outlook XP | Excel Discussion (Misc queries) | |||
Display mail application either in Outlook, or Outlook express | Excel Programming |