Anfahrt und Rückfahrt mit VBA einfügen

Moderator: ModerationP

Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon uA-ch » 04. Okt 2018, 10:45

Werte Kollegen
Ich arbeite mit Outlook 2016.
Ich möchte im Kalender einen Termin selektionieren. Nun möchte ich ein VBA starten,

es soll einen Termin, dass mir die Anfahrtszeit vor dem selektioniertem Termin einfügt.
- Ende vom neuem Termin = Anfangszeit des selektioniertem Termin.
- Dauer = mittels MsgBox in Minuten eingeben.
- Bezeichnung =Anreise
- Kategorisierung = Reisezeit
- ohne Erinnerung

es soll einen weiteren Termin, dass mir die Rückfahrtszeit nach dem selektioniertem Termin einfügt.
Anfang vom neuem Termin = Endzeit des selektioniertem Termin.
- Dauer = mittels MsgBox in Minuten eingeben.
- Bezeichnung Rückreise
- Kategorisierung = Reisezeit
- ohne Erinnerung

Ich Bitte um eure Unterstützung.
Besten Dank Urs
Urs

Windows 7
Microsoft Office Professional Plus 2010
Benutzeravatar
uA-ch
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 316
Registriert: 16. Sep 2005, 17:58
Wohnort: Luzern

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon Michael Bauer » 04. Okt 2018, 21:20

Michael Bauer
Add-Ins für Microsoft Outlook
Benutzeravatar
Michael Bauer
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6340
Registriert: 03. Feb 2005, 15:07
Wohnort: Vollersode

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon uA-ch » 08. Okt 2018, 09:28

Besten Dank Herr Bauer,
Genau das wollte ich. Tausend Dank!

Urs
Urs

Windows 7
Microsoft Office Professional Plus 2010
Benutzeravatar
uA-ch
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 316
Registriert: 16. Sep 2005, 17:58
Wohnort: Luzern

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon uA-ch » 08. Okt 2018, 10:02

Hallo Herr Bauer.

Noch eine kleine Verbesserung:
Wie kann ich diesen Termin noch als "Abwesend" deklarieren?
Code: Alles auswählen
 Trevel.show = "Abwesend"

Leider habe ich im Netz nichts gefunden, wie ich diese Zeile schreiben muss

Danke
Urs

Windows 7
Microsoft Office Professional Plus 2010
Benutzeravatar
uA-ch
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 316
Registriert: 16. Sep 2005, 17:58
Wohnort: Luzern

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon DerHoepp » 09. Okt 2018, 09:48

Moin Urs,

es schadet nicht, sich mit der Onlinehilfe und dem Objektkatalog auseinander zusetzen. Alle Eigenschaften des AppointmentItemObjekts findest du zum beispiel hier:
https://docs.microsoft.com/en-us/office/vba/api/outlook.appointmentitem#properties
Ein Tipp: Abwesenheit lässt sich bei Outlook am besten mit Busy übersetzen.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7278
Registriert: 14. Mai 2013, 11:08

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon uA-ch » 10. Okt 2018, 08:05

Danke.
Mein Englisch reicht nicht aus um dies zu übersetzten.
Danke trotzdem viel mals.

Gruss aus der Schweiz :D :D
Urs

Windows 7
Microsoft Office Professional Plus 2010
Benutzeravatar
uA-ch
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 316
Registriert: 16. Sep 2005, 17:58
Wohnort: Luzern

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon DerHoepp » 10. Okt 2018, 08:35

Hi noch mal,

alles klar, ich konnte leider auch keine Deutsche Übersetzung finden. In dem Fall hier mal eine grobe Übersetzung zur AppointmentItem.BusyStatus-Eigenschaft:
https://docs.microsoft.com/en-us/office/vba/api/outlook.appointmentitem.busystatus hat geschrieben:AppointmentItem.BusyStatus Eigenschaft (Outlook)
Gibt eine OlBusyStatus Konstante zurück oder setzt diese, die den Beschäftigt-Status eines Termins angibt.
Lesend/Schreibend
Syntax
Ausdruck.BusyStatus
Ausdruck Eine Variable, die ein Objekt vom Typ AppointmentItem darstellt.
Siehe auch
AppointmentItem Objekt

Zusätzlich noch diese Information:
https://docs.microsoft.com/en-us/office/vba/api/outlook.olbusystatus hat geschrieben:OlBusyStatus Aufzählung (Autlook)
Zeigt die Verfügbarkeit eines Nutzers an
Name|Wert|Beschreibung
olBusy|2|Der Nutzer ist beschäftigt
olFree|0|Der Nutzer ist verfügbar
olOutOfOffice|3|Der Nutzer ist nicht im Büro
olTentative|1|Der Nutzer hat ein (nicht fest) geplantes Treffen eingeplant
olWorkingElsewhere|4|Der Nutzer arbeitet außerhalb des Büros

Anmerkungen
Die Verfügbarkeit des Nutzers basiert auf geplanten Terminen.
Siehe auch
AppointmentItem.BusyStatus Eigenschaft


Hilft dir das weiter?

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7278
Registriert: 14. Mai 2013, 11:08

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon uA-ch » 10. Okt 2018, 09:05

Hallo Höpp
Danke für deine Geduld, es klappt :D :D

es sieht so aus:
Code: Alles auswählen
      If Before > 0 Then
        Set Travel = Items.Add
        Travel.Subject = "Anfahrt"
        Travel.Start = DateAdd("n", -Before, Appt.Start)
        Travel.Duration = Before
        Travel.Categories = Category
        Travel.BusyStatus = olOutOfOffice
        Travel.Save

      End If

      If After > 0 Then
        Set Travel = Items.Add
        Travel.Subject = "Rückfahrt"
        Travel.Start = Appt.End
        Travel.Duration = After
        Travel.Categories = Category
        Travel.BusyStatus = olOutOfOffice
        Travel.Save
      End If
 

Danke vielmals, Urs
Urs

Windows 7
Microsoft Office Professional Plus 2010
Benutzeravatar
uA-ch
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 316
Registriert: 16. Sep 2005, 17:58
Wohnort: Luzern

Re: Anfahrt und Rückfahrt mit VBA einfügen

Beitragvon DerHoepp » 10. Okt 2018, 09:55

Gerngeschehen!
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7278
Registriert: 14. Mai 2013, 11:08


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste