附件下载文件格式filename& ddmm

时间:2013-09-28 20:53:58

标签: outlook-vba

附件被下载并保存到目标文件夹,实际上是文件名+今日日期&月份(例如stat2909,repo2909),我想在我的脚本中添加它以下载附件,以便它只下载今天的日期文件。我如何使用Dim strDate As String, strDate = Format(Now(), "ddmm")添加此If UCase(Atmt.FileName) Like "stat& strDate" Or _但失败了。我该怎么做?

现在我用这个来下载附件

For Each Atmt In item.Attachments
If UCase(Atmt.FileName) Like "stat*" Or _
UCase(Atmt.FileName) Like "repo*" Then

1 个答案:

答案 0 :(得分:0)

只有很小的错误:

而不是

如果UCase(Atmt.FileName)喜欢“stat& strDate”,那么'& strDate'部分仍然是文本的一部分......

你需要

如果UCase(Atmt.FileName)喜欢“stat”& strDate'假设strDate之前已经填充过。

最高