Using 'SendKeys' in a COM object ?

  • Thread starter Thread starter noone
  • Start date Start date
N

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.
 
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}"
Click to expand...

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
 
Back
Top