Outlook Macro extract data to csv -


i want extract data email , save in csv. far convert excel, there code can add can save csv after finished running first macro. 

option explicit  sub copytoexcel()     dim xlapp object     dim xlwb object     dim xlsheet object     dim olitem outlook.mailitem     dim vtext variant     dim stext string     dim vitem variant     dim long     dim rcount long     dim bxstarted boolean     const strpath string = "d:\my documents\vehicles.xlsx" 'the path of workbook      if application.activeexplorer.selection.count = 0         msgbox "no items selected!", vbcritical, "error"         exit sub     end if     on error resume next     set xlapp = getobject(, "excel.application")     if err <> 0         application.statusbar = "please wait while excel source opened ... "         set xlapp = createobject("excel.application")         bxstarted = true     end if     on error goto 0     'open workbook input data     set xlwb = xlapp.workbooks.open(strpath)     set xlsheet = xlwb.sheets("sheet1")      'process each selected record     each olitem in application.activeexplorer.selection         stext = olitem.body         vtext = split(stext, chr(13))         'find next empty line of worksheet         rcount = xlsheet.usedrange.rows.count         rcount = rcount + 1          'check each line of text in message body         = ubound(vtext) 0 step -1             if instr(1, vtext(i), "a card/order") > 0                 vitem = split(vtext(i), chr(58))                 xlsheet.range("d" & rcount) = trim(vitem(1))             end if              if instr(1, vtext(i), "required shipdate:") > 0                 vitem = split(vtext(i), chr(58))                 xlsheet.range("e" & rcount) = trim(vitem(1))             end if              if instr(1, vtext(i), "card quantity:") > 0                 vitem = split(vtext(i), chr(58))                 xlsheet.range("n" & rcount) = trim(vitem(1))             end if         next         xlsheet.rows(1).delete         xlsheet.range("a1").value = "0"         xlsheet.range("b1").value = "862"         xlsheet.range("c1").value = "00-100-6360"          xlsheet.range("f1").value = "0"         xlsheet.range("g1").value = "0"         xlsheet.range("h1").value = "0"         xlsheet.range("i1").value = "0"         xlsheet.range("j1").value = "0"         xlsheet.range("k1").value = "0"         xlsheet.range("l1").value = "0"         xlsheet.range("m1").value = "0"         xlsheet.range("o1").value = "0"         xlsheet.range("p1").value = "0"         xlsheet.range("q1").value = "0"         xlsheet.range("r1").value = "0"         xlsheet.range("s1").value = "0"         xlsheet.range("t1").value = "0"         xlsheet.range("u1").value = "0"         xlwb.save     next olitem      xlwb.close savechanges:=true     if bxstarted         xlapp.quit     end if     set xlapp = nothing     set xlwb = nothing     set xlsheet = nothing     set olitem = nothing end sub

i tried:

 activeworkbook.saveas fileformat:=xlcsv

but not save file csv .

reference: social msdn forums

before

xlwb.close savechanges:=true

try

xlwb.saveas fileformat:=xlcsv

or

xlwb.saveas fileformat:=6

Comments

Post a Comment

Popular posts from this blog

javascript - RequestAnimationFrame not working when exiting fullscreen switching space on Safari -

request animation frame stops working when exiting fullscreen clicking on original space's safari window. fine if fullscreen mode canceled escape key or calling cancelfullscreen(). steps reproduce: open https://dl.dropboxusercontent.com/u/769042/prezi/safari-fullscreen.html click "draw raf", kittie appears click "fullscreen", go fullscreen click "draw raf", kittie appears go space original safari was, showing "click exit fullscreen mode", click anywhere, out fullscreen click "draw raf", nothing happens what handling click calling: window.requestanimationframe(draw); which draws on canvas context: function draw() { ctx.drawimage(img, math.random()*500|0, math.random()*400|0, 100, 100); } i checked .hidden , .visibilitystate, updated correctly. tested on osx 10.9.3, safari 7.0.4 (9537.76.4). has workaround/solution other switching old settimeout? this sounds webkit bug 88940 : using reque
Read more

Python ctypes access violation with const pointer arguments -

i have api i'm trying wrap in python (2.7.6 on win7) code using ctypes. here's api: client_dllfunc bool clientapi search_exporttoclipcopy(clienthsearch handle, int channel, lpctstr filename, const time_t& from, const time_t& to, const bool* cameras, int length, bool usepassword, lpctstr password, bool includetextin = false, bool excludeplayer = false); the issue i'm having cameras argument; , i've had issue other const pointer arguments well. here's how i'm wrapping api: def search_exporttoclipcopy(self, hsearch, csearch, filename, tfrom, tto, cameras, length, usepassword, password, includetextin=true, excludeplayer=false): exporttoclipcopy = self.sdkdll.search_exporttoclipcopy exporttoclipcopy.argtypes = [c_int, c_int, c_wchar_p, c_long, c_long, pointer(c_bool), c_int, c_bool, c_wchar_p, c_bool, c_bool] exporttoclipcopy.restype = c_bool exporttoclipcopy(hsearch, csearch, filename, tfrom, tto, cameras, length, usepassword, pass
Read more