求助，选中邮件复制到指定文件夹

nwg_2000 · 发表于 2013-10-29 21:56

很简单的一个功能
收件箱选中一封邮件，然后右键或快捷键或是菜单栏按钮直接复制到一个现有的文件夹 “重要事项”

请赐教代码，谢谢！

nwg_2000 · 发表于 2013-10-29 21:58

Sub CreateNewbar()
'//创建工具栏
Dim cmb As CommandBar, ct As CommandBarButton
Set cmb = Application.ActiveExplorer.CommandBars.Add(Name:="New", Position:=msoBarTop) '//新建工具栏
cmb.Visible = True
Set ct = cmb.Controls.Add(Type:=msoControlButton) '//新建按钮
With ct
      .Caption = "自动回复"
      .FaceId = 80
      .OnAction = "getMailReplyTO" '//过程名称
      .Style = msoButtonIconAndCaption
End With

End Sub

找到一段代码可以借鉴，可惜我不知道如何写 “复制邮件”的代码

nwg_2000 · 发表于 2013-10-31 10:41

{:soso_e101:}木有人吗

		自动登录	找回密码
密码			免费注册

[求助] 求助，选中邮件复制到指定文件夹