VBA代码通过带有pdf附件的Gmail发送电子邮件

Question

我有这个代码已经有效，但不是100％......我想通过Gmail发送一封附带pdf的电子邮件......但我不想要一个特定的pdf文件。

我知道我可以在代码上放置一个特定的文件名，但我的pdf文件总是更改名称

实施例： Clientname_1.pdf, Clientmane_2.pdf, Suppliername_1.pdf, etc

我的代码就是这样，但不起作用：

Dim objEmail, objConfig
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "xpto@gmail.com"
objEmail.To =     Join(Application.Transpose(Sheets("Clients").Columns(7).SpecialCells(2)), ";")
objEmail.Subject = "Test"
objEmail.CC = ""
objEmail.AddAttachment "C:\Users\123\Desktop\*.pdf"

我需要代码转到我想要的文件夹并发送现有的pdf文件......

此代码中缺少什么???

Answer 1

如果您只是寻找找到的第一个.PDF文件，那么这样的话就合适了。

dim dr as string
dr = "C:\Users\123\Desktop\"
objEmail.AddAttachment dr & Dir(dr & "*.pdf")

Dir function可以循环找到所有匹配的匹配，但似乎你只想要第一个匹配。如果Dir找不到匹配的文件，它将返回一个零长度的字符串。

有关其他功能，您可能需要使用Environ function获取当前用户的个人资料文件夹，并从那里获取他们的桌面文件夹。