你的位置：
按键精灵 发送邮件
11:13:46 |
来源: 按键精灵资源站
关于自带的 网络内
我能否给这个函数添加一个返回值？
具体应该怎么写呢？
Function 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
& & //例子：MsgBox lib.网络.发送邮件(&&,&ceshi000001&,&&,&邮件主题&,&邮件内容&,&&)
& & Dim You_ID,MS_Space,Email
& & '帐号和服务器分离
& & You_ID = Split(你的邮箱帐号, &@&)
& & '这个是必须要的，不过可以放心的事，不会通过微软发送邮件
& & MS_Space = &/cdo/configuration/&
& & Set Email = CreateObject(&CDO.Message&)
& & '这个一定要和发送邮件的帐号一样
& & Email.From = 你的邮箱帐号
& & 'Execute &Email.to = 发送邮件地址&
& & Email.CC = 发送邮件地址
& & Email.Subject = 邮件主题
& & Email.Textbody = 邮件内容
& & Email.BodyPart.Charset = &gb2312&
& & //邮件内码
& & If 邮件附件 && && Then
& && &&&Email.AddAttachment 邮件附件
& & End If
& & With Email.Configuration.Fields
& && &&&'发信端口
& && &&&.Item(MS_Space & &sendusing&) = 2
& && &&&'SMTP服务器地址
& && &&&.Item(MS_Space & &smtpserver&) = &smtp.& & You_ID(1)
& && &&&//
& && &&&'SMTP服务器端口
& && &&&.Item(MS_Space & &smtpserverport&) = 25
& && &&&.Item(MS_Space & &smtpauthenticate&) = 1
& && &&&.Item(MS_Space & &sendusername&) = You_ID(0)
& && &&&.Item(MS_Space & &sendpassword&) = 你的邮箱密码&&
& && &&&.Update
& & End With
& & '发送邮件
& &&&Email.Send
& & '关闭组件
& & Set Email = Nothing
& & 发送邮件 = &True&
& & '如果没有任何错误信息，则表示发送成功,否则发送失败
& & If Err Then
& && &&&Err.Clear
& && &&&发送邮件 = &False&
& & End If
End Function