Yeah, the last query went from just standard DATE and pulled the same exact results as using RECEIVED and SENT.

There is nothing really private here so I'll post my content search query here:

It doesn't matter if I do a general DATE or as in picture, RECEIVED or SENT options:

The content search has been awesome but running into a problem...management challenged me to a this OR this OR this search and everything after Feb 01, 2014. Seems easy to do but it still seems to pull in data pre-Feb 2014 and management wants me to try to fix that but can't . Any suggestions?

@coliver said in Saving E-Mails From Exchange Online To Local Folders:

@garak0410 said in Saving E-Mails From Exchange Online To Local Folders:

Thanks...I'll check it out...no time better than now to learn it but man, short notice on their part...

Yep, it's a good system and can do some pretty powerful things.

This is great advice...working on content search now...

Thanks...I'll check it out...no time better than now to learn it but man, short notice on their part...

For a lawsuit, I've been asked to search and look for most communications with a client and then save and send to a lawyer. I know in full Outlook, I can select the messages I want, right click over the selections and choose CONVERT TO ADOBE PDF but that is because I have full Adobe. It then neatly separates each email in the PDF (though does require FLASH). Very nice.

However, I've been asked to go through 5-6 mails boxes and save these email exchanges with this customer. I tried OWA but no option like this or to even save bulk emails. Can't even bulk forward mails on OWA.

Beyond going to each user 's Outlook and saving or logging into my PC with a different profile and connecting to each mailbox to save the selected emails, is there anything else I can do? Any powershell scripts perhaps?

Sadly, this was brought to me late and they want it by end of day, so might have to go to each PC.

Not to digress or go off topic but has anyone out there tried Android Wear? I have found it more well rounded and more useful than WatchOS. I've used both and Microsoft BAND and Android Wear seems so very underrated to me.

Though some research and assistance, looks like this might get me started...

Within this function:

Function FindJobDir(ByVal strPath As String) As String
Dim sResult As String

sResult = Dir(strPath & "*", vbDirectory)
FindJobDir = UCase$(sResult)
Do While sResult <> ""
sResult = Dir
If Len(sResult) > 0 Then FindJobDir = FindJobDir & "," & UCase$(sResult)
Loop
End Function

Looking at adding the following:
Dim sResults As Range
Set sResults = Worksheets("REPORT").Range("W2:W50").Find(strPath, LookAt = xlWhole)

Now to learn where to put this and what to do if it doesn't match...

Our family has moved to GroupMe for things like family news and get-togethers...too many people were either getting left out of texts or somehow, they would get dropped out of a group text. We also use it at church for staff communication and when I direct a community theatre show, I use it for cast communications.

@scottalanmiller said in Samsung to Recall Galaxy Note 7 Smartphone Over Reports of Fires:

I'm waiting to hear what Apple announces tomorrow.

I'll be watching...especially since most of the staff here prefers iPhones for the simple fact it doesn't change much from year to year.

I'm one of the 1% that still prefers Windows Phone but I know it is just too hard to support anymore.

I was a day one adopter of the Note 7. While the screen was beautiful and the camera top notch, it just felt so laggy for a new phone. I can honestly say my Note 5 was never laggy. In fact, I am back on my Note 5 while I await this Note 7 recall. I am missing the screen on the Note 7 but not the lag. I called Verizon and they have no info as of yet for exchanging for another Note 7 but would exchange for any other phone right now.

I have nothing against the iPhone but I simply do prefer the customization options rather than the static icons, as I use widgets (and the Arrow Launcher) to their fullest.

I'm tempted to go pure Android with the Nexus 6P since it still has a good camera and a price cut right now or wait for the new "Pixel" phones. I do have to say, I do use my Stylus more than I thought I would but I just have a bad taste in my mouth over the Note 7, mainly from the performance but also over the recall.

Thinking out loud here...wonder if the xlWhole option would work but where?

@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

Are they Phases always Letters? ie: A,B,C...Z.... or are there numbers too?

I'm trying to think as to whether or not there's a LIKE operator in VBA... It's been so long I can't remember...

You might could modify the sJob....

sJob=rCell.value + "*"

And check that the routines that look for the paths are prepared for multiple targets... ie:

The user enters Job 161616 and it has Phases A,B, and C... each phase would need to be processed... That complicates things a bit though, depending on how you are looking at the folder names. Can you post that bit of code?

Good timing...I just went back to sJob=rCell.value and was thinking it could be there. They can be letters or numbers and might be dashes sometimes.

The complex problem with this sheet is when he goes to order his steel (i.e. this sheet), he may only need phase A or just B...and when he enters that, it pulls in just that. But a good example right now is this...job 161343 also has a job called 161343_PORTAL. If he enters just 161343, that's all he needs for that week. But it still pulls _PORTAL. Same thing happens if he enters a job with phases but needs the one with no A, B, C, etc. It will still pull A, B, C. etc. and he doesn't need it .

So it is in this block:

For Each rCell In Worksheets("REPORT").Range("W2:W50")
If IsEmpty(rCell.Value) Then Exit Sub
Debug.Print rCell.Value:
sJob = rCell.Value

That proceeds to this line vJobFolders = Split(FindJobDir(strpathtofile & sJob), ",")

And the FindJobDir subroutine is this:

Function FindJobDir(ByVal strPath As String) As String
Dim sResult As String

sResult = Dir(strPath & "*", vbDirectory)
FindJobDir = UCase$(sResult)
Do While sResult <> ""
sResult = Dir
If Len(sResult) > 0 Then FindJobDir = FindJobDir & "," & UCase$(sResult)
Loop
End Function

