Imports Microsoft.Office.Interop.Outlook Private Sub sendMail()
Dim outObj As New Application
Dim item As MailItem item = outObj.CreateItem()
'设定收件人地址
item.To = "abc@163.com"
'设定邮件主题
item.Subject = "test"
'设定邮件内容
item.Body = "dasfdasfsda"
'设定添附文件
item.Attachments.Add("c:\tree.txt")
'发送
item.Send()
End Sub
相关文章
- 史上最简单的隐马尔可夫模型讲解
- php 使用phpmailer 发送邮件(附带中文乱码的解决方法)
- 发送邮件(遵循smtp协议即简单的邮件发送协议)
- C#基础--基于POP3协议的邮件接收和基于STMP的邮件发送
- 最简单的基于FFmpeg的移动端例子:IOS 视频转码器
- Flask-email 发送邮件的配置,发送附件的方法,以及os.environ.get('MAIL_USERNAME')为None的解决办法
- 可能是最简单的本地GPT3 对话机器人,支持OpenAI 和 Azure OpenAI
- react-native-pg-style使用方法(以最简单的方式编写样式代码,抛弃react-native标准的样式创建方式.)
- PDF文件怎么修改,修改PDF文件最简单的方法!
- 安装Zope 2最简单的buildout.cfg是什么?