163邮箱怎么统计已转发的文件数量

1、在网易邮伍族箱登录窗口页面中，输入网易邮箱账号和密余橘毕码，点击登录按钮。

2、打开163邮箱主页面之后，点击页面左侧已发竖芹送菜单。

3、打开已发送页面之后，即可查看到已经发送成功的邮件。

4、最后，点击进入邮件详情页面，即可查看该邮件的具体内容信息。

Outlook可以实现这个功能，但是有一个前提就是，参加调查的双方都必须是通过Exchange模式收

发邮件，不能是POP3模式。

提示：Outlook默认的投票选项只有“是；否”、“是；否；可能”和“赞成；反对”三类意

见，如果你正铅银有自己的调查反馈方式的话，可以自己修改，不同意见之间要用半角符号的“”（分

号）隔开。

Microsoft公司的Outlook在邮件方面的功能有很多都还没有被大家挖掘出来，其中的“投票与

跟踪”就是很实用的一个功能，我们可以在邮件中增加投票按钮，当客户收到邮件之后就可以直接

进行投票，并将反馈结果用邮件直接传递回来，效率就大大提高了。

1、启动Outlook，新建一封邮件，在d出的“新邮件”窗口中输入客户的E-mail地址和邮件正

文。

2、邮件正文输入完毕之后，单击“选项”按钮，在d出的“邮件选项”对话框中勾选“使用投

票按钮”，这样就可以在邮件中使用投票功能了。

3、当客户收到带有投票选项的电子邮件之后，举宴鼠标移动至邮件顶部的时候，就会出现投票的选

项，客户可以根据自己的激猛决定进行投票。

4、投票完成之后，Outlook会d出一个响应对话框，询问是否立即发送响应，如果没有问题的

话，就可以立即发送了；如果对投票决定有更改的话，可以选择“发送前编辑响应”。

5、制作投票邮件的重要目的就是收集信息反馈。在Outlook中，单击“已发送邮件”文件夹，

在d出的“邮件”窗口中，单击“跟踪”标签，这样就可以了解客户反馈的情况了。

用vba编程可以完成。

第一层循环：遍让漏历文件唯坦夹

第二层循环：遍历邮件。遍历邮件时计数。

循环结束后，计数结果就是邮件总数。可以用msgbox显示统计结果。

举例如下：

第一坦山烂步：编制代码如下：

Sub 统计邮件()

  Dim nmspc As NameSpace

  Dim mlItem As MailItem

  Dim objFolder As MAPIFolder

  Dim objFolder2 As MAPIFolder

  Dim mitem As MailItem

  Dim i, J As Integer

  Dim MYO As Object

  i = 0

  Set nmspc = GetNamespace("MAPI")

  Set objFolder = nmspc.GetDefaultFolder(olFolderInbox)

  For Each objFolder2 In objFolder.Folders

      For Each mlItem In objFolder2.Items

       

             i = i + 1

      Next mlItem

  Next objFolder2

  MsgBox "邮件总数：" + Str(i)

End Sub

第二步：执行代码，结果如图所示：

---