Meeting Inviteに複数の出席者を追加

Question

複数の出席者を追加するには2つの方法を試しましたが、最後の電子メールアドレスだけが.To領域に記載されています。

試験1：は失敗

.RequiredAttendees = "me@me.com;" 

    .RequiredAttendees = "you@you.com" 

試験2：

Sub MeetingInvite() 
Dim rng As Range 
Dim OutApp As Object 
Dim OutMail As Object 
With Application 
    .EnableEvents = False 
    .ScreenUpdating = False 
End With 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(1) 
On Error Resume Next 
With OutMail 
    .RequiredAttendees = "me@me.com;" 
    .RequiredAttendees = "you@you.com" 
    .Subject = "Meeting" 
    .Importance = True 
    .Body = "Meeting Invite" & Format(Date) 
    .Display 
End With 

Set OutMail = Nothing 
Set OutApp = Nothing 
Unload Emy 
End Sub 

コードが招待私作成：は以下

.RequiredAttendees = "me@me.com; you@you.com" 

がフルコードで失敗約30の電子メールを追加する必要がありますアドレス。

Answer 1

RequiredAttendeesを変更しようとしています。このプロパティには、必要な出席者の表示名のみが含まれます。

受講者リストは、受信者コレクションを使用して設定する必要があります。 これを試してみてください：

With OutMail 
    .Recipients.Add ("me@me.com") 
    .Recipients.Add ("you@you.com") 
    .Subject = "Meeting" 
    .Importance = True 
    .Body = "Meeting Invite" & Format(Date) 
    .Display 
End With 

それとも、シートからの参加者を読みたい場合は：もちろん

With OutMail 
    For Each cell In Range("C2:C10") 
     .Recipients.Add (cell.Value) 
    Next cell 
    .Subject = "Meeting" 
    .Importance = True 
    .Body = "Meeting Invite" & Format(Date) 
    .Display 
End With 

、あなたが本当にメールで30人の出席者を招待したい場合は、それをスケジュールするのが賢明かもしれません今日のためにそれらを招待するのではなく、数日先に会議を開催しています。