软件公司门户网站模板,网站开发项目组成员,php网站开发入门到精通教程,百度网站下拉怎么做的注意#xff1a;以单引号开头的行为注释 fdt为今日日期的字符串#xff0c;比如 2014-11-13#xff0c;可用于附件名字里和邮件标题里 receiptions 为收件人列表#xff0c;多个收件人之间用分号隔开 ccreceiptions 为抄送人列表#xff0c;多个抄送人之间用分号隔开 Subj… 注意以单引号开头的行为注释 fdt为今日日期的字符串比如 2014-11-13可用于附件名字里和邮件标题里 receiptions 为收件人列表多个收件人之间用分号隔开 ccreceiptions 为抄送人列表多个抄送人之间用分号隔开 Subject 为邮件标题 Body 为邮件正文 Attachments 为附件列表每个附件都需附带路径并用逗号隔开。 以下代码可自定义修改fdt FormatDateTime(Date)receiptions xxxcn.xxx.comccreceiptionsxxxxcn.xxx.com;xxxcn.xxx.com;xxcn.xxx.comSubject xx的Usarp入库日志 fdtBody 附件是xx的Usarp数据导入到Oracle数据库在 fdt 执行的日志报告请查收Attachments Array(F:\xx\log4mail.log) 以下代码无需修改Dim xOutLookDim xMailOn Error Resume NextSet xOutLook GetObject(, Outlook.Application)If xOutLook Is Nothing ThenSet xOutLook CreateObject(Outlook.Application)End IfSet xMail xOutLook.CreateItem(olMailItem)With xMail.DisplayDim signaturesignature .HTMLBody.To receiptions.Ccccreceiptions.Subject Subject.HTMLBody Body.Importance olImportanceHigh Dim xDocSet xDoc xMail.Application.ActiveInspector.WordEditorIf IsArray(Attachments) ThenDim attachmentFor Each attachment In Attachments.Attachments.Add attachmentNextEnd If.HTMLBody .HTMLBody signature.SendEnd With
