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
GELÖST

Termin via VBA in Öffentlichen Ordner erstellen

Frage Microsoft Microsoft Office

Mitglied: marco1710

marco1710 (Level 1) - Jetzt verbinden

20.10.2014, aktualisiert 20:15 Uhr, 2394 Aufrufe, 2 Kommentare, 1 Danke

Hallo Zusammen,

ich würde gerne via VBA einen Termin in einem Öffentlichen Ordner anlegen.

Dieser Ordner liegt unter:
[I]Öffentliche Ordner - [email]abc@xyz.de[/email]\Alle Öffentlichen Ordner\Gemeinsame Kalender\Testkalender[/I]

Funktionieren tut bis jetz nur ein Eintrag in meinem eigenen Kalender (aktuell Auskommentiert)

Bei mir scheitert es ab der roten Zeile...
Was mache ich den Falsch?

Hier der Code:
[CODE]Sub Terminerstellen()
MsgBox ("start") 'Anzeige über start des programmes

Dim OutApp As Outlook.Application
Dim apptOutApp As AppointmentItem


Set OutApp = CreateObject("Outlook.Application")

' Termin in eigenem Kalender erstellen
'Set apptOutApp = OutApp.CreateItem(olAppointmentItem)

[COLOR="Red"]Set apptOutApp = OutApp.GetNamespace("MAPI").Folders("Öffentliche Ordner - abc@xyz.de").Folders("Alle Öffentlichen Ordner").Folders("Gemeinsame Kalender").Items("Testkalender").CreateItem(olAppointmentItem)[/COLOR]





With apptOutApp
.Subject = "Testmeeting v1.1"
.Start = "20.10.2014 18:00"
.Duration = "10"
.Save
End With

Set OutApp = Nothing
Set apptOutApp = Nothing
MsgBox ("ende") 'Anzeige über ende des programmes
End Sub[/CODE]

Wie muss dieser Befehl lauten um ein Objekt zu definieren, welches für einen Öffentlichen ein Termin erstellt...

Hier nochmals die Ordnerstruktur in Outlook:
[IMG]http://pic.it-switch.de/images/oeffentlic.png[/IMG]

Vielen Dank für eure Hilfe.

Gruß,
Marco
Mitglied: colinardo
LÖSUNG 20.10.2014, aktualisiert um 20:15 Uhr
Hallo Marco,
das sollte so aussehen
Set apptOutApp = OutApp.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Gemeinsame Kalender").Folders("Testkalender").Items.Add(olAppointmentItem)
Grüße Uwe

p.s. Bilder bitte nicht extern verlinken. Du kannst sie in deinem Beitrag hochladen. Siehe http://www.administrator.de/faq/20#toc-5
Bitte warten ..
Mitglied: marco1710
20.10.2014, aktualisiert um 20:16 Uhr
Vielen Dank! war super der vorschlag..
zum p.s.: danke werde ich beachten ;)
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
Ordner erstellen ll Datei hinein kopieren (1)

Frage von heyalice zum Thema Batch & Shell ...

Exchange Server
Maximale Größe der "öffentlichen Ordner" in Ex2013 (2)

Frage von chris123 zum Thema Exchange Server ...

Batch & Shell
Batch: .rar-Pakete automatisch Ordner erstellen und verschieben (2)

Frage von BowserMD zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...