我是一名计算机技术员，而不是程序员，但在我的新工作中，我被要求在 excel (vba) 中完成一个宏。 它由其中一列中的身份证号码列表组成（每次使用时单元格的数量都是可变的，例如一天可以放 20 个人，另外 12 个人），以及另一列中的电子邮件。 在一个文件夹中有一些pdf文件，其名称是出现在excel中的人的身份证。
他们问我的是，按字母顺序订购身份证，拿身份证和电子邮件。身份证将用于查找您相应的pdf并将其添加为附件，并通过电子邮件发送给谁？那里的单元格与电子邮件数据一起使用。这必须对现有的每一行进行，将 pdf 文件附加并发送电子邮件到同一行的地址，直到工作表上没有更多行。
谁能告诉我该怎么做或告诉我需要哪些功能？
谢谢。
图解思路：
【问题讨论】：
宏当前设置为.Display 电子邮件而不发送。完成运行测试后，您需要将其更改为 .Send 以实际发送电子邮件。
您还需要更新strLocation 的值。引号内是您需要放置包含所有目标 PDF 的文件夹位置的位置。
只要每一行与一个人相关联，单元格的顺序就无关紧要。
希望这些电子邮件是内部电子邮件 - 您不应将其用于外部邮件列表，因为您无法提供退订选项。如果您怀疑有垃圾邮件，Outlook 可能会标记/禁止您的帐户。
这假定 Column C 中的值是 Outlook 将按原样识别的实际电子邮件地址。 (urdearboy@email.com)
Sub CorpCard()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
For Each cell In Columns("C").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.SentOnBehalfOfName = "[your associated Outlook email here]"
.to = cell.Value
.Subject = "Subject goes here"
.Body = "Hi " & Range("B" & cell.Row).Value & "," _
'Body to be patsed here
strLocation = "C:\Users\urdearboy\Desktop\File Name\" & Cells(cell.Row, "D").Value & ".pdf"
.Attachments.Add (strLocation)
.Display
'.Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
【讨论】：