vba - I'm trying to bypass outlook alert using sendkeys, is this code correct? -
sub mail_workbook() dim wb workbook set wb = activeworkbook application.wait (now + timevalue("0:00:06")) application.sendkeys "{tab}", "false" application.sendkeys "{tab}", "false" application.sendkeys "{enter}" if val(application.version) >= 12 if wb.fileformat = 51 , wb.hasvbproject = true msgbox "there vba code in xlsx file removed if try send file." & vbnewline & _ "save file first xlsm , try macro again.", vbinformation exit sub end if end if on error resume next = 1 3 wb.sendmail array("email.person@company.com", "email.person2@company.com"), "test vba" if err.number = 0 exit next on error goto 0 end sub
you need take @ outlook redemption:
http://www.dimastr.com/redemption/home.htm
this tool allows bypass outlook's security restrictions. here sample code product's site:
http://www.dimastr.com/redemption/safemailitem.htm
it works.
Comments
Post a Comment