cmaedu.com
cmaedu.comwinsock,xmlhttp,winhttprequest,inet 都可以,只要支持http访问的控件(组件)都可以.....
下载一个jmail.dll引用到工程里
Private Sub Command1_Click()
cmaedu.com On Error Resume Next
cmaedu.com Dim rs_Jmail As New jmail.Message
Dim rs_Flag As Boolean
rs_Jmail.Charset = "GB2312"
cmaedu.com rs_Jmail.Logging = True '启动日志
cmaedu.com rs_Jmail.From = "abc@sina.com" '发件人电子邮件
rs_Jmail.FromName = "abc先生" '发件人姓名
rs_Jmail.AddRecipient "ddd@qq.com" '添加收件人
rs_Jmail.AddRecipient "mmm@sina.com", "mmm小姐" '添加更多收件人,第二个是收件人姓名
rs_Jmail.Subject = "邮件主题" '邮件主题
cmaedu.com rs_Jmail.Body = "正文" '邮件正文
cmaedu.com rs_Jmail.AppendText "389" '追加的一些文字
rs_Jmail.MailServerUserName = "abc@sina.com" '发件 的邮箱
rs_Jmail.MailServerPassWord = "abc" '发件人的邮箱密码
rs_Jmail.Priority = 3
cmaedu.com rs_Flag = rs_Jmail.Send("smtp.sina.com") '发件邮箱的smtp服务器
cmaedu.com If rs_Flag Then
MsgBox "邮件发送成功"
Else
MsgBox "邮件发送失败"
End If
Text1.Text = rs_Jmail.Log
cmaedu.com Text1.Text = Text1.Text vbCrLf rs_Jmail.ErrorCode
cmaedu.comEnd Sub
cmaedu.com我没有仔细看你的程序,估计你没有错,错在邮件服务器。因为很多邮件服务器不支持jmail收发邮件。
cmaedu.com你用163的邮箱,而且要升过及的3G油箱。
cmaedu.com下面是我的代码,我试过了可以的,而且可以带附件的。
Sub
cmaedu.comSendMail(Optional
cmaedu.comByVal
sSubject
As
String,
cmaedu.comOptional
ByVal
sBody
As
cmaedu.comString,
cmaedu.comOptional
ByVal
sFileName
As
cmaedu.comString)
cmaedu.comDim
jmail
Set
jmail
CreateObject("jmail.Message")
cmaedu.comjmail.Charset
"gb2312"
cmaedu.comjmail.Priority
cmaedu.com1
'邮件状态,1-5
1为最高
jmail.MailServerUserName
cmaedu.com"c55c55"
'Email帐号
cmaedu.comjmail.MailServerPassWord
"XXXXX"
cmaedu.com'Email密码
'jmail.FromName
cmaedu.com"hu"
'发信人姓名
cmaedu.comjmail.From
cmaedu.com"c55c55@163.com"
cmaedu.com'发邮件地址地址
jmail.Subject
"来信了"
cmaedu.com'主题
cmaedu.comjmail.AddRecipient
cmaedu.com"c44c44@163.com"
'收信人地址
jmail.Body
cmaedu.comsBody
'信件正文
jmail.AddAttachment
("I:\远程监控V1.0\Client\wj.jpg")‘附件
jmail.Send
("smtp.163.com")
cmaedu.comSet
jmail
cmaedu.comNothing
cmaedu.comEnd
cmaedu.comSub
注意:发件人邮箱必须是07年11月以前申请的,而且必须是升过级的才行,126的也是一样。上面两个邮箱都是我的,我将两个邮箱互换就不行了。
cmaedu.com邮件收发很麻烦,别说你只50分,你就是拿500块钱,也未必会有人告诉你,估计知道的人不多,而且知道的不一定会告诉你。
我至今也只能发送邮件,接收带附件的邮件我至今也没搞好。
手机怎么设定电子邮箱 1、我们找我们手机中的“设置”选项,打开它,点击“全部设置”,点击“账户”下方的“添加账户”之后,我们 就可以看见“电子邮件”的选项了。2、我们任意方式点击“电子邮件”,如果以前...
有什么好的短信验证码接收平台? 选择短信验证码平台注意以下几点:1、速度。发送验证码后,用户只能等收到验证码才可继续注册、登陆或其他操作,所以对验证码到达速度要求比较高,能达到3S左右到达可以选择,建...
22.98万起,车长5米,还有混动可选,福特锐界L 1、今天我为大家带来的这款福特锐界L便是一台颇受欢迎的中型SUV,新车在售7款,售价298—30.98万,一起来看看吧。2、在2023上海车展上,长...
网易邮箱怎么换绑 因为更换了手机号,想要将绑定的账号信息都进行换绑手机号操作。那网易邮箱怎么换绑? 网易邮箱怎么换绑 1、登录网易邮箱网站后,点击安全手机。...
那马航MH370据说被美国遥控操纵沉入印度洋的! 马航MH370客机今年3月神秘失联后,多国持续进行大范围搜索,却始终没有寻获。日前,法国一名前航空公司高管语出惊人,称MH370很可能是被担心“9·1...
如何打开邮箱中的邮件? 步骤一:登录QQ邮箱 在电脑或手机上打开QQ邮箱登录界面,输入正确的QQ号码和密码,点击登录。步骤二:进入收件箱页面 登录成功后,进入QQ邮箱的主页面。如果文件格式大小都合适,...