2012-11-29 110 views
0

每次我預約時都會轉換爲會議,所以我調整了我的代碼以將預約發送給SendInvitationsMode.SendToNone因爲我在閱讀時使用與會者,它將成爲會議但現在我需要得到任命發送到EmailAdres2不EmailAdres2需要確認我知道這樣會在Emailadres被保存,但我需要它EmailAdres2 (Emailadres擁有所有權限寫預約EmailAdres2)EWS Exchange服務無需確認即可預約帳戶

Dim _service As New ExchangeService(ExchangeVersion.Exchange2010_SP1) 
_service.UseDefaultCredentials = False 
_service.Credentials = New WebCredentials(Emailadres, Password) 
_service.AutodiscoverUrl(EmailAdres2) 
_service.TraceEnabled = False 
Dim _appointment As New Appointment(_service) 
_appointment.Subject = onderwerp 

_appointment.Body = "Nieuw Afspraak <br><br> deb_nr en Klant: " & deb_nr & ": " & Label16.Text & " <br> Locatie: " & Label18.Text & " in " & Label17.Text & " <br><br>Omschrijving: " & onderwerp & " <br><br>Telefoon 1: " & tel1 & "<br>Telefoon 2: " & tel2 & "<br>Telefoon 3: " & tel3 & "" 

       _appointment.Start = datum 
       _appointment.[End] = _appointment.Start.AddHours(endhours) 
       _appointment.ReminderMinutesBeforeStart = reminder 
       _appointment.Location = Label16.Text & " " & adres 
       _appointment.Save(SendInvitationsMode.SendToNone) 

您需要爲每個電子郵件地址找到正確的文件夾,以便像這樣首先連接並找到像這樣的正確文件夾。

Dim _service As New ExchangeService(ExchangeVersion.Exchange2010_SP1) 
_service.UseDefaultCredentials = False 
_service.Credentials = New WebCredentials("email", "password") 
_service.AutodiscoverUrl("email") 

Dim mbox As New Mailbox(email) 
Dim folder As New FolderId(WellKnownFolderName.Calendar, mbox) 

和使用發送到沒有,如果你什麼,所以發送到只有1人,而不是主要的電子郵件住址

回答

2

我想你需要的是冒充EmailAdres2併爲它創建一個約會。 你能做到這樣

_service.ImpersonatedUserId = new ImpersonatedUserId(ConnectingIdType.SmtpAddress, Emailadres2); 

注意:您需要啓用從Exchange服務器配置爲Emailadres2的模擬。

+0

坦克,但我做了其他的方式 – AntoonVs

+0

你是怎麼做到的? – BraveHeart

相關問題