Új hozzászólás Aktív témák

• #11905 total90 veterán

  Új Válasz 2018-04-05 10:00:56 #11905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Sub

  Ha 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