Outlook - Shranjevanje pripetih datotek

Pomoč pri izdelavi makrov
Odgovori
bredvink
Prispevkov: 12
Pridružen: Če Sep 27, 2012 11:30 pm

Outlook - Shranjevanje pripetih datotek

Odgovor Napisal/-a bredvink »

Spoštovani!
Z ustreznimi makri obdelujem določena sporočila in pri tem se shranjujejo pripete datoteke (attachments).
Pri shranjevanju pripetih datotek pa sem naletel na težavo, da se datoteke shranjujejo z napačno velikostjo.
Velikost shranjenih datotek je 124 KB (???), čeprav je pripeta datoteka mnogo večja.
Tako shranjene datoteke so večinoma neuporabne.

Prilagam del kode, ki shranjuje datoteke:

For j = 1 To Sporocilo.Attachments.Count

Set objPA = Sporocilo.Attachments(j).PropertyAccessor
strContentID = objPA.GetProperty(PR_ATTACH_CONTENT_ID)

If strContentID = "" Then
olAtt.SaveAsFile "C:\temp\" & Sporocilo.Attachments(j).filename
Else

End If
Next

Zanimivo pri tem je to, da "ročno" shranjevanje posameznih pripetih datotek pa dela pravilno...
PropertyAccessor naj bi izločil morebitne priponke iz Header dela sporočila, ker teh priponk ni treba shranjevati.
A je morda ta del rutine vzrok težav?
Vnaprej se vam zahvaljujem za vašo pomoč.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Outlook - Shranjevanje pripetih datotek

Odgovor Napisal/-a admin »

Pozdravljeni,

Vi shranjujete nek objekt olAtt, ki ga sploh nikjer ne definirate in si sploh ne predstavljam, kako vam ta koda sploh deluje... Da sedaj ne odkrivam znanosti, vam podajam pač pravilni način shranjevanja priponk:

Koda: Izberi vse

    For Each objAtt In Sporocilo.Attachments
        objAtt.SaveAsFile "C:\temp\" & objAtt.FileName
        Set objAtt = Nothing
    Next 
PS: Prosim vas, da za programsko kodo uporabite opcijo Code
lp,
Matjaž Prtenjak
Administrator
bredvink
Prispevkov: 12
Pridružen: Če Sep 27, 2012 11:30 pm

Re: Outlook - Shranjevanje pripetih datotek

Odgovor Napisal/-a bredvink »

Hvala za rešitev.
olAtt spremenljivko definiram na začetku procedure as Attachment, zato koda "deluje".
Očitno VBA ima nekaj samoumevnega pri kodiranju in ne sporoči nedoslednosti v kodi pri compile ukazu...
Uporabil bom vaš predlog kode, ki pri hitrem testu deluje.
Lep pozdrav!

P.s.: spregledal sem kateri način podajanja kode je pravi in se za to opravičujem. Hvala za opozorilo. :)
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Outlook - Shranjevanje pripetih datotek

Odgovor Napisal/-a admin »

:) Potem pa vam seveda ne more delovati pravilno. VBA s tem nima nobene zveze. Glede na opis je torej napaka na vaši strani... Saj vi pač definirate spremenljivko olAtt pač nekje na vrhu in je nikoli ne spremenite... potem pa to pač shranjujete z različnimi imeni... Torej povsem napačna koda.
lp,
Matjaž Prtenjak
Administrator
Odgovori