Imports Microsoft.Office.Interop.Outlook Private Sub sendMail() Dim outObj As New Application Dim item As MailItem item = outObj.CreateItem(0) ‘设定收件人地址 item.To = "[email protected]" ‘设定邮件主题 item.Subject = "test" ‘设定邮件内容 item.Body = "dasfdasfsda" ‘设定添附文件 item.Attachments.Add("c:\tree.txt") ‘发送 item.Send() End Sub
时间: 2024-10-13 20:43:00