锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net读取邮件标题 vba获取邮件附件内容

IT技术文件

vba读取邮件标题试试下面vb.net读取邮件标题的代码vb.net读取邮件标题：
Sub 导入邮件()
On Error Resume Next
Dim olApp As New Outlook.Application, olNameSpace As Outlook.Namespace
Dim olMailItem As Outlook.MailItem, olFolder As Outlook.Folder
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox) '收件箱
For i = 1 To olFolder.Items.Count
Set olMailItem = olFolder.Items(i) '获取一个邮件项目
With olMailItem
ActiveSheet.Cells(i + 2, 1) = IIf(.UnRead, "未读", "已读") '状态
ActiveSheet.Cells(i + 2, 2) = .SenderName"(".SenderEmailAddress")" '发件人
ActiveSheet.Cells(i + 2, 3) = .Subject '主题
ActiveSheet.Cells(i + 2, 4) = .ReceivedTime '主题
End With
Next
End Sub
要一段VB.NET发邮件的代码'创建发件连接,根据你的发送邮箱的SMTP设置填充
Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)
'发件邮箱身份验证,参数分别为 发件邮箱登录名和密码
smtp.Credentials = New System.Net.NetworkCredential("用户名", "密码")
'创建邮件
Dim mail As New System.Net.Mail.MailMessage()
'邮件主题
mail.Subject = "邮件主题"
'主题编码
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
'邮件正文件编码
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
'发件人邮箱
mail.From = New System.Net.Mail.MailAddress("example@163.com")
'邮件优先级
mail.Priority = System.Net.Mail.MailPriority.Normal
'HTML格式的邮件,为false则发送纯文本邮箱
mail.IsBodyHtml = True
'邮件内容
mail.Body = "邮件正文内容"
'添加收件人,如果有多个,可以多次添加
mail.To.Add("收件人地址")
'定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
'如果不需要附件,下面三行可以不要
Dim a As New System.Net.Mail.Attachment("附件文件")
'附件文件名,用于收件人收到附件时显示的名称
a.Name = "附件文件名"
'加入附件,可以多次添加
mail.Attachments.Add(a)
'发送邮件
Try
smtp.Send(mail)
MessageBox.Show("发送成功")
Catch
MessageBox.Show("发送失败")
Finally
mail.Dispose()
End Try
VB如何接收邮件Visual Basic 6中发送邮件vb.net读取邮件标题的新方法
用VB6编写发送邮件的程序 ， 有多种E-mail组件可供选择 ， 如MAPIMessages、IIS4.0附带的CDONTS（NTS Collaboration Data Objects）以及许多第三方厂商开发的Email软件等 。本文介绍用CDONTS开发VB下的邮件程序方法 。
1. 确认已安装SMTP服务器
首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项 。如果SMTP服务器已安装，在System32目录下会存在一个名为cdonts.dll的文件 。
2. 最简单的邮件发送程序
以下是一个最简单的邮件发送程序，它由me@hotmail.net向abc@263.net发出一封标题为“Title”、内容为“Hello”的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "me@hotmail.net ", "abc@263.net","Title","Hello"
Set objMail=nothing
End Sub
3. 发送邮件附件
如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
With ObjMail
.From= "me@hotmail.net "
.To= "abc@263.net"
.Subject="Title"
.Body="Hello"
.AttachFile "c:\document\ sample.doc","sample.doc"
.Send
End With
Set objMail=nothing
End Sub

推荐阅读


上一篇：h和游戏都专心开发，和游戏都开发了

下一篇：企业微信如何对电商管理，企业微信 微商