vba - Fetch all mails from inbox with pr_last_verb_executed into Excel sheet -

-

i want fetch outlook inbox emails excel sheet additional columns having data this mail replied on or this mail forwarded to

here code have done far

dim folder outlook.mapifolder dim irow integer mailboxname = 'mailbox name goes here pst_folder_name = "inbox" set folder = outlook.session.pickfolder 'folders(mailboxname).folders(pst_folder_name)       if folder = ""     msgbox "invalid data in input"     goto end_lbl1: end if  folder.items.sort "[receivedtime]", false limitdatetimevalue = 'date limit cellno = 2 irow = 1 folder.items.count on error resume next   if folder.items.item(irow).receivedtime > limitdatetimevalue     'cellno = 2     on error resume next     thisworkbook.sheets("inbox").range("a2").select      fullsubjectline = folder.items.item(irow).subject     if instr(1, fullsubjectline, "fe:", vbtextcompare) > 0 or instr(1, fullsubjectline, "fw:", vbtextcompare) > 0 or instr(1, fullsubjectline, "re:", vbtextcompare)         filteredsubjectline = mid(fullsubjectline, 5)         thisworkbook.sheets("inbox").cells(cellno, 2) = filteredsubjectline     else         thisworkbook.sheets("inbox").cells(cellno, 2) = folder.items.item(irow).subject     end if      thisworkbook.sheets("inbox").cells(cellno, 4) = left(folder.items.item(irow).body, 1024)     if folder.items.item(irow).unread          thisworkbook.sheets("inbox").cells(cellno, 6) = "unread"     else         thisworkbook.sheets("inbox").cells(cellno, 6) = "read"     end if         thisworkbook.sheets("inbox").cells(cellno, 1) = folder.items.item(irow).sendername     thisworkbook.sheets("inbox").cells(cellno, 3) = folder.items.item(irow).receivedtime      cellno = cellno + 1  end if  next irow

the code extremely inefficient, multiple dot notation taken extreme. cache items collection before entering loop , retrieve item once on each iteration - otherwise oom have return brand new com object each ".".

on error resume next  set vitems = folder.items irow = 1 vitems.count   set vitem = vitems.item(irow)   fullsubjectline = vitem.subject   lastverbexecuted = vitem.propertyaccessor.getproperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")   if err.number <> 0     lastverbexecuted = 0     err.clear   end if   ... next

Comments

Post a Comment

Popular posts from this blog

javascript - Chart.js (Radar Chart) different scaleLineColor for each scaleLine -

-
Image
i try , create radar chart using chart.js has various colours each scaleline, or coloured between scalelines. wondering if possible? from: to: i have working graph, though there doesn't seem method change individual scale lines. kind regards leigh you can extend radar chart type this, so chart.types.radar.extend({ name: "radaralt", initialize: function (data) { chart.types.radar.prototype.initialize.apply(this, arguments); var originalscaledraw = this.scale.draw; var ctx = this.chart.ctx; this.scale.draw = function () { var linewidth = this.linewidth; // bypasses line drawing in originalscaledraw this.linewidth = linewidth; originalscaledraw.apply(this, arguments); ctx.linewidth = this.linewidth; var scale = this; // draw chart.helpers.each(scale.ylabels, function (label, index) { // color of ...
Read more

apache - Error with PHP mail(): Multiple or malformed newlines found in additional_header -

-
suddenly have started receiving above error without changes having been made script. host 1and1 (i know...) the script still works fine on different server, , suspicion there must have been server config change has lead this, although hosts plead ignorance. there's no information on above error @ in google can find - have ideas? server running apache if helps. had similar problem. came out of blue. no php code changed. what changed: php upgraded 5.5.25-1 5.5.26. a security risk in php mail() function has been fixed , newlines in additional_headers allowed no more. because newlines mean: starts email message (and surely don't want inject newlines through headers followed evil message). what have worked fine, e.g. having newlines after headers or passing whole message additional_headers , function no more. solution : sanitize headers. no multiple newlines in additional_headers argument. these count "multiple or malformed newlines":...
Read more

java - Android – MapFragment overlay button shadow, just like MyLocation button -

-
Image
i'm struggling add shadow custom overlay button on google map. goal make custom button google's mylocation button. here's how app looks now: layout.xml <relativelayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools="http://schemas.android.com/tools" xmlns:map="http://schemas.android.com/apk/res-auto" android:layout_height="match_parent" android:layout_width="match_parent" style="@style/apptheme"> <fragment android:layout_width="match_parent" android:layout_height="match_parent" android:id="@+id/map" tools:context=".mapsactivity" android:name="com.google.android.gms.maps.supportmapfragment" android:layout_alignparentend="true" android:layout_alignparentstart="true" android:layout_alignparentbottom="true" ...
Read more