宏查找文本以附加文件并发送电子邮件

Question

我知道一些基本的excel VBA，但过去我从未做过这样的宏。我进行了一些研究，但还没有找到解决方案，希望你们能帮助我。

我需要此宏才能转到表，在“客户名称”列中捕获名称，在宏的路径中打开一个文件夹，然后查找具有相同名称的文件。问题出在文件名上。这些文件始终带有“客户名称”和文件日期03-24-20.xlsx。 （日期每周更改一次）

一旦识别出它，将其附加并通过电子邮件发送到E列中的电子邮件。

这不是必需条件，但会使事情变得更容易。有时，某些客户可能使用相同的电子邮件，是否可以将所有匹配的文件附加到一封电子邮件中？

我添加了一张图片作为参考，非常感谢您的帮助！

Answer 1

vba中的dir函数可以使用通配符获取文件的全名。 vba中的chdir函数设置要vba在其中搜索文件的目录。 例如：

chdir "C:\foldername"
attachmentFileName = "C:\foldername" & dir("Random company*")
''---Here * is a wildcard (means it will be replaced with the rest of the file name.)
mailItem.attachment = attachmentfileName