Thema Datum  Von Nutzer Rating
Antwort
12.01.2016 12:59:28 Heino Casper
NotSolved
12.01.2016 13:38:15 Gast29871
NotSolved
13.01.2016 14:44:21 Heino Casper
NotSolved
13.01.2016 14:47:05 Heino Casper
NotSolved
13.01.2016 16:21:45 Gast86969
NotSolved
13.01.2016 16:48:07 Heino Casper
NotSolved
13.01.2016 17:23:27 Gast94542
NotSolved
14.01.2016 09:40:51 Heino Casper
NotSolved
14.01.2016 10:14:19 Gast12402
NotSolved
Blau Outlook 2007 - Über VBA E-Mails Kategorien zuweisen
 14.01.2016 10:24:39 Heino Casper
NotSolved
14.01.2016 10:50:39 Gast79294
NotSolved
14.01.2016 11:58:38 Heino Casper
NotSolved
14.01.2016 15:32:25 Gast2342
Solved
15.01.2016 14:43:29 Heino Casper
NotSolved
15.01.2016 14:44:02 Gast66602
NotSolved
15.01.2016 19:47:13 Gast43428
*****
Solved

Ansicht des Beitrags:
Von:
Heino Casper		 Datum:
14.01.2016 10:24:39		 Views:
1468		 Rating:
     
Antwort:
  Ja
Thema:
Outlook 2007 - Über VBA E-Mails Kategorien zuweisen		 
Hier der Code

Private WithEvents Items As Outlook.Items

'Diese Kategorie automatisch zuweisen
Private Const AUTO_CATEGORY As String = "mit Klimax-Datei"

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

  Set Ns = Application.GetNamespace("MAPI")

  'Posteingang
  Set Inbox = Ns.GetDefaultFolder(olFolderInbox)

  'Unterordner des Posteingangs
  Set Subfolder = Inbox.Folders("Mail mit Anhang")

  Set Items = Subfolder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Dim colAtts As Outlook.Attachments
  Dim oAtt As Outlook.Attachment
  Dim sFile As String
  Dim sDirectory As String
  Dim sFileType As String
  Dim Cats() As String
  Dim i&
  Dim Exists As Boolean

  Set colAtts = oMail.Attachments

  If colAtts.Count Then
    For Each oAtt In colAtts
      sFileType = LCase$(Right$(oAtt.FileName, 4))
      Select Case sFileType
      Case ".xml"
        sFile = ATTACHMENT_DIRECTORY & oAtt.FileName
        oAtt.SaveAsFile sFile
       
 
    If Len(Item.Categories) Then
    'Prüfe, ob die Kategorie schon zugewiesen ist
    Cats = Split(Item.Categories, ";")
    For i = 0 To UBound(Cats)
      If LCase$(Cats(i)) = LCase$(AUTO_CATEGORY) Then
        Exists = True
        Exit For
      End If
    Next

    If Exists = False Then
      Item.Categories = Item.Categories & ";" & AUTO_CATEGORY
      Item.Save
    End If

  Else
    Item.Categories = AUTO_CATEGORY
    Item.Save
  End If
  End Select
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
12.01.2016 12:59:28 Heino Casper
NotSolved
12.01.2016 13:38:15 Gast29871
NotSolved
13.01.2016 14:44:21 Heino Casper
NotSolved
13.01.2016 14:47:05 Heino Casper
NotSolved
13.01.2016 16:21:45 Gast86969
NotSolved
13.01.2016 16:48:07 Heino Casper
NotSolved
13.01.2016 17:23:27 Gast94542
NotSolved
14.01.2016 09:40:51 Heino Casper
NotSolved
14.01.2016 10:14:19 Gast12402
NotSolved
Blau Outlook 2007 - Über VBA E-Mails Kategorien zuweisen
 14.01.2016 10:24:39 Heino Casper
NotSolved
14.01.2016 10:50:39 Gast79294
NotSolved
14.01.2016 11:58:38 Heino Casper
NotSolved
14.01.2016 15:32:25 Gast2342
Solved
15.01.2016 14:43:29 Heino Casper
NotSolved
15.01.2016 14:44:02 Gast66602
NotSolved
15.01.2016 19:47:13 Gast43428
*****
Solved