Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Outlook Terminvorlage automatisch markiertes Datum

Mitglied: freakms

freakms (Level 1) - Jetzt verbinden

15.08.2013 um 09:42 Uhr, 3000 Aufrufe, 2 Kommentare, 1 Danke

Liebe Admin-Gemeinde,

ich würde gerne Terminvorlagen in Outlook erstellen. Für mails habe ich Makros

Public Sub Template_Kim()
Dim obj As Object
Dim File As String
File = "C:\Users\xxx\AppData\Roaming\Microsoft\Templates\Vorlage_Export_Kim.oft"
Set obj = Application.CreateItemFromTemplate(File)
obj.Display
End Sub


Das ganze würde ich gerne auch als Termin machen. Und zwar so, dass wenn ich ein Tag im Kalender anwähle, dieser automatisch als Beginnt und End Datum eingetragen wird und ich die Uhrzeiten automatisch auch irgendwie über den Code setzen kann.

Die Uhrzeit ist immer die gleiche.

Beim Speichern als Template übernimmt er leider nicht die Zeiten.

Vielleicht habt ihr ja ne Idee...Danke!

Gruß, der Freak
Mitglied: colinardo
15.08.2013, aktualisiert um 11:43 Uhr
Hallo "der Freak",
das sollte dir helfen:
In Zeile 2 trägst du noch deine Vorlage ein, in Zeile 3 die Startzeit und in Zeile 4 die Dauer des Termins.
Da Outlook keine Funktion zum Abfragen des aktuell markierten Datums im Kalender bereitstellt, muss man sich eines Tricks bedienen um daran zu kommen, indem man mit der Outlook-Eigenen Funktion(Menübefehl) zum Erstellen eines neuen Termins ein Appointment-Objekt erstellt dessen Start-Datum man extrahiert und weiterverarbeitet. Dieses temporäre Appointment wird dann wieder geschlossen, und das benutzerdefinierte Appointment mit den richtigen Zeiten geöffnet.
01.
Sub createAppointmentFromTemplate() 
02.
    Const PATH_VORLAGE = "C:\Users\xxx\Desktop\testtermin.oft" 
03.
    Const STARTTIME = "10:30" 
04.
    Const DURATION = 90 
05.
    Dim objAppointment As AppointmentItem, objTemp As AppointmentItem, objExplorer As Explorer 
06.
    Dim objCD As CommandBarButton 
07.
    Dim objFolder As Folder 
08.
     
09.
    Set objExplorer = ActiveExplorer 
10.
    If Not objExplorer Is Nothing Then 
11.
        Set objFolder = objExplorer.currentFolder 
12.
        If objFolder.DefaultItemType = olAppointmentItem Then 
13.
            Set objCB = objExplorer.CommandBars.FindControl(, 1106) 
14.
            If Not objCB Is Nothing Then 
15.
                objCB.Execute 
16.
                Set objTemp = Application.ActiveInspector.CurrentItem 
17.
                Set objAppointment = Application.CreateItemFromTemplate(PATH_VORLAGE, objFolder) 
18.
                With objAppointment 
19.
                    timeStart = objTemp.Start 
20.
                    timeStart = DateAdd("h", Split(STARTTIME, ":")(0), DateSerial(Year(timeStart), Month(timeStart), Day(timeStart))) 
21.
                    timeStart = DateAdd("n", Split(STARTTIME, ":")(1), timeStart) 
22.
                    .Start = timeStart 
23.
                    .Duration = DURATION 
24.
                    objTemp.Close (olDiscard) 
25.
                    .Display 
26.
                End With 
27.
            End If 
28.
        End If 
29.
    End If 
30.
    Set objTemp = Nothing 
31.
    Set objCD = Nothing 
32.
    Set objFolder = Nothing 
33.
    Set objAppointment = Nothing 
34.
    Set objExplorer = Nothing 
35.
End Sub
Hinweis: Damit das Makro funktioniert muss natürlich ein Kalender aktiv sein in dem ein Tag oder eine Zeit ausgewählt ist.

Grüße Uwe
Bitte warten ..
Mitglied: freakms
16.08.2013 um 11:15 Uhr
Super! Hat klasse funktioniert! Danke schön...
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail

Outlook über TS: Suchtreffer werden nicht markiert

gelöst Frage von BellociOutlook & Mail8 Kommentare

Hallo zusammen, kennt wer das Problem, dass Suchtreffer in Outlook nicht gelb hinterlegt werden? Die betroffenen User nutzen Outlook ...

Outlook & Mail

Outlook 2013 Weiterleitungsregel - E-Mail wird nicht als weitergeleitet markiert

Frage von QugartOutlook & Mail

Hallo zusammen! Ich hab hier ein kleines, aber nerviges Problem. Wenn ich in Outlook 2013 eine Regel erstelle, durch ...

Outlook & Mail

Outlook 2013 wenn die email gelesen markiert ist dann soll sie in einen ordner verschoben werden

Frage von jjsn1988Outlook & Mail2 Kommentare

Hallo ihr Admins, outlook 2013 wenn die email gelesen markiert ist dann soll sie in einen ordner verschoben werden ...

E-Mail

Outlook,Mail,Smartphone Problem als gelesen markiert

Frage von YannoschE-Mail6 Kommentare

Hallo zusammen, ich weiß die Überschrift sagt wenig aus - ich wusste aber nicht was ich sonst hätte anderes ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 2 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 3 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 3 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement19 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen17 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android13 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...

Router & Routing
VPN hinter zweiter Fritzbox nutzen im Nachbarhaus
gelöst Frage von georg2204Router & Routing11 Kommentare

Hallo zusammen, ich blicke hier leider nicht mehr so ganz durch. In Haus 1 steht eine Fritzbox 7390, diese ...