Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Via VBS freigegebenen Outlookkalender oeffnen

Frage Entwicklung VB for Applications

Mitglied: stanleyB

stanleyB (Level 1) - Jetzt verbinden

03.11.2005, aktualisiert 19:32 Uhr, 11329 Aufrufe, 3 Kommentare

Hallo vb(a,s)Gemeinde,

die Aufgabenstellung ist folgende: Es soll ueber einen Hyperlink einer HTML Page ein, im Netz zur Verfuegung stehender, Kalender mit Outlook geoeffnet werden. Das Ganze laesst sich meines Wissens nur ueber ein outlook-"fernsteuerndes" VBS loesen. Nur sind mir die Outlookobjekte voelligfremd und zudem noch sehr unschluessig.

In der VBA-Hilfe zu Outlook hab ich folgendes gefunden:

<pre>Sub ChangeCurrentFolder()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myolApp.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderCalendar)
End Sub</pre>

Die kleine Routine oeffnet mir den persoenlichen Standardkalender im Outlook. Meine Problemstellung ist also folgende, dass ich das Ganze irgendwie in ein VisualBasic-Script schnueren muss und zudem nicht auf den persoenlichen Kalender, sondern einen freigegebenen Kalender ("Rufbereitschaft") linken muss.

Irgedwie finde ich nichtmal den richtigen Ansatz. Hilfe!

Gruesse und vielen Dank vorab,
Johannes Distler
Mitglied: stanleyB
03.11.2005 um 16:51 Uhr
<pre>Sub ResolveName()
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim CalendarFolder As Outlook.MAPIFolder
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Rufbereitschaft")
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
<hr>
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Outlook.MAPIFolder
Set CalendarFolder = _
myNamespace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
CalendarFolder.Display
End Sub
</pre>


Waere genial!

Gruesse,
Johannes Distler
Bitte warten ..
Mitglied: stanleyB
03.11.2005 um 19:11 Uhr
Call ResolveName

Sub ResolveName()
Dim myOlApp ' As Outlook.Application
Dim myNamespace ' As Outlook.NameSpace
Dim myRecipient ' As Outlook.Recipient
Dim CalendarFolder ' As Outlook.MAPIFolder
Const olFolderCalender = 9

Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("MED CTD Rufbereitschaft")
myRecipient.Resolve
If myRecipient.Resolved Then
' Call ShowCalendar(myNamespace, myRecipient)
msgbox("weiter gehts")
End If

Dim myCalendarFolder ' As Outlook.MAPIFolder
Set myCalendarFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalender)
myCalendarFolder.Display
End Sub
Bitte warten ..
Mitglied: Biber
03.11.2005 um 19:32 Uhr
ROFL
...wieso ändert sich denn der Name des Kalenders bei der Portierung von "Rufbereitschaft" auf "MED CTD Rufbereitschaft"??
Auf die Lösung konnte ja auch keiner außer Dir kommen..

Danke fürs Posten und schönen Abend
Biber
Bitte warten ..
Ähnliche Inhalte
Entwicklung
gelöst Grafische Darstellung - Fortschrittsanzeige VBS Skript (7)

Frage von Komoran12 zum Thema Entwicklung ...

Batch & Shell
gelöst Vbs programm unabhängig vom Speicherort ausführen (2)

Frage von Markus2016 zum Thema Batch & Shell ...

Windows 10
gelöst Vbs oder batch zum Ändern von Dateinamen ab Zeichenkette (13)

Frage von vbaGast zum Thema Windows 10 ...

Batch & Shell
Cpl Dateien per Batch oder VBS öffnen (1)

Frage von Angelo131095 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Firewall
Welche Firewall ? (18)

Frage von Cyberurmel zum Thema Firewall ...

Windows Server
gelöst Einzelnes Windows Update über GPO deinstallieren (16)

Frage von lordofremixes zum Thema Windows Server ...