I'm using Excel 2007.I'm trying to retrive the body of messages inside a folder called Erika to an Excel sheet. The code run without errors but does not parse. As I step through the code my ParseTextLinePair is always "". Can anyone help me?
Please Login or Register to view this content.
Last edited by VBA Noob; 12-29-2007 at 04:57 AM.
Bump
Happy New Year!!
I have posted this question at this location http://www.mrexcel.com/forum/showthread.php?t=293849
but I didn't get any help. I just need help with the parse function. Up to this point I know its working.
I can see my source and my label but when I get to this line.Please Login or Register to view this content.
intLocLabel always = 0Please Login or Register to view this content.
Any Ideas or suggestions?
Thank you
It means the label does not appear in the string. If case is causing the problem, change
toPlease Login or Register to view this content.
Please Login or Register to view this content.
Parse Function
Hi and thank you for your help. I didn't get a chance to try it because this morning after running this code without an error now I'm getting an error.
Error (Compile error: User-defined type not defined)Please Login or Register to view this content.
Any Ideas?
Parse Function
The problem I was having happen because I move my macro to my personal.XLSB and before I was running my macro from Outlook.XLSM. Don't understand why It doesn't work in my personal file like the other macros. I tried the code you provided me and It's giving me a type mismatch error.
You need a reference to the Microsoft Outlook Object Library.Error (Compile error: User-defined type not defined)Please Login or Register to view this content.
What code?I tried the code you provided me and It's giving me a type mismatch error.
Last edited by shg; 12-31-2007 at 02:27 PM.
Parse Function
This is the one giving me the type mismatch error
Thank youPlease Login or Register to view this content.
I don't understand that. In the VBE Immediate window, type
? vbtextcompare
It should show "1" (sans quotes).
If it doesn't (???), replace the named constant in the code with 1.
Parse function
I type
and I got a 1Please Login or Register to view this content.
Change the line to
If it still always returns 0, it means that the substring is not contained in the search string.Please Login or Register to view this content.
Edit: BTW, in your code, mbox, inbox, strClient, strSales, and SAM are not declared -- that practice will bite you someday. I strongly recommend that you put Option Explicit at the top of every module so you have to declare all variables.
Last edited by shg; 12-31-2007 at 05:34 PM.
Parse Function
I corrected the code put Option Explicit at the top of every module, and declare all my variables mbox, inbox, strClient, strSales, and SAM. Modify the line of code like you said.
I didn't get any errors and retuned a 1. Still not parsing. The other thing I notice is this line of code.Please Login or Register to view this content.
intLocLabel always = 0 and then goes straight to the End If. Thank you for all your help.Please Login or Register to view this content.
Happy New Year!!!
Happy new year to you as well, Angel.
Set a breakpoint on the Instr line, and look at the two strings. If the second string is not contained in the first, the function will return 0.
Parse Function
Hello,
I set a break point at
my strSource contained my strLabel.Please Login or Register to view this content.
Thank you,
Parse Funtion
Bump
Still need assistance.
Angel the Instr function works; if it returns zero, it is because the substring is not within the string being searched.
The problem with helping is that most people won't want to have an untested program messing in their Outlook folders. If you can cut an example down to something that illustrates the problem standalone, someone might be more likely to.
Parse Function
Will do on Monday because the macro is on Microsoft Office 2007 and I'm running Microsoft Office 2003 plus I don't have outlook.
Thank you,
Parse Function
Bump
Ok here is what I see in my Locals Window
After this line of code
This what I getPlease Login or Register to view this content.
: : <No Variables> :
: strSource : "Index:
Enterprise
Commercial
There are no items to report for this section.
Public
AFOTEC/KIRTLAND AFB
University of Kansas
Picatinny Arsenal
Hoosier Lottery
Basic and Sil"
: strLabel : "Index: " : String
: ParseTextLinePair : Empty : Variant/Empty
: intLocLabel : 0 : Integer
: intLocCRLF : 0 : Integer
: intLenLabel : 7 : Integer
: strText : "" : String
After this line of code
This is what I getPlease Login or Register to view this content.
: strText : "" : String
After this line then it goes to the second End IF
I see a trailing space in strLabel "Index: ". Is there a space after "Index:" in strSource?
Parse Function
You were right I dad a trail space that wasn't supposed to be there. I removed the trail space. Still not parsing.
Thank you
Just to repeat my earlier post:
Angel the Instr function works; if it returns zero, it is because the substring is not within the string being searched.
The problem with helping is that most people won't want to have an untested program messing in their Outlook folders. If you can cut an example down to something that illustrates the problem standalone, someone might be more likely to.
Try this routine. I've attached a spreadsheet that you can use to test it. If it does what you want, plug it in to your other code.
Please Login or Register to view this content.
Last edited by shg; 01-07-2009 at 11:47 AM.
Parse Function
Great, you are the greatest. Thanks a lot. I'm retreving my email to one cell which is not a big deal but the first line of the 2 email I retreved are partially hidden.
Thanks for all the great help!
You're welcome
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks