189 8069 5689
在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
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)
下载
JMAIL组件没有安装。或注册。。
最好下载4.4pro破解版安装。
或者regsvr32 注册下 dll文件
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知道你的行径，你的帐号极可能会被立即删除。