format date

[rollingzep]

Hi All,

I am trying to save Outlook email attachments but looking for the mails with subject as HO Reports/Divn EOD yyyy-mm-dd
The yyyy-mm-dd are the previous working day date. On Mondays, I receive the previous working day(Friday) date on the subject.
How do I format this?

For Each olMail In OlItems

        If olMail.subject Like "*HO Reports/Divn EOD [B]yyyy-mm-dd[/B]*" Then

        strFile = olMail & ".zip"

TIA

 

[Anthony47]

Try using

If olMail.subject Like "*HO Reports/Divn EOD " & Format(Application.WorksheetFunction.WorkDay(Date, -1), "yyyy-mm-dd") & "*" Then

 

[rollingzep]

Try using

If olMail.subject Like "*HO Reports/Divn EOD " & Format(Application.WorksheetFunction.WorkDay(Date, -1), "yyyy-mm-dd") & "*" Then

That works but it does not identify the .zip file attachment.

at the line, strFile = olMail & ".zip"

My intention is to save the zip file which is an attachment in the mail to a local folder and then to unzip it to another folder.
The zip file has 10 files, of which I need three files.

TIA

 

[Anthony47]

So ther is another problem in the macro.
Could you show the full code? I wonder what type of "object" is olMail, hardly it is a string one...