outlook全部回复的问题

hyl

请教，outlook2003有个全部回复选项，我在一个文件夹下有100个从不同地址收过来的邮件，我想知道，怎么样可以全部回复这些邮件，回复的内容相同。（不要告诉我一个一个回复啊）谢谢

naive_1010

Outlook“全部回复” 里的功能好像是对一分Mail里的所有接受者做一个集体回复的。和你说的功能好像不大一样。
一般你都会管理你的分发者的，如建立一个Distribution List，每次些邮件时选取这个List，就可以对其中的所有用户做回复了。

naive_1010

刚再看了一下你的内容，我大胆地猜测一下你的应用场景，可能和我以前遇上的一个会比较像。如是，那我说说我的解决方案。
我是用Access+ Outlook来解决这个问题的。我是要对我的客户做一个问卷调查，通过邮件来收集他们的反馈数据。
客户回复的邮件信息会自动写入Access文件里去．

具体的方案你可以参考MSDN上的介绍：　http://office.microsoft.com/zh-cn/access/HA100154272052.aspx

希望这个会是你要的方案．　
有问题再交流！！　呵呵！　

Long_III

以下代码供参考，自己根据实际情况修改吧
Sub Mail_Replyall()
Dim Detailfolder As MAPIFolder
Dim Myitem As MailItem, MyitemRE As MailItem

Set myNameSpace = Application.GetNamespace("MAPI")
Set Myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set Detailfolder = Myfolder.Folders("99 Others") '找出你要回复的文件夹

For i = 1 To 1 '根据自己的需要循环吧
Set Myitem = Detailfolder.Items(i)
Set MyitemRE = Myitem.ReplyAll

With MyitemRE
    .Body = "这是一封自动回复的邮件。。。。。。"
    .Display '显示，实际发送时不需要显示哦
    '.send '有很多的发送示例，自己找下
End With
Next

Set myNameSpace = Nothing
Set myfoldre = Nothing
End Sub
http://club.excelhome.net/thread-343492-1-1.html
http://club.excelhome.net/thread-340964-1-1.html