Outlook VBA: shranjevanje priponke
Outlook VBA: shranjevanje priponke
Zdravo,
Spodnji makro naj bi prebral ime excelove priponke in jo shranil v ustrezno mapo. Makro mi deluje samo za točno določen FileName, če npr. spremenim parameter FileName ali datum, mi makro ne najde nobene priponke, čeprav obstaja. V čem je trik?
Hvala za pomoč in lp
Makro:
Sub Shrani_priponko(OutlookFolderInInbox As String, OutlookFolderInSubFolder As String, _
ExtString As String, DestFolder As String, FileName As String, suffix As String)
Dim Atmt As Attachment
Dim AllFileName As String
Dim AtmtAllFileName As String
Dim ldtDate As Date
Dim I As Integer
Dim item as object
ldtDate= date
AllFileName = FileName & Format(ldtDate, "yyyymmdd") & suffix & ".xls"
For Each Item In SubsubFolder.Items
For Each Atmt In Item.Attachments
AtmtAllFileName = AllFileName
If Atmt = AtmtAllFileName Then
AtmtAllFileName = DestFolder & Atmt
Atmt.SaveAsFile AtmtAllFileName
I = I + 1
End If
Next Atmt
Next Item
Spodnji makro naj bi prebral ime excelove priponke in jo shranil v ustrezno mapo. Makro mi deluje samo za točno določen FileName, če npr. spremenim parameter FileName ali datum, mi makro ne najde nobene priponke, čeprav obstaja. V čem je trik?
Hvala za pomoč in lp
Makro:
Sub Shrani_priponko(OutlookFolderInInbox As String, OutlookFolderInSubFolder As String, _
ExtString As String, DestFolder As String, FileName As String, suffix As String)
Dim Atmt As Attachment
Dim AllFileName As String
Dim AtmtAllFileName As String
Dim ldtDate As Date
Dim I As Integer
Dim item as object
ldtDate= date
AllFileName = FileName & Format(ldtDate, "yyyymmdd") & suffix & ".xls"
For Each Item In SubsubFolder.Items
For Each Atmt In Item.Attachments
AtmtAllFileName = AllFileName
If Atmt = AtmtAllFileName Then
AtmtAllFileName = DestFolder & Atmt
Atmt.SaveAsFile AtmtAllFileName
I = I + 1
End If
Next Atmt
Next Item
Re: Outlook VBA: shranjevanje priponke
Iz podane kode (odo prosim naslednjič zaprite v ustrezno 'code' oznako) ni vidno, da bi bilo karkoli narobe. Makro, ki ste ga priložili, najprej iz vašega podanega imena, datuma in dodatka sestavi skupni ime in potem preišče vse priponke. če med njimi najde priponko z iskanim imenom, jo posname v izbrano izhodno mapo.
Mogoče narobe podajate spremenljivke. Če podate ime "poročilo" in dodatek "malo", bo makro iskal sledečo priponko:
Mogoče narobe podajate spremenljivke. Če podate ime "poročilo" in dodatek "malo", bo makro iskal sledečo priponko:
Koda: Izberi vse
poročilo20100712malo.xls ' ob predpostavki, da makro zaženete 12.7.2010
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Outlook VBA: shranjevanje priponke
Tako je, makro bi moral najti točno to priponko. Ampak, če npr. nastavim datum na : ldtDate = date + 1, mi priponke "poročilo20100713malo.xls" ne bo našel... Očitno gre potem za neko drugo težavo. Vseeno hvala za odgovor.
Re: Outlook VBA: shranjevanje priponke
ldtDate = date + 1
Tu je pomojem težava, ker date + 1 v določenih načinih formata pač ne deluje pravilno (ne poveča dan za ena).
Poizkusi DateAdd funkcijo.
Tu je pomojem težava, ker date + 1 v določenih načinih formata pač ne deluje pravilno (ne poveča dan za ena).
Poizkusi DateAdd funkcijo.
Re: Outlook VBA: shranjevanje priponke
Sem proval z DateAdd pa mi tudi ne dela...
Re: Outlook VBA: shranjevanje priponke
Kaj pa:Rolle napisal/-a:Tako je, makro bi moral najti točno to priponko. Ampak, če npr. nastavim datum na : ldtDate = date + 1, mi priponke "poročilo20100713malo.xls" ne bo našel... Očitno gre potem za neko drugo težavo. Vseeno hvala za odgovor.
Koda: Izberi vse
ldtDate = ldtDate + 1
lp,
cedra
cedra
Re: Outlook VBA: shranjevanje priponke
Težava je v 4. vrstici: Namesto, da bi pri izpolnjenem pogoju v 4. vrstici skočil v 5. vrstico, gre direkt na 8., kot bi bila neka težava v formatu zapisa v 4. vrstici...
1.) For Each Item In SubsubFolder.Items
2.) For Each Atmt In Item.Attachments
3.) AtmtAllFileName = AllFileName
4.) If Atmt = AtmtAllFileName Then
5.) AtmtAllFileName = DestFolder & Atmt
6.) Atmt.SaveAsFile AtmtAllFileName
7.) I = I + 1
8.) End If
9.) Next Atmt
10.) Next Item
1.) For Each Item In SubsubFolder.Items
2.) For Each Atmt In Item.Attachments
3.) AtmtAllFileName = AllFileName
4.) If Atmt = AtmtAllFileName Then
5.) AtmtAllFileName = DestFolder & Atmt
6.) Atmt.SaveAsFile AtmtAllFileName
7.) I = I + 1
8.) End If
9.) Next Atmt
10.) Next Item
Re: Outlook VBA: shranjevanje priponke
Poskusite
Koda: Izberi vse
If UCase(Trim(Atmt)) = UCase(Trim(AtmtAllFileName)) Then
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Outlook VBA: shranjevanje priponke
If Atmt.FileName = AtmtAllFileName Then
AtmtAllFileName = DestFolder & Atmt.FileNAme
Mislim da je tu težava.
AtmtAllFileName = DestFolder & Atmt.FileNAme
Mislim da je tu težava.
Re: Outlook VBA: shranjevanje priponke
Ne eno, ne drugo ne pomaga...
Poskušal sem tudi:
if UCase(Trim(Atmt.FileName)) = UCase(Trim(AtmtAllFileName)) Then
pa tudi ne dela...
Poskušal sem tudi:
if UCase(Trim(Atmt.FileName)) = UCase(Trim(AtmtAllFileName)) Then
pa tudi ne dela...
Re: Outlook VBA: shranjevanje priponke
Potem vam pa lahko zagotovim, da vaš problem ni tukaj...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Outlook VBA: shranjevanje priponke
Očitno res...vseeno hvala za pomoč.
Lp
Lp
Re: Outlook VBA: shranjevanje priponke
Makro dela Makro je bil prav napisan že v samem začetku. Napačno je bil podan eden od parametrov, v tem primeru, parameter "suffix".
Se pravičujem za jemanje časa, kjub temu pa sem izvedel nekaj novega...
Se pravičujem za jemanje časa, kjub temu pa sem izvedel nekaj novega...
Re: Outlook VBA: shranjevanje priponke
Že v prvem odgovoru sem vam napisal...
admin napisal/-a:Mogoče narobe podajate spremenljivke.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator