Outlook ReportItem trick to get ReportItem.SenderEmailAddress

Report Items  don't have any direct methods of getting the Reportitem..SenderEmailAddress that I have found- so here is a work around I did figure out...


    Select Case TypeName(objObject)


    Case "ReportItem"  
                            ''This is terrible- but the report item sender is not exposed...  
                            ''Is there a better way somewhere? API call maby?  
      Dim strFrom                 ''String for FROM email address  
      Dim msg As MailItem             ''container for reference mail item message  
      Set objReport = objObject          ''Set the report object to current mail item  
      Set msg = objReport.Actions.Item(1).Execute ''Execute a reply  
      strFrom = msg.Recipients.Item(1).Address   ''Get the resolved address from the 'to' of the reply  
      msg.Delete                  ''delete the unused draft  



End Select







































Comments











Post a Comment



















Popular posts from this blog









Powerpoint countdown and current time in slides VBA





















Add text fields- this VBA searches through the objects in the first frame until it finds " " in the text some where, truncates everything from  and to the right and replaces it with an active countdown timer or current time in the box.   Refreshes every 500ms with a prtsafe call so it doesn't bog down the CPU. Add a slide advance to start the next slide and begin automated slide advancement.          Attribute  VB_Name  =  "Countdown"  Private  Declare  PtrSafe  Function  WaitMessage  Lib  "user32"  ()  As  Long   Public  Sub  Wait ( Seconds  As  Double )  ''non cpu-intensive wait timer '' https://stackoverflow.com/questions/57268161/sleep-wait-timer-in-powerpoint-vba-thats-not-cpu-intensive      Dim  endtime  As  Double      endtime  =  DateTime.Timer  +  Seconds      Do          WaitMessage          DoEvents      Loop  While  DateTime.Timer  <  endtime   End  Sub    Sub  Countdown_from_Start ()  Dim  Time  As  Date  Dim  Count  As ...








Read more










Revit area plans adding new types and references (Gross and rentable)




















Image







 Note to self:     Add additional (duplicate) gross area and net area schemed under Area Plans           And Area schemes... Really counter-intuitive place to put this instead of say...    Area Plans> New Type> Edit Type (ADD)   or Create an area plan, then Go to Properties, Edit Type and Duplicate...       Always seem to forget this one!   2015-10-16-And for the calculation type...  To update: this also applies to Revit as well as LT-   The gross calculations cannot be overridden, however the 'rentable' comes in various flavors... From AD Revit help:   Applies to Revit LT 2015   Rules are determined by one type of space bordering another space.        The following table shows area measurement rules. To find the appropriate measurement rule, find the selected Area Type and the corresponding Bordering Area Type.    Gross Building Area Scheme Types    Gross Building Area Scheme Types  Area Type Selected Bordering Area Type Measurement Rule   Gross Building Area  Gross Buil...








Read more