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, 2726 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 ..
Ähnliche Inhalte
Windows Server
gelöst Ordner erstellen Problem (3)

Frage von IrgendEinName zum Thema Windows Server ...

VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

Outlook & Mail
Adressbücher aus Öffentlichen Ordner werden nicht mehr angezeigt (1)

Frage von slansky zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Server-Hardware
Einem Stromausfall entgegen wirken (19)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...