vba - Method 'ThisWorkbook' of object '_Global' failed -


i'm trying copy mail's subject, sendername, date of email pst mailbox excel workbook. here's code have far :

option explicit sub download_outlook_mail_to_excel() dim folder outlook.mapifolder dim sfolders outlook.mapifolder dim irow integer, orow integer dim mailboxname string, pst_folder_name  string   mailboxname = "backupmailbox"   pst_folder_name = "inbox1" 'sample "inbox" or "sent items"  'to directly folder @ high level 'set folder = outlook.session.folders(mailboxname).folders(pst_folder_name)  'to access main folder or subfolder (level-1) each folder in outlook.session.folders(mailboxname).folders     if vba.ucase(folder.name) = vba.ucase(pst_folder_name) goto label_folder_found     each sfolders in folder.folders         if vba.ucase(sfolders.name) = vba.ucase(pst_folder_name)             set folder = sfolders             goto label_folder_found         end if     next sfolders next folder  label_folder_found:  if folder.name = ""     msgbox "invalid data in input"     goto end_lbl1: end if  'read through each mail , export details excel email archival thisworkbook.sheets(1).activate folder.items.sort "received"  'insert column headers thisworkbook.sheets(1).cells(1, 1) = "sender" thisworkbook.sheets(1).cells(1, 2) = "subject" thisworkbook.sheets(1).cells(1, 3) = "date" thisworkbook.sheets(1).cells(1, 4) = "size" thisworkbook.sheets(1).cells(1, 5) = "emailid" 'thisworkbook.sheets(1).cells(1, 6) = "body"  'export email data pst folder orow = 1 irow = 1 folder.items.count     'if condition import mails received in last 60 days     'to import emails, comment or remove if condition     if vba.datevalue(vba.now) - vba.datevalue(folder.items.item(irow).receivedtime) <= 60        orow = orow + 1        thisworkbook.sheets(1).cells(orow, 1).select        thisworkbook.sheets(1).cells(orow, 1) = folder.items.item(irow).sendername        thisworkbook.sheets(1).cells(orow, 2) = folder.items.item(irow).subject        thisworkbook.sheets(1).cells(orow, 3) = folder.items.item(irow).receivedtime        thisworkbook.sheets(1).cells(orow, 4) = folder.items.item(irow).size        thisworkbook.sheets(1).cells(orow, 5) = folder.items.item(irow).senderemailaddress        'thisworkbook.sheets(1).cells(orow, 6) = folder.items.item(irow).body     end if next irow msgbox "outlook mails extracted excel" set folder = nothing set sfolders = nothing  end_lbl1: end sub

when run code

"method of range of object _ global failed"

from statement thisworkbook.sheets(1).activate

i have enabled microsoft excel 14.0 object library reference, since code executed outlook application.

does know error means , how can fix ?

just couple of quick tweaks, try this:

option explicit sub download_outlook_mail_to_excel() dim folder          outlook.mapifolder dim sfolders        outlook.mapifolder dim irow            integer dim orow            integer dim mailboxname     string dim pst_folder_name string  const xlworkbookname string = "c:\users\macroman\myworkbook.xlsx" '// change required  '// i'm using late binding in case don't have reference set. dim xlapp           object dim xlwb            object  set xlapp = createobject("excel.application")     xlapp.visible = false  set xlwb = xlapp.workbooks.open(xlworkbookname)  mailboxname = "backupmailbox"   pst_folder_name = "inbox1" 'sample "inbox" or "sent items"  'to directly folder @ high level 'set folder = outlook.session.folders(mailboxname).folders(pst_folder_name)  'to access main folder or subfolder (level-1) each folder in outlook.session.folders(mailboxname).folders     if vba.ucase(folder.name) = vba.ucase(pst_folder_name) goto label_folder_found     each sfolders in folder.folders         if vba.ucase(sfolders.name) = vba.ucase(pst_folder_name)             set folder = sfolders             goto label_folder_found         end if     next sfolders next folder  label_folder_found:  if folder.name = ""     msgbox "invalid data in input"     goto end_lbl1: end if  'read through each mail , export details excel email archival xlwb.sheets(1).activate folder.items.sort "received"  'insert column headers xlwb.sheets(1).cells(1, 1) = "sender" xlwb.sheets(1).cells(1, 2) = "subject" xlwb.sheets(1).cells(1, 3) = "date" xlwb.sheets(1).cells(1, 4) = "size" xlwb.sheets(1).cells(1, 5) = "emailid" 'thisworkbook.sheets(1).cells(1, 6) = "body"  'export email data pst folder orow = 1 irow = 1 folder.items.count     'if condition import mails received in last 60 days     'to import emails, comment or remove if condition     if vba.datevalue(vba.now) - vba.datevalue(folder.items.item(irow).receivedtime) <= 60        orow = orow + 1        xlwb.sheets(1).cells(orow, 1).select        xlwb.sheets(1).cells(orow, 1) = folder.items.item(irow).sendername        xlwb.sheets(1).cells(orow, 2) = folder.items.item(irow).subject        xlwb.sheets(1).cells(orow, 3) = folder.items.item(irow).receivedtime        xlwb.sheets(1).cells(orow, 4) = folder.items.item(irow).size        xlwb.sheets(1).cells(orow, 5) = folder.items.item(irow).senderemailaddress        'thisworkbook.sheets(1).cells(orow, 6) = folder.items.item(irow).body     end if next irow msgbox "outlook mails extracted excel" set folder = nothing set sfolders = nothing  xlwb.close false set xlwb = nothing  xlapp.quit set xlapp = nothing  end_lbl1: end sub

this open workbook you, no need before hand


Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more