Hallo,

ich möchte meine Mails (Outllok 2016) per Makro nach Firma und Namen sortieren. Dazu habe ich mir ein Makro geschrieben, das Ordner erstellt und die Mails dahin verschiebt. Das hat auch alles funktioniert, nur bei einer Firma welchen einen Kopano Server (8.5.9) und dessen Dienste als Groupware nutzt kann ich die Mails nicht mehr verschieben. Es kommt immer folgender Fehler: Die Aktion, wird vom Exchange ActiveSync leider nicht ünterstützt.

Public Function MoveMail(ByRef poMail As MailItem, ByRef poFolders As Outlook.MAPIFolder, ByRef sTmp As String) As Boolean
    On Error GoTo ErrorHandler
    ' Mail verschieben?
    If MsgBox("Mail: " & poMail.Subject & " nach " & "*" & sTmp & "*" & " verschieben?", vbYesNo + vbInformation, "Verschiebung") = vbYes Then
        poMail.Move poFolders
        MoveMail = True
    End If

Hat zufälligerweise jemand eine Idee???? Danke!