Eigenschaften einer aktive Outlook-Aufgabe verändern

[reiserm]

Wie kann ich bei einer in der Aufgabenliste markierten Aufgabe über VBA das Fälligkeitsdatum verändern?

 

[Grafixboy]

Hi
.CreationTime ? ich hoffe das hilft dir weiter

    Dim myOLApp As Object, myInspector As Object, Dim Faellig As Object
    Set myOLApp = CreateObject("Outlook.Application")
    Set myInspector = myOLApp.ActiveInspector
    Faellig = 'Datum in US-Schreibweise
    myInspector.CurrentItem.? = Faellig
    myInspector.CurrentItem.Save
    myInspector.CurrentItem.Close
    Set myInspector = Nothing
    Set myOLApp = Nothing

So denke ich den .? Befehl weis ich allerdings nicht.
Vielleicht konnte ich dir ja helfen versuch halt den Befehl rauszubekommen.

Gruß Grafixboy

 

[reiserm]

Erst mal danke für die Antwort, aber so funtioniert es so nicht. Der Befehl heisst auf jeden Fall .duedate.

Ich hab mal einen ähnlichen Code generiert.

Dim myOLApp As Object, myInspector As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myInspector = myOLApp.ActiveInspector
a = myInspector.CurrentItem.DueDate
myInspector.CurrentItem.DueDate = "21.02.2005"

Das funktioniert dann wenn ich die Aufgabe doppelgeklickt habe, die Aufgabe ist geöffnet.
Was ich benötige ist aber das, dass das ganze funtioniert sobald ich eine Aufgabe in der Aufgabenliste markiert habe (nur der Focus darauf liegt, oder wie man dazu sagt).

 

[Grafixboy]

Hallo reiserm

Das selbe Problem hatte ich auch mal habe es zu lösen allerdings aus den Augen verloren. Wollte damals aus der Aufgabenliste den Betreff ändern bzw jedem betreff ein Datum voranstellen.

Statt das:

Set myOLApp = CreateObject("Outlook.Application")

das:

Set myOLApp = CreateObject("Outlook")

myInspector.CurrentItem.Open 
myInspector.CurrentItem.DueDate = "21.02.2005" 
myInspector.CurrentItem.Save
myInspector.CurrentItem.Close

Versuch das mal ist zwar jetzt alles ziemlich freihändig aber ich setz mich heute Abend dran.

Gruß Grafixboy

 

[thekorn]

"Inspector" vs. "Explorer"

Das funktioniert dann wenn ich die Aufgabe doppelgeklickt habe, die Aufgabe ist geöffnet.

Hat man nämlich ein Outlookelement geöffnet, man also ein "Eingabeformular" sieht, spricht man das akt. Objekt mit "ActiveInspector" usw. an.

Was ich benötige ist aber das, dass das ganze funtioniert sobald ich eine Aufgabe in der Aufgabenliste markiert habe (nur der Focus darauf liegt, oder wie man dazu sagt).

Hierzu gibt es in Outlook das sog. "Explorer"-Objekt, also die Übersicht.
Der Code sieht für dich dann z.B. wie folgt aus:

Public Sub faellig()
Set aufgabe = ActiveExplorer.Selection.Item(1) 'Bei mehrfach Selektion wird das 1. Element genommen
aufgabe.DueDate = "01.10.05"
aufgabe.Save
End Sub

Gruß
thekorn

 

[Grafixboy]

Hi reiserm

Ja zu demselben Ergebniss bin ich gestern auch gekommen so funktioniert das.
Wie es thekorn niedergeschrieben hat.
Deswegen spar ich mir jetzt die Letter.

Gruß @ all

 

[reiserm]

Hi thekorn, hi grafixboy

Danke für die Hilfe, so hat es vorerst geklappt. Bin aber noch nicht ganz 100% zufrieden. Der Code funktioniert nur, wenn ich die Aufgabe direkt bei den Aufgaben anklicke. Nun ist es aber bei mir so, dass ich den Aufgabenblock in der Kalenderansicht mit eingeblendet habe und von dort aus meine Aufgaben tracke. Da funktioniert der Code noch nicht. Kann mir da jemand weiterhelfen?

Zudem wäre es auch nett, wenn ihr auf mein anderes Problem eine Antwort hättet. Kann ich in Outlook per Tastendruck ein Makro starten, wenn ja, wie?

Gruß Michael