Outlook VBA: shranjevanje priponke

[Rolle]

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

[admin]

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:

Koda: Izberi vse

poročilo20100712malo.xls ' ob predpostavki, da makro zaženete 12.7.2010

[Rolle]

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.

[bluespeed]

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.

[Rolle]

Sem proval z DateAdd pa mi tudi ne dela...

[cedra]

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.

Kaj pa:

Koda: Izberi vse

ldtDate = ldtDate + 1

[Rolle]

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

[admin]

Poskusite

Koda: Izberi vse

If UCase(Trim(Atmt)) = UCase(Trim(AtmtAllFileName)) Then

[bluespeed]

If Atmt.FileName = AtmtAllFileName Then
AtmtAllFileName = DestFolder & Atmt.FileNAme

Mislim da je tu težava.

[Rolle]

Ne eno, ne drugo ne pomaga...

Poskušal sem tudi:

if UCase(Trim(Atmt.FileName)) = UCase(Trim(AtmtAllFileName)) Then

pa tudi ne dela...

[admin]

Potem vam pa lahko zagotovim, da vaš problem ni tukaj...

[Rolle]

Očitno res...vseeno hvala za pomoč.

Lp

[Rolle]

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...

[admin]

Že v prvem odgovoru sem vam napisal...

Mogoče narobe podajate spremenljivke.