请高手说明下，  怎么制作或者提供个程序源码 有包含VB邮箱发送程序
（教程也OK）
谢谢！

忘了，选修i学过，VBsCRIPT  可以做到，你学下动态网页设计这部分的东西

使用JMail组件比较方便，当然你高兴的话愿意用WinSock也可以。

JMail组件运行在应用层，WinSock或者WinsockAPI工作在传输层，看你要用哪个。（参考TCP/IP协议）

以下是完整代码，不须控件，本人测试过，正常发送。
'在form上放Command1，Text1.Text，Text2.Tex
Private Sub Command1_Click()

'By Jerry Ye 'http://hi.baidu.com/leaffar/blog/item/86c48e45116daf3a869473d6.html
On Error Resume Next
f = ("123456@)'发送邮箱
smtp = ("smtp.)'发送邮箱服务器
u = ("123456")'发送邮箱用户名
p = ("789")'发送邮箱密码
t = ("22333@)'接收邮箱
m = Text1.Text'邮件标题
msg = Text2.Tex't邮件内容

'将上面的输入框变量全部直接换成默认值就可以实现后台发送邮件，无提示！
NameSpace = "http://schemas.
Set Email = CreateObject("CDO.Message")
Email.From = f
Email.To = t
Email.Subject = m
Email.Textbody = msg
Email.AddAttachment j
With Email.Configuration.Fields
.Item(NameSpace & "sendusing") = 2
.Item(NameSpace & "smtpserver") = smtp
.Item(NameSpace & "smtpserverport") = 25
.Item(NameSpace & "smtpauthenticate") = 1
.Item(NameSpace & "sendusername") = u
.Item(NameSpace & "sendpassword") = p
.Update
End With
Email.Send
End Sub

[[it] 本帖最后由 klj123 于 2008-9-5 15:43 编辑 [/it]]

Private Sub Form_Load()
MAPISession1.SignOn
End Sub

Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub

Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "郵件發送完畢！", , "發送郵件"
End Sub

需加載MAPISession1，MAPIMessages1
三個標簽，三個文本，一個按鈕