VB 中使用Optional 报语法出错

Posted 2023-03-18

出现问题如下：用QTP读数据写入EXCEL，再用Email发送。。

我发送Email的时候，有的需要发送一个附件，有的需要2个附件。。

我定义一个Function SendMail()中设定了5个参数，一个为可选，但Optional这个关键字(可选参数)怎么使用都提示语法错误（已百度N次无解），请问高人如何解决。

语句如下：SendMail SendTo,Subject,Body,FilePath1,FilePath2
Function SendMail(SendTo,Subject,Body,FilePath1,Optional FilePath2)‘此语句通不过
SendFrom="Data Center"
SendTo=[e-mail]
Subject="订单报表"
Body="详细数据请看excel"
excelfile="C:\Documents and Settings\ir\桌面\供应商\报表模板.xlsx"
excelfile2="C:\Documents and Settings\ir\桌面\预付确认率报表.xlsx"
FilePath1=excelfile
FilePath2=excelfile2
SendMail SendFrom,SendTo,Subject,Body,FilePath1,FilePath2

Function SendMail(SendFrom,SendTo,Subject,Body,FilePath1,Optional FilePath2)'此语句通不过

参考技术A 你多了一个参数
SendMail SendFrom,SendTo,Subject,Body,FilePath1,FilePath2 这里6个参数 参考技术B Function SendMail(SendTo,Subject,Body,FilePath1,Optional FilePath2 As 数据类型 = 默认值) as 数据类型
要么你就别用Function,换用Sub. 参考技术C EXCEL中VBA不支持