Hirdetés
- sh4d0w: Én és a számítógép
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- sidi: Samsung Deskmaster 386s/20n
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- Algieba: Nokia E61i 2025-ben
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
LOGOUT
Új hozzászólás Aktív témák
-
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
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- PlayStation 5
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Android alkalmazások - szoftver kibeszélő topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- OLED TV topic
- Bluetooth hangszórók
- Kerékpárosok, bringások ide!
- Milyen alaplapot vegyek?
- Jegeli pénznyelő projektjét az Apple, az okosszemüvegben látják a jövőt
- Path of Exile 2
- További aktív témák...
- Samsung Galaxy S23 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- iBasso DX180 2025 DAP fekete, 1 hónapos, sok Muzix garanciával eladó
- Új iPad Mini 6 Gen. 256GB Wi-fi Starlight 3év garancia!
- Samsung Galaxy s25 ultra 512gb, makulátlan,garanciális
- Steam Deck OLED 1TB+TOK GYÁRI!!!PATENT ÁLLAPOTBA ELADÓ!!!
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3050, 96% Akkumulátor
- Motorola Moto G32 / 8/256GB / Kártyafüggetlen / 12 Hó Garancia
- iPhone 15 Pro 128GB Silver Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3595
- Bomba ár! Fujitsu LifeBook U904 - i5-4G I 10GB I 256SSD I 14" QHD+ I HDMI I Cam I W10 I Garancia!
- Jawbone Up okoskarkötő, aktivitásmérő
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest