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

【问题标题】：VBA code to send email through gmail with pdf attachmentVBA代码通过gmail发送带有pdf附件的电子邮件
【发布时间】：2015-10-21 03:58:58
【问题描述】：

我的这段代码已经在工作，但不是 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 文件......

这段代码缺少什么？？？

【问题讨论】：

标签： vba email pdf gmail

【解决方案1】：

如果您只是在寻找找到的第一个 .PDF 文件，那么类似这样的文件将是合适的。

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

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

对于其他功能，您可能希望使用Environ function 获取当前用户的配置文件文件夹并从那里获取他们的桌面文件夹。

【讨论】：