Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook.MailItem.Attachments.Count = 0 obwohl Email einen Anhang besitzt
27.07.2020 14:22:58 M.S.
NotSolved
27.07.2020 16:26:49 Gast90255
NotSolved
28.07.2020 05:57:47 M.S.
NotSolved
28.07.2020 15:09:07 Gast90255
NotSolved

Ansicht des Beitrags:
Von:
M.S.
Datum:
27.07.2020 14:22:58
Views:
57
Rating: Antwort:
  Ja
Thema:
Outlook.MailItem.Attachments.Count = 0 obwohl Email einen Anhang besitzt

Win10 + Outlook 2010 Professional

Hallo zusammen,

ich möchte gerne nur die (.pdf) Anhänge einer neu empfangenen E-Mail eines IMAP Postfaches automatisch ausdrucken.
Bei der Minimierung der Problemstellung habe ich jetzt folgendes Problem:

Das Objekt o.Mail.Attachments.Count ist fast immer =0, obwohl die Email einen Anhang besitzt. (Zur Identifizierung lasse ich mir vorher den Betreff in einer msgbox anzeigen.

Der Wert o.Mail.Attachments.Count ist nur sehr selten = 1. Ich kann aber nicht erkennen wieso... Hat einer von euch eine Idee?

 

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim Folder As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  
  Set Folder = Ns.Folders("TEST123@TEST123.de").Folders("Posteingang")
  'MsgBox (Folder.FolderPath)
  Set Items = Folder.Items
End Sub


Private Sub Items_ItemAdd(ByVal Item As Object)
  'MsgBox ("Neue Mail eingegangen...")
  If TypeOf Item Is Outlook.MailItem Then
    PrintAttachments Item
  End If
End Sub

Private Sub PrintAttachments(oMail As Outlook.MailItem)
  MsgBox (oMail.Subject)
  MsgBox (oMail.Attachments.Count)
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook.MailItem.Attachments.Count = 0 obwohl Email einen Anhang besitzt
27.07.2020 14:22:58 M.S.
NotSolved
27.07.2020 16:26:49 Gast90255
NotSolved
28.07.2020 05:57:47 M.S.
NotSolved
28.07.2020 15:09:07 Gast90255
NotSolved