如何使用VBScript运行Outlook VBA代码？
如何使用VBScript运行Outlook VBA代码？
提问于 2018-04-13 21:46:43
我正在尝试使用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回答 1
Stack Overflow用户
发布于 2018-07-25 04:28:42
Set fso = CreateObject("Scripting.FileSystemObject")
Set myxlApplication = CreateObject("Excel.Application")
myxlApplication.Visible = False
Set myWorkBook = myxlApplication.Workbooks.Open( curDir & "C:\ABC\Pipeline Report.xlsm" )
myWorkBook.Application.Run "Module1.Refresh" 'Change to the Module and Macro that contains your macro
myxlApplication.Quit页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/49818523
复制相关文章
相似问题