Combination for a new task

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.

Hallo Johnny734, ich hoffe, es geht dir gut. Ich bin Ian und freue mich, Ihnen heute helfen zu können.

Basierend auf der Outlook-Tastenkombination unten war das Erstellen einer neuen Aufgabentastaturkombination nicht mehr in der Liste.
https://support.microsoft.com/office/keyboard-s...

Ich würde vorschlagen, Feedback an das Support-Techniker-Team zu senden, damit es eine Tastenkombination hinzufügen kann, um eine neue Aufgabe in zukünftigen Versionen zu erstellen. Oder Möglichkeit, die Tastenkombination in Outlook anzupassen.
https://feedbackportal.microsoft.com/feedback/f...

Dies ist ein Benutzer-zu-Benutzer-Support-Forum und ich bin ein Mitbenutzer.
Ich hoffe, das hilft, aber bitte lassen Sie es mich wissen, wenn Sie etwas anderes brauchen.

Vielen Dank für die Antwort. Es fehlen übrigens noch andere Shortkeys, zum Beispiel SHIFT+STRG+F für die erweiterte Suche. Ich hoffe, das wird in einem der nächsten Updates wieder möglich sein.

Option Explicit

Sub Example_Combinations()
Dim C As Collection, Item, i As Integer

Set C = Combinations(Array("A", "B", "C", "D", "E", "F"), 4)
For Each Item In C
i = i + 1
Debug.Print i; ":", Join(Item)
Next
End Sub

Function Combinations(Arr, ByVal Count As Integer) As Collection
'Gibt alle Kombinationen von Count Elementen in Arr als Arrays in einer Collection zurück
'Returns all combinations of Count elements in Arr as arrays in a collection
Dim Index() As Long
Dim Result()
Dim i As Long, j As Integer
'Create a collection
Set Combinations = New Collection
'Return empty collection if Count exceed the bound's of Arr
If LBound(Arr) + Count - 1 > UBound(Arr) Or Count < 1 Then Exit Function
'Setup space for index and result array
ReDim Index(1 To Count) As Long
ReDim Result(1 To Count)
'Setup index for first combination
For i = 1 To Count
Index(i) = LBound(Arr) + i - 1
Next
Do
'Build combination
For i = 1 To Count
Result(i) = Arr(Index(i))
Next
'Save it
Combinations.Add Result
'Get next index
i = Count
j = 0
Do
'Max. position for this index reached?
If Index(i) = UBound(Arr) - Count + i Then
j = j + 1
'Move index before up one step in next loop
i = i - 1
If i < 1 Then Exit Function
Else
'Increment position
Index(i) = Index(i) + 1
'Setup next indices
For j = 1 To j
i = i + 1
Index(i) = Index(i - 1) + 1
Next
Exit Do
End If
Loop
Loop
End Function

<br />

i use the newest version of both: outlook is the newest version and my mac also is updated to the newest. outlook still greyed out when i want to add a task.

Hello Diana,
<br />thank you for your reply.
<br />Maybe there is an translation error. So i try it in english.
<br />I already have office 365 family and this contains onedrive, onenote etc.
<br />Right now i use a standard mailserver (supporting only IMAP) for mail Mail-Accounts on my family domain.
<br />I have the choice to do an upgrade to a premium business mailserver from my webhoster. The webhoster support says there probably is no difference to an original MS Exchange mailserver, but i can't believe this... I have no idea which serversoftware is supported but i guess it is up-to-date.
<br />My second choice is to buy a licence for the MS exchange mailserver which is more expensive then buying a licence for this premium business mailserver from my webhoster.
<br />My question is if it really doesn't matter if I buy the cheap business EAS mailserver compared to the MS Exchange mailserver.
<br />I plan to use :
<br />- all professional calendar tools which outlook offers at least in combination with a MS Exchange mailserver
- all professional task tools which outlook offers at least in combination with a MS Exchange mailserver
<br />- onenote and share notes with my family accounts
- onedrive and share files with my family accounts.
<br />Thank you for help.
<br />Ingo

<br />