[VB6] MAPI ed emulazione pulsante da tastiera

[LMondi]

Prova questo codice:
In un Modulo Bas
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Su una form inserisci due Button ed una Txt:

Const KEYEVENTF_EXTENDEDKEY = &H1 'pressione del tasto (keyDown)
Const KEYEVENTF_KEYUP = &H2       'rilascio del tasto premuto (keyUp)
Private Sub Command1_Click()
Text1.SetFocus
    keybd_event vbKeyA, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "A"
   keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0        'simula il rilascio del tasto "A"

    keybd_event vbKeyP, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "P"
    keybd_event vbKeyP, 0, KEYEVENTF_KEYUP, 0      'simula il rilascio del tasto "P"

   keybd_event vbKeyI, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "I"
   keybd_event vbKeyI, 0, KEYEVENTF_KEYUP, 0       'simula il rilascio del tasto "I"
   
End Sub
Private Sub Command2_Click()
    Command1.SetFocus
    keybd_event vbKeyReturn, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event vbKeyReturn, 0, KEYEVENTF_KEYUP, 0
End Sub