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