Using 'SendKeys' in a COM object ?

[noone]

Hello all,
Struggling through this

Anyways, I am close to fully converting my VBA macro into a COM object, but
I seem
to have hit a snag.

Wherever I have 'SendKeys' statements, they are ignored, skipped over, or
something.
For example, this works fine in VBA as a macro, but not in my COM version.

SendKeys "^f"
SendKeys "#Unsolicited Email"
SendKeys "%s"
SendKeys "{DELETE}"

Any ideas ?
Thanks.

 

[crappybottom]

Anyways, I am close to fully converting my VBA macro into a COM object,
but

I seem
to have hit a snag.

Wherever I have 'SendKeys' statements, they are ignored, skipped over, or
something.
For example, this works fine in VBA as a macro, but not in my COM version.

SendKeys "^f"
SendKeys "#Unsolicited Email"
SendKeys "%s"
SendKeys "{DELETE}"

instead of using SendKeys, I am going to try and adapt this code into mine:

Set objExplorer = Application.ActiveExplorer
If objExplorer.Selection.Count > 0 Then
Set SafeItem = CreateObject("Redemption.SafeMailItem")
Set myForward = objExplorer.Selection.Item(1).Forward
SafeItem.Item = myForward
With SafeItem
.Recipients.Add (e-mail address removed)
.Send
End With
End If