Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Termine in Exchange erstellen ohne Outlook
Autor: StephanC
Datum: 25.04.18 22:08
Hallo, vielen Dank - ich habe derzeit leider keinen Exchange zur Verfügung und kann es erst Morgen oder Übermorgen testen. Derzeit mache ich es - nur rein informativ - so: Public Function bTermine_Anlegen(sUser As String, sTermin As String, sBetreff As String, sDauer As String) As Boolean Dim objApp As Outlook.Application Dim objNS As Outlook.Namespace Dim objFolder As Outlook.MAPIFolder Dim objDummy As Outlook.MailItem Dim objRecip As Outlook.Recipient Dim objAppt As Outlook.AppointmentItem Dim strMsg As String Dim strName As String On Error Resume Next Dim sStart As String Dim sSubject As String sStart = sTermin sSubject = sBetreff ' ### name der person dessen Kalendar benutzt wird ### strName = sUser Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objDummy = objApp.CreateItem(olMailItem) Set objRecip = objDummy.Recipients.Add(strName) objRecip.Resolve If objRecip.Resolved Then On Error Resume Next Set objFolder = _ objNS.GetSharedDefaultFolder(objRecip, _ olFolderCalendar) If Not objFolder Is Nothing Then Set objAppt = objFolder.Items.Add If Not objAppt Is Nothing Then With objAppt .Start = sStart .Subject = sSubject .Duration = sDauer '.Location = Worksheets("Test").Range("E2") .Save End With End If End If bTermine_Anlegen = True Else bTermine_Anlegen = False ' MsgBox "Could not find " & Chr(34) & strName & Chr(34) & "User not found" End If Set objApp = Nothing Set objNS = Nothing Set objFolder = Nothing Set objDummy = Nothing Set objRecip = Nothing Set objAppt = Nothing End Function

Termine in Exchange erstellen ohne Outlook	2.162	StephanC	22.04.18 21:11
Re: Termine in Exchange erstellen ohne Outlook	1.149	Souffleurlos	24.04.18 15:30
Re: Termine in Exchange erstellen ohne Outlook	966	StephanC	25.04.18 22:08
Re: Termine in Exchange erstellen ohne Outlook	954	Ewald K	15.05.18 13:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen