能否通过vbs把硬盘里的文件发给指定邮箱
时间: 2023-11-26 08:06:41 浏览: 31
可以通过VBScript来实现将硬盘里的文件发送到指定邮箱。以下是一份示例代码,您需要将其中的邮件服务器、发件人、收件人、主题、附件路径等信息替换为您自己的信息。
```
' 定义变量
Dim objOutlook, objMail, objFSO, objFile
Dim strFile, strPath, strSubject, strTo, strFrom, strSMTPServer
' 设置邮件信息
strSubject = "这是一封测试邮件"
strTo = "收件人邮箱地址"
strFrom = "发件人邮箱地址"
strSMTPServer = "SMTP服务器地址"
' 设置附件路径和文件名
strPath = "C:\Users\UserName\Desktop\"
strFile = "test.txt"
' 创建Outlook对象
Set objOutlook = CreateObject("Outlook.Application")
' 创建邮件对象
Set objMail = objOutlook.CreateItem(0)
' 设置邮件参数
With objMail
.To = strTo
.Subject = strSubject
.Body = "这是一封测试邮件,请查收!"
.Attachments.Add strPath & strFile
.SendUsingAccount = objOutlook.Session.Accounts.Item(1)
.Send
End With
' 释放对象
Set objMail = Nothing
Set objOutlook = Nothing
```
请注意,此代码需要在已安装Outlook的计算机上运行,并且需要在Outlook中设置默认邮件账户。如果您不想使用Outlook,您可以使用其他的邮件客户端或SMTP服务器来发送邮件。