如何使用“回复模板”？

jesse_yang

比如，回复邮件时，自动输入

“（收件人姓名），你好”

相当于Word中的域一样

怎么可以做到这样呢？

jesse_yang

汗~

没人知道吗？

york888

我也想知到!

jesse_yang

高人指点一下！

york888

这里通常是不会有人回答的需要的话我给一个程序!

passion82

我也想知道哦

以前没有用过outlook。呵呵

sage007

Sub Approve() Dim myOlApp As Outlook.Application Dim myNameSpace As Outlook.NameSpace dim HeName as string Dim MyItem As Outlook.MailItem Dim myItem2 As Outlook.MailItem Dim myAction As Outlook.Action Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") On Error GoTo ErrorHandler Set MyItem = myOlApp.ActiveInspector.CurrentItem For Each myAction In MyItem.Actions If myAction.Name = "答复" Then Set myItem2 = myAction.Execute myItem2.To = MyItem.SenderName HeName = MyItem.SenderName myItem2.Body = HeName & "您好." & Chr(13) & Chr(13) & myItem2.Body myItem2.Display MyItem.Close olDiscard Exit For End If Next myAction Exit Sub ErrorHandler: MsgBox "There is no current item." End Sub 放在模块里，时间原因没测试

zhangqiong

我也想知道怎么设置？

不过对程序来说，我可是外行，最好是直接可以设置的。