excel vba - macro takes out subject details -


i have written macro. take out subject details each email , display in worksheet. code loops through emails , subjects, experiencing issues when trying display in csv or worksheet. in code have commented out displaying worksheet. both ways experiencing issues.

sub subdetails()     dim ns outlook.namespace     dim inbox mapifolder     dim item object     dim atmt attachment     dim filename string     dim integer     dim myolapp outlook.application  set myolapp = createobject("outlook.application") set ns = myolapp.getnamespace("mapi") set inbox = ns.folders("ua forms")            '   getdefaultfolder(olfolderinbox) set inbox = inbox.folders("inbox")      = 0     if inbox.items.count = 0         msgbox "there no messages in inbox", vbinformation, _         "nothing found"     exit sub      end if '''section experiecing problem'''     each item in inbox.items     'dim my_filenumber integer     'dim logstr string     icol = 1     irow = 3    ' my_filenumber = freefile      'logstr = item      'open "\\dfs52672.link2\my documents\exceltutorials\authors.csv" append #my_filenumber         'print #my_filenumber, logstr     'close #my_filenumber      'i = + 1     'msgbox "your record has been logged"     'cells(irow, icol).value = item     columns(6).value = item     = + 1     msgbox "i found" & & "attached files."     next item  getattachments_exit:          set atmt = nothing         set item = nothing         set ns = nothing         exit sub  getattachment_err:      msgbox "an error has occurred." _     & vbcrlf & "please note , report following information." _     & vbcrlf & "macro name: getattachments" _     & vbcrlf & "error number: " & err.number _     & vbcrlf & "error description: " & err.description _     , vbcritical, "error!"      resume getattachments_exit end sub

to list in excel (col a) subject line of emails in inbox try changing loop this:

irow = 3  each item in inbox.items     cells(irow, 1).value = item.subject      irow = irow + 1 next item

this assuming have open workbook , references have been made. if not should add following:

dim wbnew workbook set wbnew = workbooks.add  dim wksnew worksheet set wksnew = wbnew.worksheets("sheet1")  irow = 3  each item in inbox.items     wksnew.cells(irow, 1).value = item.subject      irow = irow + 1 next item

Comments

Post a Comment

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

i using signpost oauth access data magento server. have read various tutorials on same , reach point open browser user can enter credentials. however, per requirement have automate part. hence, user should not browser page. have set-up done on server side ( magento ), hit url , returned call page. same through program in android. i have tried below, consumer = new commonshttpoauthconsumer(key, secret); provider = new commonshttpoauthprovider(oauth_init_url,access_token_url, authorize_url); try { provider.retrieverequesttoken(consumer, oauth.out_of_band); log.d("tokens" , consumer.gettoken() + " -- " + consumer.gettokensecret()); } and request tokens. dont know how bypass next step. tried directly accessing accesstoken (stupid of me) provider.retrieveaccesstoken(consumer, "mycallback://callback"); no luck, ends in oauth.signpost.exception.oauthnotauthorizedexception: authorization failed (server replied 401). ...
Read more

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

getting error org.mockito.exceptions.misusing.invaliduseofmatchersexception: invalid use of argument matchers! 1 matchers expected, 2 recorded. exception may occur if matchers combined raw values: //incorrect: somemethod(anyobject(), "raw string"); when using matchers, arguments have provided matchers. example: //correct: somemethod(anyobject(), eq("string matcher")); at when( getprogramservice .callservice(any(getprogramtype.class))) .thenreturn(jaxbresponse); please explain error , possible resolution the code posted looks fine; don't see problem it. code before or above causing exception. key here: invalid use of argument matchers! 1 matchers expected, 2 recorded. any , used above, doesn't return "special kind of null" or "special kind of getprogramtype"; don't exist. instead, returns null , side effect puts matcher on stack. whe...
Read more

google shop client API returns 400 bad request error while adding an item -

i'm working on solution add items in google shopping market java application. following tutorial real mess because of missing classes of laste release, after setting 1.5-beta maven managed make base example typecheck correctly classes. still can make simple task of adding 1 item. instead of posting whole code i'm posting part creates product feed. private product createproduct(string id) { product product = new product(); product.title = "red wool sweater"; product.content = new content( "text", "comfortable , soft, sweater keep warm on " + "cold winter nights. red , blue stripes."); product.appcontrol = new appcontrol(); product.appcontrol.addrequireddestination("productads"); product.externalid = id; product.lang = "it"; product.country = "it"; product.condition = "nuovo"; product.price = new price("eu...
Read more