求那位高手帮我写一个宏(以附件自动发送邮件)

vbs自动发邮件

这个vbs的内部模块没有这个功能。要第三方软件的动态链接库（dynamic link library）文件进行调用。

可以，添加超大附件，在添加页面的右下角有一个选项，上传完后自动发送邮件，选上就可以了。

最早的QQ邮箱还只是QQ用户之间发送域内消息的工具，不支持向外域发送邮件。后来开放了向外域发送功能，这是才能成为真正的邮箱。免费用户容量为5M，最大附件4M，的确小的可怜。通过捆绑在QQ客户端的软件登陆，速度还不错，而那时网易和Gmail的容量都早已上G了。

首先服务器上要安装发送邮件的组件,如JMAIL

然后编写代码

Email = " test@163 " ''收件人Email

Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象

jmail.silent = false '屏蔽例外错误，返回FALSE跟TRUE两值

jmail.logging = true '启用邮件日志

jmail.Charset = "GB2312" '邮件的文字编码为国标

jmail.ContentType = "text/html" '邮件的格式为HTML格式

jmail.AddRecipient Email '邮件收件人的地址

jmail.From = " test@163 " '发件人的E-MAIL地址

jmail.MailServerUserName = " test@163 " '登录邮件服务器所需的用户名

jmail.MailServerPassword = "test" '登录邮件服务器所需的密码

jmail.Subject = "Jmail邮件" '邮件的标题

jmail.Body = "Jmail邮件测试" '邮件的内容

jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

jmail.Send("mail.163") '执行邮件发送（通过邮件服务器地址）。请修改成你的邮件服务器SMTP地址

jmail.Close() '关闭对象

你另一个提问我不是回答你了么，不用用到宏，全选粘贴就可以了！！把不要的东西筛选出来删除就可以了