• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

【脚本源码】[8.X例子]发送邮件,可带附件发送! [复制链接]

1#
请不要修改本邮箱密码,为了方便测试,感谢大家的合作
  1. //测试例子演示:不要修改邮箱密码,感谢!
  2. If 发送邮件("ceshi0000001@163.com","ceshi000001","ceshi0000001@163.com","请不要修改本邮箱密码,为了方便测试,感谢大家的合作","请不要修改本邮箱密码,为了方便测试,感谢大家的合作","")=True Then
  3. MsgBox "发送成功!"
  4. Else
  5. MsgBox "发送失败!"
  6. End If
复制代码
下面是函数过程:
  1. Function 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
  2. '帐号和服务器分离
  3. You_ID = Split(你的邮箱帐号, "@")
  4. '这个是必须要的,不过可以放心的事,不会通过微软发送邮件
  5. MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
  6. Set Email = CreateObject("CDO.Message")
  7. '这个一定要和发送邮件的帐号一样
  8. Email.From = 你的邮箱帐号
  9. //Execute "Email.to = Send_address"
  10. Email.CC = 发送邮件地址
  11. Email.Subject = 邮件主题
  12. Email.Textbody = 邮件内容
  13. If 邮件附件

    已有1评分我要评分查看所有评分

    发新话题 回复该主题