用于将SAVED版本的文档附加到电子邮件的宏

时间:2016-09-29 15:23:41

标签: excel vba outlook macros

我有一个宏附加到命令按钮,该按钮用于准备用户发送的电子邮件。问题是,用户必须记住在按下发送按钮之前保存文档。我宁愿不依赖用户记住保存,也留下了太多的错误空间。我是否可以在SendEmail宏之前输入一个自动保存文档的宏?这就是我到目前为止所做的:

(RelativeLayout xmlns: ......)
(LinearLayout)
/------- In this I am adding buttons programmatically ---/**
(/LinearLayout)
(/RelativeLayout)

1 个答案:

答案 0 :(得分:0)

当然,在您发送电子邮件之前,您可以:

Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalDocumentFormat

If ActiveDocument.Saved = False Then ActiveDocument.Save

您可能希望在此之前添加Application.DisplayAlerts = False,因此您没有看到通知“是否要保存”,然后将Application.DisplayAlerts = True放在后面,以重新打开通知。

编辑:目前尚不清楚你是否从Excel运行它,我认为你是。