excel - VBA - Outlook Task Creation - Recipient based on Dynamic Range -


as of right now, below function works, need change recipient.add field corresponding email address, each change. of email address listed in column on worksheet, , ideally function automatically add correct email based on row.

i calling function using =addtotasks(a1,c1,d1) a1 date, c1, , text, , d1, amount of days prior a1, need reminder pop up. of outlook references correctly added, need figuring out email address.

excel , outlook 2010

option explicit   dim bwestartedoutlook boolean  function addtotasks(strdate string, strtext string, daysout integer) boolean  dim intdaysback integer dim dtedate date dim olapp object ' outlook.application dim objtask object ' outlook.taskitem  if (not isdate(strdate)) or (strtext = "") or (daysout <= 0)   addtotasks = false   goto exitproc end if   intdaysback = daysout - (daysout * 2)  dtedate = cdate(strdate) + intdaysback  on error resume next   set olapp = getoutlookapp on error goto 0  if not olapp nothing   set objtask = olapp.createitem(3)  ' task item      objtask         .startdate = dtedate         .subject = strtext & ", audit start date: " & strdate         .reminderset = true         .recipients.add = "you@mail.com"         .save         .assign         .send     end  else   addtotasks = false   goto exitproc end if  addtotasks = true  exitproc: if bwestartedoutlook   olapp.quit end if set olapp = nothing set objtask = nothing end function  function getoutlookapp() object  on error resume next   set getoutlookapp = getobject(, "outlook.application")   if err.number <> 0     set getoutlookapp = createobject("outlook.application")     bwestartedoutlook = true   end if on error goto 0  end function

it seems need pass 1 more parameter function:

option explicit   dim bwestartedoutlook boolean  function addtotasks(strdate string, strtext string, daysout integer, email string) boolean  dim intdaysback integer dim dtedate date dim olapp object ' outlook.application dim objtask object ' outlook.taskitem  if (not isdate(strdate)) or (strtext = "") or (daysout <= 0)   addtotasks = false   goto exitproc end if   intdaysback = daysout - (daysout * 2)  dtedate = cdate(strdate) + intdaysback  on error resume next   set olapp = getoutlookapp on error goto 0  if not olapp nothing   set objtask = olapp.createitem(3)  ' task item      objtask         .startdate = dtedate         .subject = strtext & ", audit start date: " & strdate         .reminderset = true         .recipients.add(email)         .recipients.resolveall()         .save         .assign         .send     end  else   addtotasks = false   goto exitproc end if  addtotasks = true  exitproc: if bwestartedoutlook   olapp.quit end if set olapp = nothing set objtask = nothing end function  function getoutlookapp() object  on error resume next   set getoutlookapp = getobject(, "outlook.application")   if err.number <> 0     set getoutlookapp = createobject("outlook.application")     bwestartedoutlook = true   end if on error goto 0  end function

Comments

Post a Comment

Popular posts from this blog

powershell Start-Process exit code -1073741502 when used with Credential from a windows service environment -

i'm running strange behavior powershell start-process call. here call: $process = start-process ` "c:\somepath\mybinary.exe" ` -passthru ` -credential $defaultcredential ` -wait ` -workingdirectory "c:\somepath" ` -loaduserprofile if ($process.exitcode -ne 0) { #do } this call return exit code - 1073741502 . after quick search, exit code seems related generic error when program not load required dll (aka. status_dll_init_failed ). when run without -credential $credential program runs correctly. in order isolate problem, manually launched some.exe in prompt target credential , runs smoothly. so problem seems come way start-process cmdlet launch process. i found potential solutions problem tried apply no luck : link , link . would have idea of what's going on here ? edit 1: run proc mon monitoring program activities when launched directly or via powershell script. problem seems occur when loading kernelbase
Read more

twig - Using Twigbridge in a Laravel 5.1 Package -

i'm trying create laravel 5.1 package uses twigbridge instead of .php views. can normal .php views display fine, when try make use of .twig templates i'm met error. possible use twigbridge templates when creating views laravel package or pretty stuck blade , php ? edit 1: loading twig template without extending works. it's when start using {% extends 'file' %} error comes out. i error error loading /virtual/laravel/packages/username/mypackage/src/views/sample.twig: template "templates.master" not defined () in "/virtual/laravel/packages/username/mypackage/src/views/sample.twig" @ line 1. my folders username |_ mypackage |_ src |_ controllers - samplecontroller.php |_ views |_ templates - master.twig - sample.twig twig template sample.twig {% extends 'templates.master' %} {% block content %} {{ parent()
Read more

c# - LINQ join Entities from HashSet's, Join vs Dictionary vs HashSet performance -

i have hashset's each stores t, have written test application compares different relation algorithms can think of, i'm not pleased results getting. does there exist more efficient ways of achieving object relations, once testing? using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; using system.diagnostics; namespace linqtests { class program { static void main(string[] args) { hashset<user> usertable = new hashset<user>(); hashset<userproperty> userpropertytable = new hashset<userproperty>(); #region lets create dummy data. console.writeline("please wait while creating dummy data, can take while..."); console.writeline(""); int rows = 1000000; for(int x = 0; x < rows; x++) { random rnd = new random(); // ad
Read more