0

予定を立てるたびに会議に変換されるので、予定を SendInvitationsMode.SendToNone に送信するようにコードを調整しました。これは、出席者を使用すると会議になることを読んだためですが、EmailAdres2 を必要とせずに予定を EmailAdres2 に送信する必要があります。確認するために、このようにEmailadresに保存されることを知っていますが、EmailAdres2に必要です（Emailadresには、EmailAdres2に予定を書き込むすべての権限があります）

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 人だけに送信する場合は、send to none を使用します。

4

1 に答える 1

2

必要なのは、EmailAdres2 になりすましてその予定を作成することだと思います。あなたはこのようにすることができます

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

注: Exchange サーバー構成から Emailadres2 の偽装を有効にする必要があります。

于 2012-12-04T14:28:15.053 に答える