Nur als Idee: Ich würde mal probieren, nach der .Categories-Zuweisung die angefasste Mail zu speichern.
myMailItem.SaveAs strFullPath, vExtConst
myMailItem.Categories = "Abgelegt"
myMailItem.SaveDas hat geholfen.
Private Sub AddCategory()
Dim CategoryExists As Boolean
Dim objCategory As Category
Dim objNameSpace As Outlook.NameSpace
Set objNameSpace = Application.GetNamespace("MAPI")
'Check whether the category "Saved" already exists
If objNameSpace.Categories.Count > 0 Then
' Enumerate the Categories collection.
For Each objCategory In objNameSpace.Categories
If objCategory.Name = "Saved" And objCategory.Color = olCategoryColorGreen Then
CategoryExists = True
Exit For
Else
CategoryExists = False
End If
Next
End If
If CategoryExists = False Then
objNameSpace.Categories.Add "Saved", olCategoryColorGreen
End If
End Sub
Private Sub AssignSavedCategory(item As MailItem)
Dim Cats() As String
Dim i&
Dim Assigned As Boolean
Const SavedCategory As String = "Saved"
If Len(item.Categories) Then
' Check whether the category is assigned yet
Cats = Split(item.Categories, ";")
For i = 0 To UBound(Cats)
If LCase$(Cats(i)) = LCase$(SavedCategory) Then
Assigned = True
Exit For
End If
Next
End If
If Assigned = False Then
item.Categories = item.Categories & ";" & SavedCategory
item.Save
End If
End Sub myMailItem.UserProperties.Add("Storage location", olText, True).Value = strFullPath
myMailItem.Save
Gerne!Vielen Dank für die erweiterte Version
Die Möglichkeit gibt es oben in den Optionen bereits.
Siehe Version 0.5.1.
Siehe Version 0.5.1.
Das ist mir noch nicht aufgefallen. Habe zuhause kein Outlook, werde morgen aber mal einen Blick drauf werfen.Was mir aufgefallen ist:
Ein wenig Kosmetik - Umlaute werden nicht korrekt dargestellt. Wie müssten diese codiert sein, damit sie korrekt dargestellt werden?
Private Sub test()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Dim fd As Office.FileDialog
Set fd = xlApp.Application.FileDialog(msoFileDialogFolderPicker)
Dim selectedItem As Variant
If fd.Show = -1 Then
For Each selectedItem In fd.SelectedItems
Debug.Print selectedItem
Next
End If
Set fd = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
die angebotene Version von dir ist aber die 0.5.
Const DEFAULT_FOLDER = "G:\2-Projects"Was mir aufgefallen ist:
Ein wenig Kosmetik - Umlaute werden nicht korrekt dargestellt. Wie müssten diese codiert sein, damit sie korrekt dargestellt werden?
Das funktioniert so nicht.
Ich dachte ich hätte die neue Datei in dem Beitrag drangehängt. Habs jetzt behoben.die angebotene Version von dir ist aber die 0.5.
Auch nicht mit diesem Parameter "msoFileDialogFolderPicker"?
Das hab ich bei mir wieder rausgenommen, weil man dann leider nie wieder zurücknavigieren kann.Die 0.5. hat übrigens auch noch keine Speicherung des Ordners.
SuperIch dachte ich hätte die neue Datei in dem Beitrag drangehängt. Habs jetzt behoben.die angebotene Version von dir ist aber die 0.5.
Leider nicht.
Was meinst du mit "zurücknavigieren"?Das hab ich bei mir wieder rausgenommen, weil man dann leider nie wieder zurücknavigieren kann.Die 0.5. hat übrigens auch noch keine Speicherung des Ordners.
Innerhalb des Dialogs gibt es keine Schaltflächen um den gespeicherten Pfad wieder zu verlassen. Die einzige Möglichkeit besteht dann darin einen neuen Pfad ins Textfeld zu kopieren.
Aber man könnte hier doch quasi das Oberverzeichnis ablegen, in dessen verschiedene Unterordner man immer ablegen will?
ok. Jetzt ist es klar.
Genau das geht ja jetzt nicht. Entweder es wird der komplette Pfad gespeichert und dann im Dialog auch nur dieser mit den Unterverzeichnissen angezeigt, oder man muss jedes Mal selbst wählen.
Steht doch schon im Post #33
Den Lösungsvorschlag, den Excel-FileDialog zu verwenden, gibt es schon seit langem.
Hast nen Link?
Feedback und Test von mir mit Outlook 2019/O365
Ich muss dazu aber sagen, dass ich dazu einige Änderungen vornehmen musste.
Ah, jetzt ergibt das ganze Sinn. War doch schon etwas spät gestern..Ich muss dazu aber sagen, dass ich dazu einige Änderungen vornehmen musste.
Gemeinsam sind wir stark.Ah, jetzt ergibt das ganze Sinn. War doch schon etwas spät gestern..Ich muss dazu aber sagen, dass ich dazu einige Änderungen vornehmen musste.
Ja, ist in Arbeit.
Ich dachte mir, dass ich schon gerne ein paar Auswahlmöglichkeiten habe.
Technisch machbar. Das wäre dann natürlich nochmal eine weitere Verbesserung.
Genau so machen das bisher wohl Alle - denn anders geht es aktuell ja gar nicht (soweit mir bekannt)
Ein guter Hinweis!
myMailItem.UserProperties.Add(...)
Hab ich auch schon überlegt.
Ich hätte ja Lust. Aber mein PC verrottet scheinbar bei Alternate.