-
IT café
Új hozzászólás Aktív témák
-
total90
veterán
válasz kovisoft #11906 üzenetére
Köszönöm, máris kiírja, hogy mennyi PDF-es E-mailem van
Így írtam át:
' Az összes e-mail megszámolni
For intItem = Inbox.Items.Count To 1 Step -1
' Csak az olvasatlan leveleket csekkolni
If Inbox.Items(intItem).UnRead = True Then
' Meghatározni, hogy melyik objektumosztály és csak azon leveleket feldolgozni
If Inbox.Items(intItem).Class = olMail Then
Set oItem = Inbox.Items(intItem)
If Not oItem.Attachments.Count = 0 Then
For intAttachement = 1 To oItem.Attachments.Count
' Csak PDFes leveleket feldolgozni
strAttachementType = Right(oItem.Attachments.Item(intAttachement).FileName, 3)
If UCase(strAttachementType) = "PDF" Then
Mennyiseg = oItem.Attachments.Count + Mennyiseg
End If
Next
End If
End If
End If
Next
MsgBox "E-Mailek PDF csatolmánnyal " & Mennyiseg
End SubEz eddig oké, de... most csak egy E-Mail volt bent PDF-el, de ha több van, esetleg egy E-Mail több PDF-el, akkor nem számol tovább
Vagy is minden egyes E-Mailben csak egy PDF-et észlel.Ki szeretném íratni, hogy összesen hány E-Mail van és valahogy megoldani, hogy ha egy E-Mailben több PDF van, akkor azt is számolja. Erre esetleg van ötleted?
Update!
Csináltam egy
Dim EmailCount As Integer
Majd beraktam ide:
If UCase(strAttachementType) = "PDF" Then
Anzahl = oItem.Attachments.Count + Anzahl
EmailCount = oFolder.Items.CountA végén:
MsgBox "Email PDF-el " & Mennyiseg & " összesen " & EmailCount & " E-Mailből"
Az EmailCount-ra 0-t kapok
[ Szerkesztve ]
Ha nincs jó, ló a szamár is.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Nyaralás topik
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Győr és környéke adok-veszek-beszélgetek
- Redmi Watch 4 - olcsó hús, sűrű a leve
- Politika
- Friss előzetesen a Destiny 2: The Final Shape
- Haladó fotósok digitális fényképei
- Háztartási gépek
- Futás, futópályák
- Garancia kérdés, fogyasztóvédelem
- További aktív témák...
- Latitude 7430 14" FHD IPS i7-1265U Irix Xe G7 16GB 512GB NVMe ujjlolv IR kam gar
- DJI Air 2s FMC drón 7 akkumulátorral!!! - 5,4k video, 1" SONY CMOS
- GYÖNYÖRŰ iPhone 14 Pro 256GB Space Black - Kártyfüggetlen, 1 ÉV GARANCIA, 100% Akkumulátor
- iPhone XS - 64GB - Space Gray - Független Eladó!
- Bontatlan ÚJ IPHONE 13 mini 128-512Gb gyári független Minden Szín Deák Térnél Azonnal Átvehető.