cmaedu.comvb发邮件,vbpost邮箱

hacker2年前黑客组织181

cmaedu.com

请问关于vb的post数据注册淘宝问题

cmaedu.comwinsock,xmlhttp,winhttprequest,inet 都可以,只要支持http访问的控件(组件)都可以.....

如何用vb发邮件?

下载一个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

如何用vb发邮件?

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块钱,也未必会有人告诉你,估计知道的人不多,而且知道的不一定会告诉你。

我至今也只能发送邮件,接收带附件的邮件我至今也没搞好。

标签: vbpost邮箱

相关文章

cmaedu.com怎样在手机开电子邮箱账号呢,怎样在手机开电子邮箱账号

cmaedu.com怎样在手机开电子邮箱账号呢,怎样在手机开电子邮箱账号

手机怎么设定电子邮箱 1、我们找我们手机中的“设置”选项,打开它,点击“全部设置”,点击“账户”下方的“添加账户”之后,我们 就可以看见“电子邮件”的选项了。2、我们任意方式点击“电子邮件”,如果以前...

cmaedu.com在线接收邮箱验证码,私密短邮箱验证码接收平台

cmaedu.com在线接收邮箱验证码,私密短邮箱验证码接收平台

有什么好的短信验证码接收平台? 选择短信验证码平台注意以下几点:1、速度。发送验证码后,用户只能等收到验证码才可继续注册、登陆或其他操作,所以对验证码到达速度要求比较高,能达到3S左右到达可以选择,建...

cmaedu.com福特锐界六座有没有-黑客24小时在线接单网站-福特锐界邮箱有没有防浪板

cmaedu.com福特锐界六座有没有-黑客24小时在线接单网站-福特锐界邮箱有没有防浪板

22.98万起,车长5米,还有混动可选,福特锐界L 1、今天我为大家带来的这款福特锐界L便是一台颇受欢迎的中型SUV,新车在售7款,售价298—30.98万,一起来看看吧。2、在2023上海车展上,长...

cmaedu.com换绑手机号邮箱号是什么-黑客24小时在线接单网站-邮箱换绑手机邮箱号

cmaedu.com换绑手机号邮箱号是什么-黑客24小时在线接单网站-邮箱换绑手机邮箱号

网易邮箱怎么换绑 因为更换了手机号,想要将绑定的账号信息都进行换绑手机号操作。那网易邮箱怎么换绑? 网易邮箱怎么换绑 1、登录网易邮箱网站后,点击安全手机。...

cmaedu.com马航真实事件公布,马航黑客真实消息

cmaedu.com马航真实事件公布,马航黑客真实消息

那马航MH370据说被美国遥控操纵沉入印度洋的! 马航MH370客机今年3月神秘失联后,多国持续进行大范围搜索,却始终没有寻获。日前,法国一名前航空公司高管语出惊人,称MH370很可能是被担心“9·1...

cmaedu.com一个邮箱外面一封信-黑客24小时在线接单网站-有一封邮件在邮箱里

cmaedu.com一个邮箱外面一封信-黑客24小时在线接单网站-有一封邮件在邮箱里

如何打开邮箱中的邮件? 步骤一:登录QQ邮箱 在电脑或手机上打开QQ邮箱登录界面,输入正确的QQ号码和密码,点击登录。步骤二:进入收件箱页面 登录成功后,进入QQ邮箱的主页面。如果文件格式大小都合适,...

评论列表

访客
2022-10-05 07:55:03

s_Jmail.Charset = "GB2312" rs_Jmail.Logging = True '启动日志 rs_Jmail.From = "abc@s

访客
2022-10-05 08:48:26

。SubSendMail(OptionalByValsSubjectAsString,_OptionalByValsBodyAsString,_OptionalByValsFileNameAsString)DimjmailSe

访客
2022-10-05 12:24:53

请问关于vb的post数据注册淘宝问题winsock,xmlhttp,winhttprequest,inet 都可以,只要支持http访问的控件(组件)都可以.....如何用vb发邮件?下载一个jmail.dll引用到工程里Private Sub Command1_Click() On E

访客
2022-10-05 03:40:46

姓名 rs_Jmail.AddRecipient "ddd@qq.com" '添加收件人 rs_Jmail.AddRecipient

访客
2022-10-05 10:10:21

abc@sina.com" '发件 的邮箱 rs_Jmail.MailServerPassWord = "abc" '发件人的邮箱密码 rs_Jmail.Pri

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。