请教，如何在excel下自动保存并通过office 的outlook2003发送邮件

答案:2 悬赏:0 手机版

解决时间 2021-05-13 22:25

提问者网友：温旧梦泪无声
2021-05-13 14:41

公司里有份调查问卷是发给公司内部员工做调查的大概100份左右，想在表格上做个按钮，在做完问卷后只要按这个按钮就可以自动保存并把保存的问卷通过outlook2003发送回我的邮箱，请问该如何编写这个宏。先谢谢了！

最佳答案

五星知识达人网友：底特律间谍
2021-05-13 15:05

Sub SAVE_Click()ThisWorkbook.SaveAs Filename:="c:\ask. xls" '保存当前的工作簿文件Shell "C:\Program Files\Outlook Express\msimn.exe", vbMaximizedFocus '打开Outlook 程序SendKeys "%mn", True '打开新邮件窗口SendKeys "ddddd@yahooo.com.cn", True '输入收件人地址SendKeys "{Tab}{Tab}", TrueSendKeys "aaa", True '输入邮件主题SendKeys "%ia", TrueSendKeys "c:\ ask. xls", True '插入指定的附件SendKeys "{enter}", TrueSendKeys "%s", True '发送邮件End Sub

全部回答

1楼网友：撞了怀
2021-05-13 15:12

按钮你会加的，很简单的代码： ActiveWorkbook.Save ActiveWorkbook.SendMail "张三@qq.com", "调查问卷" '发邮件，请改为自己的邮箱地址 ActiveWorkbook.Close 0

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息