vba - MS Outlook 2010 how to reduce picture size in attached messages -


i have on 1k emails have pictures attached large size , want reduce there size (like 1024x800 document size).

normally open message in edit mode open picture reduce size save message long process.

so looking in vba save , remove attachments email items (vba)

sub saveattachment()  'declaration dim myitems, myitem, myattachments, myattachment object dim myort string dim myolapp new outlook.application dim myolexp outlook.explorer dim myolsel outlook.selection  'ask destination folder myort = inputbox("destination", "save attachments", "c:\")  on error resume next  'work on selected items set myolexp = myolapp.activeexplorer set myolsel = myolexp.selection  'for items do... each myitem in myolsel      'point on attachments     set myattachments = myitem.attachments      'if there some...     if myattachments.count > 0          'add remark message text         myitem.body = myitem.body & vbcrlf & _             "removed attachments:" & vbcrlf          'for attachments do...         = 1 myattachments.count              'save them destination             myattachments(i).saveasfile myort & _                 myattachments(i).displayname              'add name , destination message text             myitem.body = myitem.body & _                 "file: " & myort & _                 myattachments(i).displayname & vbcrlf          next          'for attachments do...         while myattachments.count > 0              'remove (use method in outlook xp)             'myattachments.remove 1              'remove (use method in outlook 2000)             myattachments(1).delete          wend          'save item without attachments         myitem.save     end if  next  'free variables set myitems = nothing set myitem = nothing set myattachments = nothing set myattachment = nothing set myolapp = nothing set myolexp = nothing set myolsel = nothing  end sub

note: have keep large picture @ least month after want reduce picture sizes can not set option receiving smaller size email.

the outlook object model doesn't provide editing attachments on fly. however, workaround may use low-level property getting setting byte array represents attached file. propertyaccessor class outlook object model (see corresponding property of attachment class) can used retrieving pr_attach_data_bin property value. dasl name "http://schemas.microsoft.com/mapi/proptag/0x37010102".

the outlook object model allows save attached file on disk using saveasfile method of attachment class, required changes , re-attach anew using add method of attachments class.


Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

php - Nothing but 'run(); ' when browsing to my local project, how do I fix this? -

i added new project. made mistake in projectname.conf file in sites-available apache2, led me reinstalling apache2. after reinstalling , re-enabling projects on every page of every project .. <body> run(); </body> .. i've run composer update, restarted service, restarted pc, checked config files, tried disabling new project. there nothing in error log, , access.log: 127.0.0.1 - - [15/may/2015:01:40:47 +0200] "get / http/1.1" 304 181 "-" "mozilla/5.0 (x11; ubuntu; linux x86_64; rv:38.0) gecko/20100101 firefox/38.0" maybe i'm forgetting apache2 reinstall? don't think did different last time installed it. looks haven't setup php correctly. take @ this great guide , maybe you're forgetting link php config apache2.
Read more

php - How can I echo out this array? -

i don't know how go grabbing data in variable , put foreach loop. class tree{ private $info = array( array('name'=>'jim','state'=>'nu','company'=>'nu','phone'=>array('cell'=>'5615111111','office'=>'5611111111'),'email'=>array('primary'=>'exs@example.com','ex@there.com')), array('name'=>'joe smith','city'=>'phoenix','phone'=>'4805551111','email'=>'jsmith@some_email.com'), array('name'=>'john doe','city'=>'chandler','company'=>'doe co.','email'=>array('jdoe@gmail.com','personal'=>'email@email.com'),'phone'=>'6025550002') ); } if you're inside of class, can access private variable using $this->variablename . example, i...
Read more