Como uso sendkeys en sendmail?

19/02/2005 - 01:15 por JAVIER | Informe spam
SendKeys "%S"
Sub Email()

ActiveWorkbook.SendMail recipients:="j@datos.com"

End Sub
para envitar el mensaje de Ms Outlook 2000.
 

Leer las respuestas

#1 salvador
19/02/2005 - 03:02 | Informe spam
SendKeys "%S"
Sub Email()
ActiveWorkbook.SendMail recipients:=""

Application.Wait (Now + TimeValue("0:00:02"))'Espera 2 segundos
Application.SendKeys "%S" ' y envia la aceptacion de enviar el mensaje
Alt sostenido mas la letra s

End Sub


saludos desde Morelia, Michoacan, Mexico

"JAVIER" escribió en el mensaje
news:
SendKeys "%S"
Sub Email()

ActiveWorkbook.SendMail recipients:=""

End Sub
para envitar el mensaje de Ms Outlook 2000.

Preguntas similares