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...
Read more

What is the difference between data design and data model(ERD) -

-
i have google question , find answer in day. know, data design many many table have list column,and mark pk , fk. why er-diagram have find this? data design process of designing database. main output of data design detailed logical data model of database. some people data design includes of needed logical , physical design choices , physical storage parameters needed generate design in data definition language. technically, database analysis, database analysts (dbas) trained do. while person can both data design , database analysis, these 2 different tasks. data design models data. database analysis takes model , applies 1 or more database engines (relational, hierarchical, nosql). a logical data model 1 of main outputs of data design. data model represented entity relationship diagram, or er diagram.
Read more

ios - Can NSManagedObject conform to NSCoding -

-
i need transfer single object across device. right converting nsmanagedobject dictionary , archiving , sending nsdata. upon receiving unarchiving it. transfer nsmanagedobject archiving , unarchiving instead of creating intermediate data object. @interface test : nsmanagedobject<nscoding> @property (nonatomic, retain) nsstring * title; @end @implementation test @dynamic title; - (id)initwithcoder:(nscoder *)coder { self = [super init]; if (self) { self.title = [coder decodeobjectforkey:@"title"]; //<crash } return self; } - (void)encodewithcoder:(nscoder *)coder { [coder encodeobject:self.title forkey:@"title"]; } @end nsdata *archivedobjects = [nskeyedarchiver archiveddatawithrootobject:testobj]; nsdata *objectsdata = archivedobjects; if ([objectsdata length] > 0) { nsarray *objects = [nskeyedunarchiver unarchiveobjectwithdata:objectsdata]; } the problem above code is. crashes @ self.title in initwithcoder sa...
Read more