Comments on: Sorting Items in Outlook http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/ Daily posts of Excel tips…and other stuff Wed, 08 Feb 2012 23:58:05 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: angel56 http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-29341 angel56 Wed, 12 Dec 2007 02:15:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-29341 <p>Thanks Dick</p> Thanks Dick

]]> By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-29314 Dick Kusleika Mon, 10 Dec 2007 22:20:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-29314 <p>Angel: Instr means one string is inside of a another. If "excel" is in the body of the email, Instr will return its starting position (an integer). If it can't find "excel" anywhere in the body, it will return 0.</p> Angel: Instr means one string is inside of a another. If “excel” is in the body of the email, Instr will return its starting position (an integer). If it can’t find “excel” anywhere in the body, it will return 0.

]]> By: Angel56 http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-29306 Angel56 Mon, 10 Dec 2007 16:23:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-29306 <p>If InStr(olMail.Body, "excel") > 0<br> What does this mean?<br> I'm writing a macro to retrive the body of an outlook 2007 messages into excel.</p> If InStr(olMail.Body, “excel”) > 0
What does this mean?
I’m writing a macro to retrive the body of an outlook 2007 messages into excel.

]]> By: Scott http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-19288 Scott Sun, 26 Mar 2006 09:46:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-19288 <p>Any ideas on how to create a threading structure in outlook to organize messages by thread, like a messageboard? This would be extremely helpful in organizing messages - also to remove duplicate content in the replies?</p> Any ideas on how to create a threading structure in outlook to organize messages by thread, like a messageboard? This would be extremely helpful in organizing messages – also to remove duplicate content in the replies?

]]> By: boris http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-17557 boris Fri, 25 Nov 2005 11:41:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-17557 <p>Hi there,</p> <p>I think there was a MSFT security update that changed the way VBA accesses Outlook. It is no longer possible to get SenderName. I may be wrong, but I can't seem to get this to work in Excel on my computer.</p> <p>Thanks<br> Boris</p> Hi there,

I think there was a MSFT security update that changed the way VBA accesses Outlook. It is no longer possible to get SenderName. I may be wrong, but I can’t seem to get this to work in Excel on my computer.

Thanks
Boris

]]> By: John http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-17458 John Thu, 10 Nov 2005 17:31:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-17458 <p>I've found a situation where I think I've sorted the collection, but it doesn't traverse the list in order. I wanted to only search back a certain number of days, in case the number of messages gets too big. Previously it would exit the sub as soon as the date fell out of range. This seemed to miss some emails. I tried 'for each' and using and index, but with no luck. Any ideas?</p> <p>Set flr = f.Folders("Inbox")<br> flr.Items.Sort "Receivedtime"</p> <p>With flr.Items<br> ' For i = 1 To .count<br> For Each itm2 In flr.Items<br> 'set itm2=.item(i)<br> If TypeName(itm2) = "MailItem" Then<br> ' Set itm2 = .item(i)<br> dt = itm2.ReceivedTime<br> If DateDiff("d", dt, Date) >= cboDays.Text Then GoTo skippy ' previously would exit here</p> <p> bd = itm2.body</p> <p> sb = itm2.subject<br> from = itm2.SenderName<br> sentto = itm2.To<br> isauto = InStr(bd, AUTOIDXTXT) > 0<br> If cbAutoIndexOnly = 0 Or isauto Then Addemail from, dt, sb, bd, sentto, itm2.entryid, itm2.htmlbody<br> skippy:<br> End If</p> I’ve found a situation where I think I’ve sorted the collection, but it doesn’t traverse the list in order. I wanted to only search back a certain number of days, in case the number of messages gets too big. Previously it would exit the sub as soon as the date fell out of range. This seemed to miss some emails. I tried ‘for each’ and using and index, but with no luck. Any ideas?

Set flr = f.Folders(“Inbox”)
flr.Items.Sort “Receivedtime”

With flr.Items
‘ For i = 1 To .count
For Each itm2 In flr.Items
‘set itm2=.item(i)
If TypeName(itm2) = “MailItem” Then
‘ Set itm2 = .item(i)
dt = itm2.ReceivedTime
If DateDiff(“d”, dt, Date) >= cboDays.Text Then GoTo skippy ‘ previously would exit here

bd = itm2.body

sb = itm2.subject
from = itm2.SenderName
sentto = itm2.To
isauto = InStr(bd, AUTOIDXTXT) > 0
If cbAutoIndexOnly = 0 Or isauto Then Addemail from, dt, sb, bd, sentto, itm2.entryid, itm2.htmlbody
skippy:
End If

]]> By: Vince Ward http://www.dailydoseofexcel.com/archives/2004/07/26/sorting-items-in-outlook/#comment-2055 Vince Ward Thu, 29 Jul 2004 12:26:00 +0000 http://www.dailydoseofexcel.com/?p=697#comment-2055 <p>Hi Dick,</p> <p>Thanks for posting this code above and also what is on your website. I've been trying to learn more about the Outlook object model since trying to implement the Getting Things Done system, and this has been very helpful. </p> <p>In the last couple of days, I've created two macros. The first creates a note and lists all my current projects in it. The second macro uses a userform to let me place the project title (using a listbox populated by project folders) on the subject line of a task, which will allow me to easily create a project and next action tracking system in Excel.</p> <p>Thanks again,</p> <p>Vince</p> Hi Dick,

Thanks for posting this code above and also what is on your website. I’ve been trying to learn more about the Outlook object model since trying to implement the Getting Things Done system, and this has been very helpful.

In the last couple of days, I’ve created two macros. The first creates a note and lists all my current projects in it. The second macro uses a userform to let me place the project title (using a listbox populated by project folders) on the subject line of a task, which will allow me to easily create a project and next action tracking system in Excel.

Thanks again,

Vince

]]>