Comments on: MsExchange piekļuve caur MAPI http://tips.naivist.net/2005/05/26/mapi_cdo/ Kodējot radušās domeles Thu, 03 Nov 2011 14:04:53 +0000 hourly 1 http://wordpress.org/?v=3.3 By: misame http://tips.naivist.net/2005/05/26/mapi_cdo/comment-page-1/#comment-7 misame Thu, 26 May 2005 14:42:55 +0000 http://naivist.net/tips/index.php/2005/05/25/msexchange-lietosana-caur-mapi/#comment-7 <p>Cik patestēju, man izdevās tikt pie kalendāra šādi:</p> <p>Dim objSession As CDO.Session Dim objCalendarFolder As CDO.Folder Dim objAppointments As CDO.Messages Dim objAppointment As CDO.AppointmentItem Try objSession = New CDO.Session objSession.Logon(NewSession:=True, NoMail:=False, ProfileInfo:="mailserver"& vbLf & "user") objCalendarFolder = objSession.GetDefaultFolder _ (CDO.CdoDefaultFolderTypes.CdoDefaultFolderCalendar) objAppointments = objCalendarFolder.Messages objAppointment = objAppointments.Item(1) Catch ex As Exception MsgBox(ex.ToString) Finally objSession.Logoff() End Try</p> Cik patestēju, man izdevās tikt pie kalendāra šādi:

Dim objSession As CDO.Session Dim objCalendarFolder As CDO.Folder Dim objAppointments As CDO.Messages Dim objAppointment As CDO.AppointmentItem Try objSession = New CDO.Session objSession.Logon(NewSession:=True, NoMail:=False, ProfileInfo:=”mailserver”& vbLf & “user”) objCalendarFolder = objSession.GetDefaultFolder _ (CDO.CdoDefaultFolderTypes.CdoDefaultFolderCalendar) objAppointments = objCalendarFolder.Messages objAppointment = objAppointments.Item(1) Catch ex As Exception MsgBox(ex.ToString) Finally objSession.Logoff() End Try

]]> By: Martins http://tips.naivist.net/2005/05/26/mapi_cdo/comment-page-1/#comment-6 Martins Thu, 26 May 2005 14:05:29 +0000 http://naivist.net/tips/index.php/2005/05/25/msexchange-lietosana-caur-mapi/#comment-6 <p>Varbūt zini vai ir iespējams piekļūt Outlook kalendāram izmantojot CDO ?</p> Varbūt zini vai ir iespējams piekļūt Outlook kalendāram izmantojot CDO ?

]]>