Решение есть.

MailItem.Display

For i = 1 To 200000 ' пауза, ее хватит, чтобы активировать окно сообщения
DoEvents
Next i

'keybd_event &H23, 0, 0, 0 'end key
'keybd_event &H28, 0, 0, 0 'key down
keybd_event &H11, 0, 0, 0 'ctrl
keybd_event Asc("V"), 0, 0, 0 ' V
keybd_event &H11, 0, &H2, 0 ' отжать ctrl
keybd_event Asc("V"), 0, &H2, 0 'отжать V, хотя не уверен, что ее надо отжимать.


Объявите вверху макроса эту процедуру.

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Извините меня, спамлю с утра, не специально.

http://sql.ru/forum/actualthread.aspx?tid=613064
Это к этому топику