VB发邮件（只要发送）源码有哪些？

jmail组件发邮件看能不能达到你的满意~： Sub SendMail()\x0d\ Dim jmail As Object\x0d\ Set jmail = CreateObject("JMAILMessage") ';建立发送邮件地对象\x0d\ jmailSilent = True ''一般不用改\x0d\ jmailCharset = "gb2312" ''信件地语言编码\x0d\ jmailContentType = "text/html" ''信件地格式html或纯文本\x0d\ jmailFrom = "@163com" ''发信人邮箱\x0d\ jmailFromName = "" ''发信人姓名\x0d\ jmailSubject = "" ''信件主题\x0d\ jmailAddRecipient "" ''收信人地址\x0d\ jmailBody = "" ''信件正文\x0d\ jmailMailServerUserName = "" ''服务器登陆用户名(您地邮件地址)\x0d\ jmailMailServerPassWord = "" ''服务器登陆密码(您地邮件密码)\x0d\ jmailSend ("smtp163com") ''服务器地址\x0d\ jmailClose\x0d\ Set jmail = Nothing\x0d\End Sub

你的描述我不是很明白，可以给你个思路！首先找个爱心形状的，加载进窗体的picturebox中，调整到合适大小。然后用以下让窗体透明。'设置MeBorderStyle = 0

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const LWA_COLORKEY = &H1

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_NCLBUTTONDOWN = &HA1

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()

MeBackColor = &HFF0000

Dim rtn As Long

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY

End Sub

在窗体上添加一个“Microsoft Internet transfer Control”控件，默认名称为Inet1，然后用下面一行代码就可以获得指定网页的源码了：

html = Inet1OpenURL("网址写在这里")

第一计！美人计！话说，美人指的不一定是女人，男人也是人啊，美丽的事物总是让人爱不释手的，一个优秀的男人（至少，表现的优秀一些）是会让大部分正常的女人发狂的

第二计！瞒天过海（此招为一男多女）泡妞的终极高手是如鱼得水，谁见过一条鱼喝一口水的！？整个大海都是咱的！

第三计！隔岸观火！（此招用以挖墙脚）一般来说，某男爱上某女，偏偏，某女名花有主，此时，某男如何自处？首先，就要学会这招隔岸观火，泰山崩于前而色不惊！说的是，看见某女和某女的男朋友亲亲爱爱时，要沉着，冷静！

第四计！狐假虎威！想尽办法套得某女关系，然后大摇大摆在其男友面前晃来晃去，给对手以压力，使其自乱阵脚，目的达到一半

第五计！一探虚实！我们要先制造追求某女的假象，以探听某女极其男友的底细，研究部署下一步

第六计！抛砖引玉，装作情场失意，考场也失意，商场更失意，总之，忧郁缠身，博取同情，得到与某女交流感情使其男友暗中或明中不爽，分化彼此

第七计，趁虚而入，要毫无心机，毫无目的，毫无防备，毫无勇气的，小心翼翼，呵护有加，充分展示第一计中美男形象

第八计，釜底抽薪，之前七计已经造成间隙，这一计彻底打击某男友，使其不攻自破！

第九计，直捣黄龙，在一个风也萧萧雨也萧萧风雨都萧萧，你也萧萧我也萧萧大家都萧萧的不眠之夜里，鼓起你的勇气吧！拿出真心吧！爆发你的力量吧！展现你的风采吧！用你的嘴巴狠狠的（别想歪了）告诉她！我爱你！！！

第十计！功成身退，记住，某女只是大海里的一滴水，千万不要因为这滴水放弃了整篇海洋，记住，某女只是原始森林里的一棵歪脖树，千万别想不开啊！

如此十计，乃上乘兵法，传女不传男~~

孙子算什么，战场有三十六计，情场他算老几，天涯何处见月明，女生看你喊救命！

引用microsoft activex object data 25

Private Sub Form_Load()

Dim xml As Object, ReturnType As String

Set xml = CreateObject("MicrosoftXMLHTTP")

xmlOpen "GET", "http://gimpo2chnet/test/readcgi/kaden/1223701996/", False

xmlsetRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

xmlSend

While Not xmlreadyState = 4

DoEvents

Wend

Dim intFile As Integer

intFile = FreeFile

Open "c:\1html" For Binary Access Write As #intFile

Put #intFile, , xmlresponsebody

Close #intFile

Dim s As New Stream

sOpen

sType = adTypeText

sCharset = "shift-jis"

sPosition = 0

sLoadFromFile "c:\1html"

sPosition = 0

DebugPrint sReadText()

End Sub

确实多了几个，你查找<html,把前面的字符去掉