vba - Create Rule to Move Email By Sender Domain -


i able use macro below create rule send email selected sender address designated folder.

this works fine. want create rule send email domain (regardless of sender) folder.

here code using. 

 dim colrules outlook.rules   dim orule outlook.rule   dim colruleactions outlook.ruleactions   dim omoveruleaction outlook.moveorcopyruleaction   dim ofromcondition outlook.toorfromrulecondition   dim orulecondition outlook.addressrulecondition   dim oexceptsubject outlook.textrulecondition   dim oinbox outlook.folder   dim omovetarget outlook.folder   'specify target folder rule move action   set oinbox = application.session.getdefaultfolder(olfolderinbox)   'assume target folder exists   set omovetarget = application.session.folders("myinbox").folders("folders").folders("reference").folders("vendor marketing")   'get rules session.defaultstore object   set colrules = application.session.defaultstore.getrules()   dim ssender string   each objitem in application.activeexplorer.selection       if objitem.class = olmail          ssender = objitem.senderemailaddress       end if  next   dim domain() string  domain = split(ssender, "@")   dim ddomain string  ddomain = "@" + domain(1)   'create rule adding receive rule rules collection  if msgbox("do want create rule " + ssender + "?", vbokcancel) = vbok       set orule = colrules.create(ssender, olrulereceive)       'specify condition in toorfromrulecondition object      set ofromcondition = orule.conditions.from      ofromcondition          .enabled = true          .recipients.add (ssender)          .recipients.resolveall      end       'specify action in moveorcopyruleaction object      'action move message target folder      set omoveruleaction = orule.actions.movetofolder      omoveruleaction          .enabled = true          .folder = omovetarget      end       'update server , display progress dialog      colrules.save      orule.execute showprogress:=true end if

ok, after more diggings/trial , error. found solution. main thing see type "addressrulecondition" , property want modify not "text", "address"

 dim colrules outlook.rules   dim orule outlook.rule   dim colruleactions outlook.ruleactions   dim omoveruleaction outlook.moveorcopyruleaction   dim ofromcondition outlook.toorfromrulecondition   dim orulecondition outlook.addressrulecondition    <--------here   dim oexceptsubject outlook.textrulecondition   dim oinbox outlook.folder   dim omovetarget outlook.folder   'specify target folder rule move action   set oinbox = application.session.getdefaultfolder(olfolderinbox)   'assume target folder exists   set omovetarget = application.session.folders("myinbox").folders("folders").folders("reference").folders("vendor marketing")   'get rules session.defaultstore object   set colrules = application.session.defaultstore.getrules()   dim ssender string   each objitem in application.activeexplorer.selection       if objitem.class = olmail          ssender = objitem.senderemailaddress       end if  next   dim domain() string  domain = split(ssender, "@")   dim ddomain string  ddomain = "@" + domain(1)   'create rule adding receive rule rules collection  if msgbox("do want create rule " + ddomain + "?", vbokcancel) = vbok   set orule = colrules.create(ddomain, olrulereceive)   'specify condition in toorfromrulecondition object  'set ofromcondition = orule.conditions.from  'with ofromcondition  '.enabled = true  '.recipients.add (ssender)  '.recipients.resolveall  'end   set orulecondition = orule.conditions.senderaddress  orulecondition      .enabled = true      .address = array(ddomain)             <--------here  end    'specify action in moveorcopyruleaction object  'action move message target folder  set omoveruleaction = orule.actions.movetofolder  omoveruleaction  .enabled = true  .folder = omovetarget  end   'update server , display progress dialog  colrules.save  orule.execute showprogress:=true end if

Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj...
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer ...
Read more

c# - Asp.net web api : redirect unauthorized requst to forbidden page -

im trying redirect unauthorized request forbidden page instead i'm getting forbidden page in response body , how can fix ? here's startup class : app.createperowincontext(storecontext.create); app.createperowincontext<applicationusermanager>(applicationusermanager.create); app.createperowincontext<applicationsigninmanager>(applicationsigninmanager.create); app.usecookieauthentication(new cookieauthenticationoptions { authenticationtype = defaultauthenticationtypes.applicationcookie, expiretimespan = timespan.fromdays(30), }); app.useexternalsignincookie(defaultauthenticationtypes.externalcookie); app.usetwofactorsignincookie(defaultauthenticationtypes.twofactorcookie, timespan.fromminutes(5)); app.usetwofactorrememberbrowsercookie(defaultauthenticationtypes.twofactorrememberbrowsercookie); the method im trying reach : [httpget] [authorize(roles = "admin")] public string getcurrentusername() { return userman...
Read more