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

• #11907 total90 veterán kovisoft #11906

  Új Válasz 2018-04-05 10:54:56 #11907

  Ú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

  válasz kovisoft #11906 üzenetére

  Köszönöm, máris kiírja, hogy mennyi PDF-es E-mailem van

  Így írtam át:

  ' 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
Mennyiseg = oItem.Attachments.Count + Mennyiseg
End If
Next
End If
End If
End If
Next
MsgBox "E-Mailek PDF csatolmánnyal " & Mennyiseg
End Sub

  Ez eddig oké, de... most csak egy E-Mail volt bent PDF-el, de ha több van, esetleg egy E-Mail több PDF-el, akkor nem számol tovább
  Vagy is minden egyes E-Mailben csak egy PDF-et észlel.

  Ki szeretném íratni, hogy összesen hány E-Mail van és valahogy megoldani, hogy ha egy E-Mailben több PDF van, akkor azt is számolja. Erre esetleg van ötleted?

  Update!

  Csináltam egy Dim EmailCount As Integer

  Majd beraktam ide:
  If UCase(strAttachementType) = "PDF" Then
Anzahl = oItem.Attachments.Count + Anzahl
EmailCount = oFolder.Items.Count

  A végén: MsgBox "Email PDF-el " & Mennyiseg & " összesen " & EmailCount & " E-Mailből"

  Az EmailCount-ra 0-t kapok

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