将单个电子邮件发送给预定义的一组人员，其中包含文件夹中的所有文件

Question

我有一堆在文件夹“C:\Email”中更新的文件。这些是每周创建的 PDF 文件。文件数量可能在 50 到 500 之间，甚至更多。文件名是随机的。

我需要将这些文件分别发送到三个地址，例如 [email protected] ,[电子邮件受保护] 和 [电子邮件]受保护]。我无法一次性发送所有文件，它们需要单独发送。主题将是文件的名称，正文将保持不变 - “请查找附件。谢谢并致以问候，ABC”。

我一直在使用几个 Excel 工作表的组合，其中我使用命令行语法（即“C:\Program Files\Microsoft Office\Office12\Outlook.txt”）连接所有必需的参数，以得出批处理文件的文件名。 exe /c ipm.note /m "[电子邮件受保护],[电子邮件]受保护]，[电子邮件受保护]&subject=<>&body=请查找附件。谢谢和问候，ABC”

这是我今天想到的最简单的事情，但它很麻烦，因为它会打开与文件一样多的 Outlook 新消息窗口，这可能会让人厌烦。其次，这不允许我发送消息 。

希望有人能够提出一个 VBS / Windows 脚本 / VBA 代码来自动化执行相同的操作

Answer 1

您可以尝试使用 CDO.Message 对象从 VBScript 发送电子邮件。以下是取自 http://www.paulsadowski.com/wsh/cdo.htm

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "[email protected]" 
objMessage.To = "[email protected]" 
objMessage.TextBody = "This is some sample message text." 
objMessage.AddAttachment "c:\temp\readme.txt"
objMessage.Send

您可以将其放入循环结构中以发送文件夹中的每个文件

Answer 2

将代码替换

Do While Len(fileName) > 0     
Call CreateEmail(SOURCE_FOLDER & fileName)      
Dir (SOURCE_FOLDER)   
Loop  

为

Do While Len(fileName) > 0     
Call CreateEmail(SOURCE_FOLDER & fileName)      
filename = Dir   
Loop 

Answer 3

使用 Dir Loop 抓取每个 PDF 文件并创建新电子邮件。像这样：

Const SOURCE_FOLDER As String = "C:\Email\"
Const RECIP_A As String = "[email protected]"
Const RECIP_B As String = "[email protected]"
Const RECIP_C As String = "[email protected]"
Const EMAIL_BODY As String = "Please find attached file. Thanks and Regards, ABC"

Sub SendPDFs()

  On Error GoTo ErrorHandler

  Dim fileName As String

  fileName = Dir(SOURCE_FOLDER)

  Do While Len(fileName) > 0
    Call CreateEmail(SOURCE_FOLDER & fileName)

    Dir (SOURCE_FOLDER)
  Loop

ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.number & " - " & Err.description
  Resume ProgramExit
End Sub

Function CreateEmail(fileName As String)

Dim olApp As Outlook.Application
Dim msg As Outlook.MailItem

  ' create email
  Set olApp = Outlook.Application
  Set msg = olApp.createitem(olMailItem)

  ' set properties
  With msg
    .Body = EMAIL_BODY
    .Recipients.Add (RECIP_A)
    .Recipients.Add (RECIP_B)
    .Recipients.Add (RECIP_C)
    .Attachments.Add fileName
    .Send
  End With

End Function

这会将电子邮件文件夹中的每个文件发送给每个收件人，但不会为每个 PDF 发送三封单独的电子邮件。如果您特别需要，可以更改代码。