UPDATE: Interesting...I did you recommended sJob=rCell.value + "*" ...putting in a job that has phases but with no phase needed for that week, brings up type mismatch error...if I put in a phased job, it completes successfully.

You could do a try...catch block or an onerror statement to catch that error... so if it bombs with the type mismatch, then you can force it to do try it for a non-phased job?

catch block or an onerror statement's are new to me so researching them...

@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

Are they Phases always Letters? ie: A,B,C...Z.... or are there numbers too?

I'm trying to think as to whether or not there's a LIKE operator in VBA... It's been so long I can't remember...

You might could modify the sJob....

sJob=rCell.value + "*"

And check that the routines that look for the paths are prepared for multiple targets... ie:

The user enters Job 161616 and it has Phases A,B, and C... each phase would need to be processed... That complicates things a bit though, depending on how you are looking at the folder names. Can you post that bit of code?

Good timing...I just went back to sJob=rCell.value and was thinking it could be there. They can be letters or numbers and might be dashes sometimes.

The complex problem with this sheet is when he goes to order his steel (i.e. this sheet), he may only need phase A or just B...and when he enters that, it pulls in just that. But a good example right now is this...job 161343 also has a job called 161343_PORTAL. If he enters just 161343, that's all he needs for that week. But it still pulls _PORTAL. Same thing happens if he enters a job with phases but needs the one with no A, B, C, etc. It will still pull A, B, C. etc. and he doesn't need it .

So it is in this block:

For Each rCell In Worksheets("REPORT").Range("W2:W50")
If IsEmpty(rCell.Value) Then Exit Sub
Debug.Print rCell.Value:
sJob = rCell.Value

That proceeds to this line vJobFolders = Split(FindJobDir(strpathtofile & sJob), ",")

And the FindJobDir subroutine is this:

Function FindJobDir(ByVal strPath As String) As String
Dim sResult As String

sResult = Dir(strPath & "*", vbDirectory)
FindJobDir = UCase$(sResult)
Do While sResult <> ""
sResult = Dir
If Len(sResult) > 0 Then FindJobDir = FindJobDir & "," & UCase$(sResult)
Loop
End Function

UPDATE: Interesting...I did you recommended sJob=rCell.value + "*" ...putting in a job that has phases but with no phase needed for that week, brings up type mismatch error...if I put in a phased job, it completes successfully.

@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

Update on this project...a block of code like this did the trick:

Dim reportSheet As Worksheet
Set reportSheet = Worksheets("REPORT")

Dim lastRow As Integer
lastRow = reportSheet.Cells(reportSheet.Rows.Count, "W").End(xlUp).Row

Dim jobRange As Range
Set jobRange = reportSheet.Range("W2:W" & lastRow)

For Each rCell In jobRange
Debug.Print rCell.Value ' colon is only needed for line breaks
sJob = rCell.Value
' ...
Next

Now, of course, they are asking for this to go a step further. They want what is typed in Column W to be an exact match to what it goes to look and find at the file location path.

For example., there may be a job called 161616 and it may have several phases like A, B, C etc. So if say he is ordering for 161616 (no phase), it will bring in 161616 and also any A, B, or C phase that is out there. If he specifically types in 161616A, it will only pull that one.

Is there a way to make it look for an exact match?

This isn't a case where I use the xlWhole command, is it???

Update on this project...a block of code like this did the trick:

Dim reportSheet As Worksheet
Set reportSheet = Worksheets("REPORT")

Dim lastRow As Integer
lastRow = reportSheet.Cells(reportSheet.Rows.Count, "W").End(xlUp).Row

Dim jobRange As Range
Set jobRange = reportSheet.Range("W2:W" & lastRow)

For Each rCell In jobRange
Debug.Print rCell.Value ' colon is only needed for line breaks
sJob = rCell.Value
' ...
Next

Now, of course, they are asking for this to go a step further. They want what is typed in Column W to be an exact match to what it goes to look and find at the file location path.

For example., there may be a job called 161616 and it may have several phases like A, B, C etc. So if say he is ordering for 161616 (no phase), it will bring in 161616 and also any A, B, or C phase that is out there. If he specifically types in 161616A, it will only pull that one.

Is there a way to make it look for an exact match?

Still trying the suggestions listed here...still having issues...mainly because I don't have a ProjectName.SourceManifest.xml...

@scottalanmiller said in Manifest and Path Manifest XML hidden Errors:

Check the ProjectName.SourceManifest.xml file.

And look for this line: <appHostConfig path="Default Web Site/ProjectName" />

That needs to be populated and if you are deploying fresh might be missing. You might need to manually create the dummy site before deploying the new code.

http://www.iis.net/learn/publish/troubleshooting-web-deploy/web-deploy-error-codes#ERROR_EXCEPTION_WHILE_CREATING_OBJECT

Interesting in that ProjectName.SourceManifest.xml doesn't exist in my project folder or on the website folder on the webserver.

So if I create a ProjectName.SourceManifest.xml file, where should it go?

Sorry, I didn't see this was posted on my behalf.

After I connected my laptop to the port and got no lights or connection and brought over a 20 foot cable to plug into the printer and then the printer connected, I have determined it is the LAN Jack.

But get this...I connected an old 100 Meg desktop switch I had laying around to that jack and then connected the printer to that switch and then it worked. So they are up and running.

@garak0410 said in VPN Down Since Server Reboot:

RESOLVED...not sure why this was one of the last places to look but the actual ROUTING AND REMOTE ACCESS service was not running. Since it was set to Automatic, didn't think to check there yet as the actual SERVICE did show green. But can't trust that Automatic setting sometimes...

Plus when you have a VP who is wary of technology who finally trusted me to try to work away from home and then they can't get into VPN, you don't think straight sometimes...and yes, SOLO IT shop!