Fixed font
Subject: Re: How to convert email to task on an OPENED EMAIL, pls?
Author: Michael Bednarek Date: 13 Feb
References: 1 2
Author: Michael Bednarek Date: 13 Feb
References: 1 2
On Tue, 7 Feb 2012 09:45:32 -0800 (PST), StargateFan wrote in
microsoft.public.outlook.program_vba:
Instead of
For i = 1 To cntSelection
Set olItem = olExp.Selection.Item(i)
try using
Application.ActiveInspector.CurrentItem
In detail:
* remove the loop "For i = 1 To cntSelection" and its "Next"
* instead of "Set olItem = olExp.Selection.Item(i)" use
"Set olItem=olApp.ActiveInspector.CurrentItem"
* the statements
Dim cntSelection As Integer
cntSelection = olExp.Selection.Count
are no longer needed
* (fldCurrent was and is unneeded, too)
Untested. Good luck.
microsoft.public.outlook.program_vba:
>Does anyone know how to convert the macro here to work while the email
>message is OPEN? Currently, it only works on closed, selected email
>messages only.
>message is OPEN? Currently, it only works on closed, selected email
>messages only.
Instead of
For i = 1 To cntSelection
Set olItem = olExp.Selection.Item(i)
try using
Application.ActiveInspector.CurrentItem
In detail:
* remove the loop "For i = 1 To cntSelection" and its "Next"
* instead of "Set olItem = olExp.Selection.Item(i)" use
"Set olItem=olApp.ActiveInspector.CurrentItem"
* the statements
Dim cntSelection As Integer
cntSelection = olExp.Selection.Count
are no longer needed
* (fldCurrent was and is unneeded, too)
Untested. Good luck.
Michael Bednarek, Brisbane "ONWARD"
