将突出显示的电子邮件转发给特定收件人 [英] Forward a highlighted email to a specific recipient

查看:154
本文介绍了将突出显示的电子邮件转发给特定收件人的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

如何将突出显示的电子邮件转发给特定收件人?

How do I forward a highlighted email to a specific recipient?

是否可以将其链接到CTRL-ALT-快捷方式?

Is it possible to link that to a CTRL-ALT- shortcut?

我使用的是Windows 7,Outlook 2010

I'm on Windows 7, Outlook 2010

推荐答案

将突出显示的电子邮件转发给特定收件人

Forward a highlighted email to a specific recipient

返回当前突出显示的电子邮件:

GetCurrentItem会将当前选择或打开的电子邮件返回给呼叫过程.

Return the currently highlighted email:

GetCurrentItem will return the currently selected or opened email to the calling procedure.

Function GetCurrentItem() As Object
' returns reference to current item, either the one
' selected (Explorer), or the one currently open (Inspector)

  Select Case True
  Case IsExplorer(Application.ActiveWindow)
    Set GetCurrentItem = ActiveExplorer.Selection.item(1)
  Case IsInspector(Application.ActiveWindow)
    Set GetCurrentItem = ActiveInspector.CurrentItem
  End Select

End Function
Function IsExplorer(itm As Object) As Boolean
  IsExplorer = (TypeName(itm) = "Explorer")
End Function
Function IsInspector(itm As Object) As Boolean
  IsInspector = (TypeName(itm) = "Inspector")
End Function

转发所选电子邮件:

这使用以上功能转发和显示电子邮件.其余的取决于您.

Forward the selected email:

This uses the above functions to forward and display an email. The rest is up to you.

Sub FwdMail()

Dim obj As Object
Dim msg As Outlook.MailItem

Set obj = GetCurrentItem

If TypeName(obj) = "MailItem" Then
  Set msg = obj
  With msg
    .Forward
    .Display
  End With
End If

End Sub

这篇关于将突出显示的电子邮件转发给特定收件人的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