vba - Outlook Form To Select Email Template -


i wonder whether may able me please.

i'm trying create outlook userform, via drop down menu operator can select email template.

using this example, code outlook form works fine.

private sub userform_initialize()   combobox1     .additem "test"     .additem "template 2"     .additem "template 3"     .additem "template 7"     .additem "template 5"     .additem "template 6"   end end sub  private sub btnok_click()     lstnum = combobox1.listindex     unload me end sub

this code i've started put together, select template having had no experience of before when use drop down menu , select "test template" receive error here "test.select" highlighting object required.

public lstnum long public sub choosetemplate()  dim omail outlook.mailitem dim ocontact outlook.contactitem  dim strtemplate string    userform1.show      select case lstnum     case -1 '  -1 want use if nothing selected          strtemplate = "test"     case 0          strtemplate = "template-1"     case 1         strtemplate = "template-2"     case 2          strtemplate = "template-3"     case 3          strtemplate = "template-4"     case 4          strtemplate = "template-5"     end select    test.select             set outmail = outapp.createitem(0)             on error resume next             outmail                 .to = cell.value                 .subject = "test facility"                 .htmlbody = "<body style=font-size:11pt;font-family:calibri>hi " confirmed require continued use of test facility                 "<p>many , kind regards</p></body>" & signature                 .sensitivity = 2                 .send         end         on error goto 0         set outmail = nothing          cleanup:         set outapp = nothing         application.screenupdating = true          wb.close savechanges:=true         end if         set omail = nothing    end sub

i wondered whether @ please , let me know i've gone wrong.

to generate mail template see https://msdn.microsoft.com/vba/outlook-vba/articles/application-createitemfromtemplate-method-outlook

set myitem = application.createitemfromtemplate("c:\statusrep.oft")

run code in outlook see how use selection.

public lstnum long  public sub choosetemplate()      dim outmail outlook.mailitem      userform1.show      select case lstnum      ' following listbox entries      case -1     '  -1 want use if nothing selected         set outmail = createitemfromtemplate("path\to\test.oft")      case 0         set outmail = createitemfromtemplate("path\to\test.oft")      case 1         set outmail = createitemfromtemplate("path\to\template-2.oft")      case 2         set outmail = createitemfromtemplate("path\to\template-3.oft")      case 3         set outmail = createitemfromtemplate("path\to\template-7.oft")      case 4         set outmail = createitemfromtemplate("path\to\template-5.oft")      case 5         set outmail = createitemfromtemplate("path\to\template-6.oft")      end select      ' use specific purpose not randomly     ' on error resume next      outmail         .to = "cell.value"    ' outlook demo          ' should in template         ' .subject = "test facility"         ' .htmlbody = "<body style=font-size:11pt;font-family:calibri>hi " confirmed require continued use of test facility         '       "<p>many , kind regards</p></body>" & signature         ' .sensitivity = 2          .display     end      ' on error goto 0      cleanup:         set outmail = nothing    end sub

Comments

Post a Comment

Popular posts from this blog

python - Selenium remoteWebDriver (& SauceLabs) Firefox moseMoveTo action exception -

while performing simple hover test on firefox through selenium (3.4.0) python bindings (3.4.3) using of available os in saucelabs (except linux, latest available firefox version old), performing following actionchain: hover = actionchains(driver) hover.move_to_element(elm_men_menu).perform() it throws following error: taceback: file [...] in testhover hover.perform() file "/usr/local/lib/python2.7/dist-packages/selenium/webdriver/common/action_chains.py", line 80, in perform action() file "/usr/local/lib/python2.7/dist-packages/selenium/webdriver/common/action_chains.py", line 290, in <lambda> command.move_to, {'element': to_element.id})) file "/usr/local/lib/python2.7/dist-packages/selenium/webdriver/remote/webdriver.py", line 256, in execute self.error_handler.check_response(response) file "/usr/local/lib/python2.7/...
Read more

html - How to custom Bootstrap grid height? -

why bootstrap grid has height 591.067 ? did height came ? .main-post { padding: 20px; background-color: #fff; border: 1px solid #d8d8d8; margin-bottom: 100px; } .main-post .post-categories { margin-bottom: 10px } .main-post h3 { margin: 0 0 10px; color: #777; letter-spacing: -1px; font-weight: bold } .main-post .post-author, .main-post .post-date, .main-post .post-comments { font-size: 12px } .main-post img { display: block; margin: 10px 0; } .main-post .post-summary { line-height: 1.7; color: #888 } .main-post { color: #999 } <div class="col-sm-6"> <div class="main-post"> <h3 class="post-title"> <a href="#"> post title </a> </...
Read more

transpose - Maple isnt executing function but prints function term -

im using maple im in worksheetmode tried using maple input , 2d input , want transpose matrix a: := `<|>`(`<,>`(1, .5, -2), `<,>`(.5, 9/4+b, 5+3*b), `<,>`(-2, 5+3*b, 18+9*b+4*a)); b:= transpose(a); when exectute sheet dont translated values, there same input. matrix looks same input matrix plus function term. you can see picture in following link: why arent functions executed? meanwhile b:=a^+ doing right way , transposed matrix. other functions return function body instead needed values... if using 2d input mode (the default) space you've got between transpose , bracketed (b) interpreted multiplcation. rid of such space. also, either load package @ start of document like, with(linearalgebra): before calling transpose command package, or call it's full name like, linearalgebra:-transpose(b);
Read more