- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- Elektromos rásegítésű kerékpárok
- Rap, Hip-hop 90'
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
Hirdetés
-
LOGOUT
Ú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!
- Music Hall a15.3 integrált erősítő Phono bemenettel
- Keresek főként szolgáltató függő Apple Iphone készülékeket
- Kalandvágyók figyelmébe! iMars Android car player - Android autós fejegység
- Sony STR DH 130
- ASUS ZenBook 14 OLED UM3402 - 14"2.8K OLED - Ryzen 7 7730U - 16GB - 512GB - Win11 - 1,5 év garancia
- Lenovo ThinkPad 40AF docking station (DisplayLink)
- Bomba ár! HP ProBook 440 G6 - i5-8GEN I 8GB I 256SSD I HDMI I 14" FHD I Cam I W10 I Gari!
- GYÖNYÖRŰ iPhone 11 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS2190, 100% Akkumulátor
- NYÁRI BOMBA AKCIÓK! PSN, STEAM, UBISOFT CONNECT, EA APP, XBOX EREDETI KULCSOK 100% GARANCIA
- REFURBISHED és ÚJ - HP Thunderbolt Dock G2 230W docking station (3TR87AA)
Állásajánlatok
Cég: FOTC
Város: Budapest