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:
1064		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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