我正在尝试使用VBScript运行Outlook VBA工作代码。
目标是将文件从驱动器上的某个位置发送到指定的电子邮件地址。这必须反复发生,例如每天早上7点。我想Task Scheduler可以做到这一点。
如何创建vbs文件以运行Outlook VBA代码并将该vbs文件链接到任务计划程序?
当前宏:-
Dim fldName As String
Sub SendFilesbyEmail()
Dim sFName As String
i = 0
fldName = "\\blackstone.com\files\home\apac\gurgaon\Aggarwam\Settings\desktop\EXCEL FILES\Notes\"
sFName = Dir(fldName)
Do While Len(sFName) > 0
Call SendasAttachment(sFName)
sFName = Dir
i = i + 1
Debug.Print fName
Loop
MsgBox i & " files were sent"
End Sub
Function SendasAttachment(fName As String)
Dim olApp As Outlook.Application
Dim olMsg As Outlook.MailItem
Dim olAtt As Outlook.Attachments
Set olApp = CreateObject("Outlook.Application")
Set olMsg = olApp.CreateItem(0) ' email
Set olAtt = olMsg.Attachments
' attach file
olAtt.Add (fldName & fName)
' send message
With olMsg
.Subject = "Here's that file you wanted"
.To = "Abhishek.Khandelwal@Blackstone.com"
.HTMLBody = "Hi " & olMsg.To & ", <br /><br /> I have attached " & fName & " as you requested."
.Send
End With
End Function
https://stackoverflow.com/questions/49818523
复制相似问题