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

Popular posts from this blog

jquery - How can I dynamically add a browser tab? -

node.js - Getting the socket id,user id pair of a logged in user(s) -

keyboard - C++ GetAsyncKeyState alternative -