[共享]100分收集 免費版的各類組件或代碼

[都图软件工作室]

比如說以下的幾個

名稱：Jmail組件
功能：發送郵件

名稱：HTMLAREA
功能：格式文本編輯

名稱：FCKeditor
功能：HTML編輯器（可作新聞發布，集成圖片上傳）

………

[都图软件工作室]

樓上幾位都沒懂 樓主 我的意思

我是想讓大伙把你所知道的一些免費 組件及代碼，說出來

共享一下

[笨笨兔兔兔兔兔]

Dim Response As String
Dim Reply As Integer
Dim DateNow As String
Dim first As String, Second As String, Third As String
Dim Fourth As String, Fifth As String, Sixth As String
Dim Seventh As String, Eighth As String
Dim Start As Single, Tmr As Single



Sub SendEmail(MailServerName As String, FromName As String, _
FromEmailAddress As String, ToName As String, _
ToEmailAddress As String, EmailSubject As String, _
EmailBodyOfMessage As String)

Winsock1.LocalPort = 0
'端口设置为0,否则在启动程序的时候信就已经发出去了

If Winsock1.State = sckClosed Then
'如果Winsock关闭中
DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") _
& " " & Format(Time, "hh:mm:ss") & "" & " -0600"
first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf
'获得发件人地址
Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf
'收件人地址
Third = "Date:" + Chr(32) + DateNow + vbCrLf
'发件时间
Fourth = "From:" + Chr(32) + FromName + vbCrLf
' 发件人姓名
Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf
' 收件人姓名
Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf
' 邮件主题
Seventh = EmailBodyOfMessage + vbCrLf
' 邮件正文
Eighth = Fourth + Third + Ninth + Fifth + Sixth ' 生成SMTP发送邮件所必须的模式
Ninth = "X-Mailer: EBT Reporter v 2.x" + vbCrLf '发送邮件的软件名称,可以自定义

Winsock1.Protocol = sckTCPProtocol ' 设置发送的协议
Winsock1.RemoteHost = MailServerName ' 设置服务器地址
Winsock1.RemotePort = 25
'设置SMTP端口
Winsock1.Connect ' 连接

WaitFor ("220") '等待连接成功

StatusTxt.Caption = "Connecting...."
StatusTxt.Refresh

Winsock1.SendData ("HELO worldcomputers.com" + vbCrLf)
'打招呼

WaitFor ("250")

StatusTxt.Caption = "Connected"
StatusTxt.Refresh
'连接成功
Winsock1.SendData (first)
'发件人地址
StatusTxt.Caption = "Sending Message"
StatusTxt.Refresh

WaitFor ("250")

Winsock1.SendData (Second)
'收件人地址

WaitFor ("250")

Winsock1.SendData ("data" + vbCrLf)

WaitFor ("354")


Winsock1.SendData (Eighth + vbCrLf)
Winsock1.SendData (Seventh + vbCrLf)
Winsock1.SendData ("." + vbCrLf)
'发送邮件信息

WaitFor ("250")

Winsock1.SendData ("quit" + vbCrLf)

StatusTxt.Caption = "Disconnecting"
StatusTxt.Refresh
'发送完毕断开
WaitFor ("221")

Winsock1.Close
Else
MsgBox (Str(Winsock1.State))
End If

End Sub
Sub WaitFor(ResponseCode As String)
'等待回应
Start = Timer
'取得当前时间,秒为单位
While Len(Response) = 0
'无响应
Tmr = Start - Timer
DoEvents
'让系统保持检查响应
If Tmr > 50 Then
'超时
MsgBox "SMTP service error, timed out while waiting for response", 64, MsgTitle
Exit Sub
End If
Wend
While Left(Response, 3) <> ResponseCode
'查看左面3个字符是否为所需要的字符(例如"250")
DoEvents
If Tmr > 50 Then
'超时报错
MsgBox "SMTP service error, impromper response code." _
& "Code should have been: " + ResponseCode + " Code recieved: " + Response, 64, MsgTitle
Exit Sub
End If
Wend
Response = "" ' Sent response code to blank **IMPORTANT**
End Sub




Private Sub cmdSend_Click()
SendEmail txtEmailServer.Text, txtFromName.Text, txtFromEmailAddress.Text, txtToEmailAddress.Text, txtToEmailAddress.Text, txtEmailSubject.Text, txtEmailBodyOfMessage.Text
'MsgBox ("Mail Sent")
StatusTxt.Caption = "Mail Sent"
StatusTxt.Refresh
Beep

Close
End Sub

Private Sub cmdExit_Click()

End

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'收到数据后
'把Winsock1的数据放到Response中
Winsock1.GetData Response ' Check for incoming response *IMPORTANT*

End Sub

[kkkbs]

Up

[笨笨兔兔兔兔兔]

mail组件我有代码但不是jmail的

你说的其他的我就不知道源码了

[AntinomyArt]

板凳

[flyonet]

这个网上都有吧？

[Coverboy_6]

都能找到的

[king2003]

免费的

[lei7909]

up