您的位置：首页 > Web前端 > HTML

封装了一个发邮件的dll,支持附件，HTML

2008-06-13 03:22 519 查看

vb调用代码：

Private Declare Function SendMail Lib "sMailDll.dll" _(ByRef mi As MailInfo) As Integer

Private Type MailInfo strSmtpAddr As String ' smtp服务器地址 strPort As String 'smtp端口 strAccount As String ' 帐号 strPassword As String '密码 strSendfrom As String '
发送源地址 strSendto As String ' 目地地址 strSenderName As String ' 发送者姓名 strReceiverName As String ' 接收者姓名 strSubject As String ' 邮件主题 strContent As String ' 邮件正文 strAdjunct As String '附件列表多个附件以","隔开 isHtml As
Integer '是否以HTML发送End Type

Private Sub Command1_Click() Dim mi As MailInfo

mi.strSmtpAddr = T1.Text ' smtp服务器地址 mi.strPort = T2.Text 'smtp端口 mi.strAccount = T3.Text ' 帐号 mi.strPassword = T4.Text '密码 mi.strSendfrom = T6.Text ' 发送源地址 mi.strSendto
= T8.Text ' 目地地址 mi.strSenderName = T5.Text ' 发送者姓名 mi.strReceiverName = T7.Text ' 接收者姓名 mi.strSubject = T9.Text ' 邮件主题 mi.strContent = T11.Text ' 邮件正文 If T10.Text = "" Then mi.strAdjunct = "" Else mi.strAdjunct
= T10.Text '附件列表多个附件以","隔开 End If mi.isHtml = 1 '是否以HTML发送End With'mi.strAccount = "123456" 'MsgBox mi.strAdjunct 'Exit Sub'Dim iSend As Integer'iSend = SendMail(mi)If SendMail(mi) = 1 ThenMsgBox "发送成功"End IfEnd Sub

sMailDll.rar 下载

sMailDll.rar 下载

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航