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!
|