vbnet收邮件 vba接收邮件

如何用VB.Net收发邮件

在Identity2.0里面封装了IIdentityMessageService接口，可以用来发送接收邮件。

创新互联服务项目包括永胜网站建设、永胜网站制作、永胜网页制作以及永胜网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，永胜网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到永胜省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

看看

Imports System.Threading.Tasks

Imports System.Security.Claims

Imports Microsoft.AspNet.Identity

Imports Microsoft.AspNet.Identity.EntityFramework

Imports Microsoft.AspNet.Identity.Owin

Imports Microsoft.Owin

Imports Microsoft.Owin.Security

public function SendAsync(message as IdentityMessage) as task

dim credentialUserName = "邮箱登录名"

dim sentFrom = "你的邮箱地址"

dim pwd= "邮箱登录密码";

dim client as new System.Net.Mail.SmtpClient("smtp服务器地址")

client.Port = 25'mtp邮件服务器端口

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

client.UseDefaultCredentials = false

dim credentials as new System.Net.NetworkCredential(credentialUserName, pwd)

client.EnableSsl = true

client.Credentials = credentials

dim mail as new System.Net.Mail.MailMessage(sentFrom, message.Destination)

mail.Subject = message.Subject

mail.Body = message.Body

return client.SendMailAsync(mail)

end function

VB收邮件！

3.71 icePub_receiveMailText

l 函数原型：

int WINAPI icePub_receiveMailText(char *strUsername,char *strPassword,char *strSmtpSever,char *strMailText,int TextMaxLen,char *strFenge,int deleteFlag)

输入：strUsername pop3用户名

strPassword 用户密码

strSmtpSever pop3服务器

TextMaxLen strMailText最大长度

StrFenge 每个邮件间分隔符串

DeleteFlag 收完是否删除邮标志

输出：strMailText 接收的邮件内容

VB sample 代码：

Private Declare Function icePub_receiveMailText Lib "icePubDll.dll" (ByVal strusername As String, ByVal strpwd As String, ByVal strsmtpsever As String, ByVal strMailText As String, ByVal TextMaxLen As Integer, ByVal strFenge As String, ByVal deleteFlag As Integer) As Integer

Dim str1 As String

Dim str3 As String

Dim a2 As Integer

str3 = vbCrLf + vbCrLf + vbCrLf + "===================" + vbCrLf

str1 = Space(1024 * 30 + 1)

a2 = icePub_receiveMailText("ahuinuli", "112233", "pop.tom点抗 ", str1, 1024 * 30, str3, 0)

MsgBox str1

3.72 icePub_receiveMailTextToFile

l 函数原型：

int WINAPI icePub_receiveMailTextToFile(char *strUsername,char *strPassword,char *strSmtpSever,char *strFenge,char *strFileName,int appendFlag,int deleteFlag)

输入：strUsername pop3用户名

strPassword 用户密码

strSmtpSever pop3服务器

TextMaxLen strMailText最大长度

StrFenge 每个邮件间分隔符串

DeleteFlag 收完是否删除邮标志

输出：strMailText 接收的邮件内容

VB sample 代码：

Private Declare Function icePub_receiveMailTextToFile Lib "icePubDll.dll" (ByVal strusername As String, ByVal strpwd As String, ByVal strsmtpsever As String, ByVal strFenge As String, ByVal strFileName As String, ByVal appendFlag As Integer, ByVal deleteFlag As Integer) As Integer

Dim str3 As String

Dim str4 As String

Dim a2 As Integer

str3 = vbCrLf + vbCrLf + vbCrLf + "===================" + vbCrLf

str4 = App.Path + "\mymail.txt"

a2 = icePub_receiveMailTextToFile("ahuinuli", "112233", "pop.tom点抗 ", str3, str4, 0, 1)

下载

我用vb点虐 弄了个jmail接收邮件，但是运行报错，请各位帮忙看下到底是什么问题，非常感谢！

JMAIL组件没有安装。或注册。。

最好下载4.4pro破解版安装。

或者regsvr32 注册下 dll文件

VB如何接收邮件

Visual Basic 6中发送邮件的新方法

用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点虐 向abc@263点虐 发出一封标题为“Title”、内容为“Hello”的E-mail：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

ObjMail.Send "me@hotmail点虐 ", "abc@263点虐 ","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点虐 "

.To= "abc@263点虐 "

.Subject="Title"

.Body="Hello"

.AttachFile "c:\document\ sample.doc","sample.doc"

.Send

End With

Set objMail=nothing

End Sub

4. CDONTS组件常用属性和方法

CDONTS组件常用的属性和方法列举如下：

属性：

Version：返回CDONTS组件的版本号

MailFormat：邮件格式，1-普通文本类型；0-MIME类型

Cc：设置一个或多个参阅的邮件地址

From：邮件发送者的地址

To ：邮件接受者的地址

Subject：标题

Body：内容

BodyFormat：内容格式，1-普通文本；0-超文本

方法：

AttachFile：附加一个文件

AttachURL：附加一个地址

Send：发送邮件

5. 发送超文本格式的E-mail

你一定见到过许多使用超文本格式的E-mail，其中不但可以有图片、声音，甚至还可以嵌入动画。如果给你的朋友也发送一封这样的邮件，一定会带给他（她）意外的惊喜，因为这用一般的邮件发送程序是无能为力的。以下使用CDONTS组件发送一个HTML格式的邮件，其中包含有一幅名为sample.gif的图片，程序如下：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

Dim strHTML as String

StrHTML=""

StrHTML= StrHTML+""

StrHTML = StrHTML +"

用CDONTS发送Email的例子"

StrHTML= StrHTML+"

"

StrHTML= StrHTML+"

以上例子嵌入了图片sample.gif

"

StrHTML= StrHTML+""

With ObjMail

.From= "me@hotmail点虐 "

.To= "abc@263点虐 "

.Subject="Title"

.Body=strHTML

.AttachURL "c:\mydata\sample.gif","sample.gif"

.BodyFormat=0

.EmailFormat=0

.Send

End With

Set objMail=nothing

End Sub

到这里，相信大家一定发现SMTP邮件处理的一个缺陷了。SMTP服务器接收你的输出消息，但并不做发送者名字和地址的验证，这本是由SMTP的异步发送机制所决定的，但有人可能别有用心地用它来假扮别人发送邮件！本文强烈建议各位切勿轻易试用，一旦让ISP知道你的行径，你的帐号极可能会被立即删除。