vba - Send two different mails when a cell reaches two different values (right) -

-

i'm developing program automatically send 2 different e-mail messages when cells in range reach 2 different values (1 or 2).

the code i'm using consists of:
a) private sub worksheet_calculate()
b) sub mail_with_outlook1()

sub code sub mail_with_outlook1 () sends 1 e-mail message text type content 1, 1 corresponding address registered in range of cells in column "af".

this happens when value of corresponding cell of range "ae10: ae45" equal “1” (see mylimit = 1).

i send second specific e-mail message text type content 2, 1 of corresponding addresses described in same range of column "af", when value of cell of same range "ae10: ae45" equal "2" (mylimit = 2).

private sub worksheet_calculate() dim formularange range dim notsentmsg string dim mymsg string dim sentmsg string dim mylimit double  mylimit = 1  set formularange = me.range("ae10:ae104")  on error goto endmacro: each formulacell in formularange.cells     formulacell         if isnumeric(.value) = false             mymsg = "non numerico"         else             if .value = mylimit                 mymsg = sentmsg                  if .offset(0, 4).value = notsentmsg                     call mail_with_outlook1                 end if             else                 mymsg = notsentmsg             end if         end if         application.enableevents = false         .offset(0, 4).value = mymsg         application.enableevents = true     end next formulacell  exitmacro: exit sub  endmacro: application.enableevents = true  msgbox "si รจ manifestato un errore." _      & vblf & err.number _      & vblf & err.description  end sub 
sub mail_with_outlook1()  dim outapp object dim outmail object dim strto string, strcc string, strbcc string dim strsub string, strbody string  set outapp = createobject("outlook.application") set outmail = outapp.createitem(0)  strto = cells(formulacell.row, "af").value strcc = cells(formulacell.row, "ag").value strbcc = "" strsub = "my filename" strbody = "hello i0m frank .... eccc"  outmail     .to = strto     .cc = strcc     .bcc = strbcc     .subject = strsub     .body = strbody     .importance = 2     .display end  set outmail = nothing set outapp = nothing end sub


Comments

Post a Comment

Popular posts from this blog

java - Jmockit String final length method mocking Issue -

-
using jmockit 1.2 jar, trying mock string's length method getting unexpected invocation exception: failed: test java.lang.illegalstateexception: missing invocation mocked type @ point; please make sure such invocations appear after declaration of suitable mock field or parameter @ stringdemo.testa$1.<init>(testa.java:17) @ stringdemo.testa.test(testa.java:13) i using testng: @test public void test() throws exception { new expectations() { @mocked("length") string astring; { astring.length(); result = 2; } }; system.out.println(a.showa("test")); } } actual class a: public class { public static int showa(string str){ int a= str.length(); return a; } } this wrong way of recording expected results. shouldn't mock , record string's length() method, record showa() instead. here solution @suppresswarnings("unused&qu
Read more

asp.net - Razor Page Hosted on IIS 6 Fails Every Morning -

-
i have simple page in intranet uses razor/asp fetch single record table , display it, plus few graphic, dashboard display. meaning, no user intervention other first time open ie internal url. the problem having every morning ie displays "page not found or network error" message. refresh page, , it's stuck , doesn't display anything. try different pc, open ie internal url , it's stuck... ...until following: login server hosting page run inetmgr go web sites, etc right click on page that's giving me problem , select browse at moment, error message: server error in '/' application. -------------------------------------------------------------------------------- type of page not served. description: type of page have requested not served because has been explicitly forbidden. extension '.cshtml' may incorrect. please review url below , make sure spelled correctly. requested url: /application/dashboard.cshtml ---------------
Read more

c++ - wxwidget compiling on windows command prompt -

-
can please guide me on method,as how compile wxwidget using windows command prompt or msys. [i can't seem find on wxwiki/wxwidget official book/anywhere else] i have compiled wxwidget instructions have provided (using msys). from searching on internet seems 1 can (maybe?) through use of makefile (is correct?) if yes: directory & how should link wx libraries in makefile if no: way besides makefile? i know can use ide's code::block , make life simpler prefer compile using command prompt/msys. thanks in advance.
Read more