Uvoz vsebine excelove datoteke iz Outlook-a s pomočjo makra
Uvoz vsebine excelove datoteke iz Outlook-a s pomočjo makra
Pozdravljeni,
V excelovo datoteko bi rad s pomočjo makra uvozil vsebino neke druge excelove datoteke, ki jo dobim kot priponko v Outlook-u. Kako bi to naredil?
Hvala za pomoč.
V excelovo datoteko bi rad s pomočjo makra uvozil vsebino neke druge excelove datoteke, ki jo dobim kot priponko v Outlook-u. Kako bi to naredil?
Hvala za pomoč.
Na žalost je to čisto presplošno vprašanje, da bi lahko imelo kakšen "uporaben" odgovor...
Pač preko VBA morate iz Outlooka dobiti e-pošto in iz nje izluščiti priponko. To priponko odprete v Excelu in iz nje poberete elemente, ki vas zanimajo ter jih zapišete v odprti dokument. Dokument iz priponke še zaprete in stvar je končana.
Pač preko VBA morate iz Outlooka dobiti e-pošto in iz nje izluščiti priponko. To priponko odprete v Excelu in iz nje poberete elemente, ki vas zanimajo ter jih zapišete v odprti dokument. Dokument iz priponke še zaprete in stvar je končana.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Evo, je že sicer nekaj časa nazaj, pa vendar se moram pohvalit , da sem malo po netu pobrskal, malo svojega znanja uporabil in sedaj imam makro, ki mi lepo čita po inboxu, išče željene priponke, jih obdeluje in shranjuje na željena mesta.
Rolle poizkusi, na netu je veliko nasvetov, ki bi rešili tvoj problem.
Rolle poizkusi, na netu je veliko nasvetov, ki bi rešili tvoj problem.
Evo samo nekaj povezav. Makroje pa si boš moral prirediti za svoje potrebe.
Lahko pa kontaktiraš na ZS.
http://www.mrexcel.com/forum/showthread.php?t=9801
http://www.fontstuff.com/outlook/oltut01.htm
http://www.experts-exchange.com/Softwar ... 84068.html
http://www.rondebruin.nl/mail/folder2/saveatt.htm
Lahko pa kontaktiraš na ZS.
http://www.mrexcel.com/forum/showthread.php?t=9801
http://www.fontstuff.com/outlook/oltut01.htm
http://www.experts-exchange.com/Softwar ... 84068.html
http://www.rondebruin.nl/mail/folder2/saveatt.htm
Mogoče lahko pomagam z delčkom kode, ki v Outlook sporočilih shrani vse priloge. Če v rešitev dodaš še filter (IF) lahko uloviš ustrezno Excel datoteko, jo z VBA odpreš v Excel in odbdelaš.
Lep pozdrav,
Uroš
Koda: Izberi vse
Sub ShraniOutlookPriloge()
'zagon v Outlooku
Dim ns As Namespace
Dim inbox As MAPIFolder
Dim enaPosta As Object
Dim priponka As Attachment
Dim imePriponke
Set ns = GetNamespace("Mapi")
Set inbox = ns.GetDefaultFolder(olFolderInbox)
'preberi vso pošto
For Each enaPosta In inbox.Items
'MsgBox enaPosta.Attachments.Count
'MsgBox enaPosta.Subject
For Each priponka In enaPosta.Attachments
imePriponke = "c:\test\" & priponka.Filename
priponka.SaveAsFile imePriponke
Next
Next
End Sub
Uroš