- Google Drive
- DIGI kábel TV
- A Microsoft feltalálta az olcsó AI-t
- Az MSI RadiX AXE6600 tesztje – router, játékosoknak
- AI generálja majd a képeket a Photoshopban
- Linux kezdőknek
- Proxmox VE
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- VoIP telefonálás
- A TikTokon marakodik Trump és Biden, betilthatja az USA
-
IT café
Új hozzászólás Aktív témák
-
total90
veterán
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
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!
- Autós topik
- Honor Magic5 Pro - kamerák bűvöletében
- Luck Dragon: Asszociációs játék. :)
- Google Drive
- DIGI kábel TV
- A Microsoft feltalálta az olcsó AI-t
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- A fociról könnyedén, egy baráti társaságban
- Politika
- Mit tehetsz jogilag, ha átvertek, megkárosítottak a Hardveraprón?
- További aktív témák...
- ZOTAC GeForce GTX 1080 AMP Edition 8GB GDDR5X 256bit
- Filmes gép gyűjtemény
- Nikon D5000 + AF-S DX NIKKOR 18-105 mm
- Bontatlan Seagate & Western Digital HDD-k 3TB - 12TB -ig - Számla + Garancia, Ár alatt! BeszámítOK!
- DJI Mini 4 pro FMC drón - 3 akku, RC2 táv, 2 táska, Filterek, 2025. decemberig garancia, DJI Care