vba - Sending an Outlook email with range from Excel sheet, using Macro when the Computer is locked -

-

i running dashboard refreshes weekly, using odbc connection. have written macro runs on auto_open. file getting opened task scheduler.

system: windows 7 sp1, outlook 2016, excel 2016

problem: when schedule task setting run whether user logged on or not, excel file opens , gets refreshed, not send out mail via outlook, nor appear in outbox. refresh happen though. when user not logged on.

the task schedule works fine when user logged on

i have tried excel vba - email not send when computer locked , did not work me.

the function using sending mail is:

dim oapp object, outapp object, outmail object dim rng range dim strbody string, strtail string  strbody = "hi team," & "<br>" & _          "<a href=""https://example.com"">here</a> link cloud upload" & worksheets("core view").range("m2") & "<br><br>" strtail = "thanks," & "<br>" & _ "team." & "<br><br>"     on error resume next     'only visible cells in selection     'set rng = selection.specialcells(xlcelltypevisible)     set rng = sheets("core view").range("a7:k106").specialcells(xlcelltypevisible)     on error goto 0       if rng nothing         msgbox "the selection not range or sheet protected. " & _                vbnewline & "please correct , try again.", vbokonly     end if      application         .enableevents = false         .screenupdating = false     end      'create mail     set outapp = createobject("outlook.application")     set outmail = outapp.createitem(0)      on error resume next     outmail         .to = "plaknas@example.com"         .cc = ""         .bcc = ""         if emptysheets <> ""         .subject = "update has issues in " & emptysheets         else         .subject = "update week" & worksheets("core view").range("m2")         end if         .htmlbody = strbody & rangetohtml(rng) & strtail         .send   'or use .display     end     on error goto 0 application .enableevents = true .screenupdating = true end set outmail = nothing set outapp = nothing end function

you cannot use outlook object model in script or program run task scheduler or windows service. security context quite different , code won't run intended:

https://support.microsoft.com/en-us/kb/237913


Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more