Visual Basic - SendKeys "{ctrl+n}"

Life is soft - evento anual de software empresarial
 
Vista:

SendKeys "{ctrl+n}"

Publicado por gonzalo (8 intervenciones) el 20/02/2003 14:03:13
El programa es para enviar un correo encriptado de envio automatico. Todo el resto funciona impeke...!!!

El problema que tengo es que sale el mensaje y me falta apretar el send. Ya probe con objMail.send pero no se encripta el mensaje.

Por otro lado. Coloco la funcion SendKeys "{Ctrl+n}" la cual me da un error y tampoco lo envia.

Sabe alguien como hacer la combinacion de ctrl+n que se aprete al mismo tiempo ???

De antemano gracias.

Saludos.

Gonzalo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SendKeys

Publicado por edu (448 intervenciones) el 20/02/2003 19:43:22
segun la ayuda de MSDN deberia de ser SendKeys"{^n}".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SendKeys

Publicado por Gonzalo (8 intervenciones) el 20/02/2003 21:16:30
Lo probe pero no funciono porque da problemas al depurar.

Por lo menos encontre una manera mas carnaza..

Se trata de lo siguiente:

SendKeys ("%")
SendKeys ("{down}")
SendKeys ("{down}")
SendKeys ("{enter}")

O es lo mismo que decir alt, flecha abajo, flecha abajo, enter.

No es muy ortodoxo pero sirve.

Ahora lo que necesito saber es como relacionar un archivo de texto que tiene como 20 correos con el cc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
El sendkeys es la función menos eficiente que he conocido en eso de manejo de interupciones, te recomiento que utilices esto

'Para buscar más códigos de letras, están en el API Viewer del VB
Public Const VK_TAB = &H9
Public Const VK_LSHIFT = &HA0
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2
'Api para manejo de teclas
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

'Este código va donde necesitas que se ejecute la interrupción de teclas
keybd_event VK_LSHIFT, 0, 0, 0
DoEvents
keybd_event VK_TAB, 0, 0, 0
DoEvents
'Simular que soltamos la tecla
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
DoEvents
keybd_event VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar