将突出显示的电子邮件转发给特定收件人 [英] Forward a highlighted email to a specific recipient
本文介绍了将突出显示的电子邮件转发给特定收件人的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
如何将突出显示的电子邮件转发给特定收件人?
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屋!
查看全文