Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- laskr99: DFI és DFI Lanparty gyűjteményem
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
- Brogyi: CTEK akkumulátor töltő és másolatai
- Magga: PLEX: multimédia az egész lakásban
- tordaitibi: Windows rendszerek indítása EFI partíció nélkül
- Mr Dini: Mindent a StreamSharkról!
- Luck Dragon: Asszociációs játék. :)
- 
			  LOGOUT  
Új hozzászólás Aktív témák
- 
			
			válasz  kovisoft
							
							
								#11906
							
							üzenetére kovisoft
							
							
								#11906
							
							üzenetéreKö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 IntegerMajd 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!
- Elemlámpa, zseblámpa
- sziku69: Fűzzük össze a szavakat :)
- alza vélemények - tapasztalatok
- Megvásárolható a Vivo X300 és X300 Pro Magyarországon, íme a hivatalos árak
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Motoros topic
- Építő/felújító topik
- Metal Gear Solid
- 5.1, 7.1 és gamer fejhallgatók
- További aktív témák...
- Logitech Laser egér - Multi Device K380 Bluetooth Billentyűzet- Logitech Bluetooth Audio Adapter
- Precision 7670 27% 16" FHD+ IPS i7-12850HX RTX A3000 32GB 1TB NVMe magyar vbill IR kam gar
- szinte új 14 hüvelykes MacBook Pro M4 512GB SSD space black asztrofekete Apple 3 év garancia
- újszerű iPhone 16e 128GB black fekete független Apple garancia
- új iPhone 17 256GB black fekete független Apple 1 év garancia
- Jo Nesbo: LEOPÁRD (nem olvasott)
- Bomba ár! Lenovo ThinkPad X390: i5-G8 I 8GB I 256SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Lenovo ThinkPad P15 Gen 2 - i7-11850H 32GB 1000GB Nvidia RTX A4000 8GB 1 év gar.
- BESZÁMÍTÁS! Asus H370 i5 8700 16GB DDR4 512B SSD RX 6650 XT 8GB Zalman N5 OF ADATA 600W
- GYÖNYÖRŰ iPhone 13 mini 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2159
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest
 
						
 
								 
							


