- 版主
- 211464
- 21164
- 13
- 258 朵
- 47817 个
- 60 个
- 263800
- 2008-12-23
|
1#
t
T
发表于 2010-01-20 17:15
|
|只看楼主
请不要修改本邮箱密码,为了方便测试,感谢大家的合作- //测试例子演示:不要修改邮箱密码,感谢!
- If 发送邮件("ceshi0000001@163.com","ceshi000001","ceshi0000001@163.com","请不要修改本邮箱密码,为了方便测试,感谢大家的合作","请不要修改本邮箱密码,为了方便测试,感谢大家的合作","")=True Then
- MsgBox "发送成功!"
- Else
- MsgBox "发送失败!"
- End If
复制代码下面是函数过程: - Function 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
- '帐号和服务器分离
- You_ID = Split(你的邮箱帐号, "@")
- '这个是必须要的,不过可以放心的事,不会通过微软发送邮件
- MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
- Set Email = CreateObject("CDO.Message")
- '这个一定要和发送邮件的帐号一样
- Email.From = 你的邮箱帐号
- //Execute "Email.to = Send_address"
- Email.CC = 发送邮件地址
- Email.Subject = 邮件主题
- Email.Textbody = 邮件内容
- If 邮件附件
|