Email Outlook VBA用于发送带有附件的电子邮件

我需要在一天内发送近100封电子邮件给不同文件名的人。下面的代码工作得很好，但问题是我必须附加的文件应该是前一天的日期。例如，今天的日期是2013年3月7日（7-03-13）。我得到文件RN2425 06-03-13.xls，这些文件每天都在变化。我想在特定目录D:\Reporting\Daily\RN2425\RN2425（前一天的日期戳）.xls中查找前一天的文件

请使用此代码帮助我，我需要更改文件名中的日期。我希望这是自动完成的

Sub CreateEmail(Subject As String, Body As String, ToSend As String, CCs As String, FilePathtoAdd As String)

 'write the default Outlook contact name list to the active worksheet

 Dim OlApp As Object
 Dim OlMail As MailItem
 Dim ToRecipient As Variant
 Dim CcRecipient As Variant


 'Set OlApp = CreateObject("Outlook.Application")
 'Set OlMail = OlApp.CreateItem(olMailItem)

 Set OlApp = Application
 Set OlMail = OlApp.CreateItem(olMailItem)

 'For Each ToRecipient In Array("mba.szabist@gmail.com", "mba.szabist@gmail.com", "mba.szabist@gmail.com")
 'OlMail.Recipients.Add ToRecipient
 OlMail.Recipients.Add ToSend
 'Next ToRecipient



 'For Each CcRecipient In Array("happychords@yahoo.com", "happychords@yahoo.com", "happychords@yahoo.com")
 'With OlMail.Recipients.Add(CcRecipient)
 '.Type = 2
 'End With
 'Next CcRecipient
 Dim Temp As Recipient
 Set Temp = OlMail.Recipients.Add(CCs)
 Temp.Type = olCC


 'fill in Subject field
 OlMail.Subject = Subject
 OlMail.Body = Body

 'Add the active workbook as an attachment
' OlMail.Attachments.Add "C:\Users\Ali\Desktop\Sentence Correction\Comparisons.pdf"
 If FilePathtoAdd <> "" Then
    OlMail.Attachments.Add FilePathtoAdd
 End If
 'Display the message
 OlMail.Display 'change this to OlMail.Send if you just want to send it without previewing it

 End Sub
Sub EmailIt()
CreateEmail "This is Subject", "Body", "kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com", "E:\Ali's Documents\RN2425 06-03-13.xls"
CreateEmail "This is Subject", "Body", "kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com", "E:\Ali's Documents\RN2425 06-03-13.xls"
CreateEmail "This is Subject", "Body", "kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com", "E:\Ali's Documents\RN2425 06-03-13.xls"
CreateEmail "This is Subject", "Body", "kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com", "E:\Ali's Documents\RN2425 06-03-13.xls"
CreateEmail "This is Subject", "Body", "kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com", "E:\Ali's Documents\RN2425 06-03-13.xls"
CreateEmail "This is Subject", "Body", "kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com", "E:\Ali's Documents\AVSEQ03 Comp 1.avi"

End Sub

Sub-CreateEmail（主题为字符串，正文为字符串，ToSend为字符串，CCs为字符串，文件路径为添加为字符串）
'将默认Outlook联系人姓名列表写入活动工作表
作为对象的Dim-OlApp
以邮件形式发送邮件
Dim被视为变体
Dim作为变体
'Set OlApp=CreateObject（“Outlook.Application”）
'Set OlMail=OlApp.CreateItem（olMailItem）
设置OlApp=Application
设置OlMail=OlApp.CreateItem（olMailItem）
'对于数组中的每个ToRecipient（“mba。szabist@gmail.com“mba。szabist@gmail.com“mba。szabist@gmail.com")
'OlMail.Recipients.Add to收件人
OlMail.Recipients.Add ToSend
“下一个收件人
'对于数组中的每个CcRecipient（'happychords@yahoo.com", "happychords@yahoo.com", "happychords@yahoo.com")
'使用OlMail.Recipients.Add（CcRecipient）
'.Type=2
"以
“下一个收件人
作为接收者的Dim Temp
Set Temp=OlMail.Recipients.Add（CCs）
温度类型=olCC
'填写主题字段
OlMail.Subject=主题
OlMail.Body=Body
'将活动工作簿添加为附件
'OlMail.Attachments.Add“C:\Users\Ali\Desktop\statement Correction\comparations.pdf”
如果文件路径添加“”，则
OlMail.Attachments.Add文件路径添加
如果结束
'显示消息
OlMail.Display'将此更改为OlMail.Send（如果您只想发送而不预览它）
端接头
子电子邮件地址（）
CreateEmail“这是主题”、“正文”kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com，“E:\Ali的文档\RN2425 06-03-13.xls”
CreateEmail“这是主题”、“正文”kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com，“E:\Ali的文档\RN2425 06-03-13.xls”
CreateEmail“这是主题”、“正文”kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com，“E:\Ali的文档\RN2425 06-03-13.xls”
CreateEmail“这是主题”、“正文”kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com，“E:\Ali的文档\RN2425 06-03-13.xls”
CreateEmail“这是主题”、“正文”kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com，“E:\Ali的文档\RN2425 06-03-13.xls”
CreateEmail“这是主题”、“正文”kamran@yahoo.com, kamu@yahoo.com", "me@yahoo.com, my@yahoo.com，“E:\Ali的文档\AVSEQ03 Comp 1.avi”
端接头

要以正确的格式获取今天的日期：

• 格式（日期，“dd-mm-yy”）

要获取昨天的日期：

• 日期添加（“d”，-1，日期）

总而言之：

• E:\Ali的文档\RN2425“&格式（日期添加（“d”，-1，日期），“dd-mm-yy”）和“.xls”