Hirdetés
- IFA 2025: Sokrétű tudást kínál az AGM két friss strapabírója
- Telekom T Phone 3 5G – modern tudakozó
- Valószínűleg a Honor legolcsóbb modellje lesz
- IFA 2025: Lépcsőmászó, víztisztító, szögletes és gombóc alakú robotporszívók
- 3 milliós villanyautó, AI tamagocsi és kamerás napszemüveg - megjött az AstraUX
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy A55 - új év, régi stratégia
- Motorola Edge 40 - jó bőr
- Telekom mobilszolgáltatások
- iPhone 16e - ellenvetésem lenne
- Google Pixel topik
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- Redmi Note 9 Pro [joyeuse]
- Honor Magic V5 - méret a kamera mögött
-
Mobilarena
Új hozzászólás Aktív témák
-
Hali,
MS Access VBA és lenne a következő kód:
Dim oFolder As Outlook.MAPIFolder
Dim Inbox As Outlook.MAPIFolder
Dim Drafts As Outlook.MAPIFolder
Dim Archive As Outlook.MAPIFolder
Dim MailFolder As Outlook.MAPIFolder
Dim AdobeFolder As Outlook.MAPIFolder
Dim MailItem As Outlook.MailItem
Dim oItem As Outlook.MailItem
Dim i As Long
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim intAttachement As Integer
Dim intCounter As Integer
Dim intItem As Integer
Dim strMailbox As String
Dim strInbox As String
Dim strDrafts As String
Dim strArchive As String
Dim strDatabase As String
Dim strAttachementType As String
Dim Mennyiseg As Integer
' Outlookra csatlakozas
Set o_NS = oA.GetNamespace("MAPI")
o_NS.Logon , , , False
Set oFs = o_NS.Folders
'Outlook Mailbox
strMailbox = "e-mail címem"
strInbox = "Postafiók"
strArchive = ""
Set oFolder = oFs.Item(strMailbox)
Set Inbox = oFolder.Folders(strInbox)
Set AdobeFolder = Inbox.Folders("Adobe")
Set MailFolder = o_NS.GetDefaultFolder(olFolderOutbox)
' 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
MsgBox "E-Mailek PDF csatolmánnyal " & Mennyiseg
End If
Next
End If
End If
End If
Next
End SubHa elindítom a kódot, akkor a pdf csatolmányos levelek számára nullát mutat, holott nem annyi van.
Ötlet valakinek, hogy miért nem számolja?A kód a nagyobb kód része, a többi rész okés, de ez így nem akar működni
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- CADA, Polymobil, és más építőkockák
- Mégis mi értelme az Xbox PC-nek, ha limitálja a hardverválasztékot?
- One otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Háztartási gépek
- Házimozi belépő szinten
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone XR 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3118, 100% Akkumulátor
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3364
- Bezámítás! Gigabyte G5 KC Gamer notebook - i5 10500H 16GB DDR4 512GB SSD RTX 3060 6GB WIN10
- Samsung Galaxy S21 FE 128GB // Ajándék // Számla // Garancia //
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest