Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook: Nachrichtenkennzeichnung zur Nachverfolgung (mit benutzerdefiniertem Text)
 13.04.2014 14:27:23 pcfreak9090
Solved
04.05.2014 21:21:43 Gast87054
NotSolved

Ansicht des Beitrags:
Von:
pcfreak9090		 Datum:
13.04.2014 14:27:23		 Views:
2409		 Rating:
     
Antwort:
 Nein
Thema:
Outlook: Nachrichtenkennzeichnung zur Nachverfolgung (mit benutzerdefiniertem Text)

Hi,

I würde gerne ein Makro zur Nachverfolgung von Nachrichten in Outlook erstellen, da man über einen Schnellzugriff nicht an das Textfeld dran kommt.

Hier mein Code:

Public Sub SetKennzeichnung()
  Dim Mail As Outlook.MailItem
  Dim obj As Object
  Dim Sel As Outlook.Selection
  Dim Item As Object
  Dim i&

  Set obj = Application.ActiveWindow
  If TypeOf obj Is Outlook.Explorer Then
    Set Sel = obj.Selection
    For i = 1 To Sel.Count
      Set obj = Sel(i)
      If TypeOf obj Is Outlook.MailItem Then
        Set Mail = obj
        Mail.MarkAsTask Icon
        Mail.TaskSubject = "Test"
        Mail.Save
      End If
    Next

  Else
    Set obj = obj.CurrentItem
    If TypeOf obj Is Outlook.MailItem Then
      Set Mail = obj
        Mail.MarkAsTask Icon
        Mail.TaskSubject = "Test"
        Mail.Save
    End If
  End If
End Sub

Alles funktioniert gut, außer dass das "TaskSubject" nicht auf  "Test" gesetzt wird, sondern den Standardtext erhält ("Zur Nachverfolgung").

Hat jemand eine Idee, was da schief geht?

Danke und Gruß

Jan

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: Nachrichtenkennzeichnung zur Nachverfolgung (mit benutzerdefiniertem Text)
 13.04.2014 14:27:23 pcfreak9090
Solved
04.05.2014 21:21:43 Gast87054
NotSolved