Runtime error in VBA for Outlook -


so trying write module in outlook parse emails out of emails being sent in body of message. getting 'runtime 424 error" @ line of code

    each outlookmessage in outlookfolder.items

it says object required, i'm pretty sure error in reference for each outlookmessage in outlookfolder.items

can please me out, not vba , need help.

here portion of code talking about:

    ' top level folders , find our target email folder....  ictr = 1 outlooknamespace.folders.item(1).folders.count     ' handle case sensitivity can't type worth crap      if lcase(outlooknamespace.folders.item(1).folders(ictr).name) = lcase(strtargetfolder)      'found our target :)         set outlookfolder = outlooknamespace.folders.item(1).folders(ictr)      exit  ' found lets move on     end if  next  'set header data dump, csv  stremailcontents = "user,remote,forwarder,encoding,timestamp" & vbcrlf   'likely should have error handling here, in case have found no target folder  'set myfolderitem = outlookfolder.items  ' have commenteted out items illustrate call sue'stremailcontents function     each outlookmessage in outlookfolder.items           strmsgbody = outlookmessage.body  ' assign message body var           ' use sue moshers code stuff in body           ' of following stuff in quotes "" specific needs            stremailcontents = stremailcontents & parsetextlinepair(strmsgbody, "e-mail:")         '  stremailcontents = stremailcontents & "," & parsetextlinepair(strmsgbody, "remote_addr=")          ' stremailcontents = stremailcontents & "," & parsetextlinepair(strmsgbody, "http_user_agent=")          ' stremailcontents = stremailcontents & "," & parsetextlinepair(strmsgbody, "http_via=")        '   stremailcontents = stremailcontents & "," & parsetextlinepair(strmsgbody, "http_x_forwarded_for=")         '  stremailcontents = stremailcontents & "," & parsetextlinepair(strmsgbody, "encoding=")           'add email message time stamp, cause want           stremailcontents = stremailcontents & "," & outlookmessage.receivedtime & vbcrlf           'debug message comment out production            'wscript.echo stremailcontents      next

thank in advanced!

based on discussion far, following code should work you. maybe hitting meeting invite or other nonmail item?

strtargetfolder = "inbox" dim outlookfolder object set outlooknamespace = application.getnamespace("mapi") ictr = 1 outlooknamespace.folders.item(1).folders.count     ' handle case sensitivity can't type worth crap      if lcase(outlooknamespace.folders.item(1).folders(ictr).name) = lcase(strtargetfolder)      'found our target :)         set outlookfolder = outlooknamespace.folders.item(1).folders(ictr)      exit  ' found lets move on     end if  next  stremailcontents = "user,remote,forwarder,encoding,timestamp" & vbcrlf if not outlookfolder nothing         each outlookmessage in outlookfolder.items         if typeof outlookmessage mailitem              strmsgbody = outlookmessage.body  ' assign message body var               stremailcontents = stremailcontents & parsetextlinepair(strmsgbody, "e-mail:")               stremailcontents = stremailcontents & "," & outlookmessage.receivedtime & vbcrlf         end if     next end if

Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

android - Keyboard hides my half of edit-text and button below it even in scroll view -

i having trouble keyboard covers edit-text , half of button in scroll view. here's layout , please tell me how should resolve problem. many questions on topic none of them s working me. <?xml version="1.0" encoding="utf-8"?> <linearlayout xmlns:android="http://schemas.android.com/apk/res/android" android:layout_width="match_parent" android:background="@drawable/bg" android:layout_height="match_parent"> <scrollview android:layout_width="match_parent" android:fillviewport="true" android:layout_height="match_parent"> <relativelayout android:layout_width="match_parent" android:layout_height="wrap_content" android:orientation="vertical"> <linearlayout android:layout_width="match_parent" android:layout_height="w...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more