- Apple iPhone 17 - alap
- A Motorola is Air mobillal készül
- Telekom mobilszolgáltatások
- Milyen okostelefont vegyek?
- Apple iPhone 15 Pro Max - Attack on Titan
- Google Pixel topik
- Az Apple bemutatta az iPhone 17-et
- Apple iPhone 17 Pro Max – fennsík
- Google Pixel 10 és 10 Pro összehasonlító gyorsteszt
- Vivo X200 FE – fenséges méret
-
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!
- DJI Goggles V2 FPV drón szemüveg + Lumenier tuning antennák
- DJI AVATA 2 drón akkumulátor (35e) és töltőHUB (25e)
- AMD Ryzen 7 7700X - Új, 1 év garancia - Eladó!
- Samsung Galaxy Z Fold6 ,Navy ,120 Hz AMOLED dupla kijelző, Snapdragon 8 Gen 3,12/512 GB,2027. 07. 11
- Honor Magic5 Pro Green LTPO 120 Hz, 50 MP triplakamera, 66 W gyorstöltés 12/512 GB
- LG 34WQ500-B - 34" IPS LED - 2560x1080 Wide FHD - 100Hz 5ms - AMD FreeSync - HDR10
- Wacom Cintiq DTK-2260 digitális rajztábla
- HIBÁTLAN iPhone 12 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3106, 100% Akkumulátor
- Bomba ár! Dell Latitude E7250 - i5-i7 I 8GB I 256SSD I 12,5" HD I HDMI I Cam I W10 I Garancia!
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3332
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest