Meeting Invite에 여러 참석자 추가

Question

여러 참석자를 추가하는 두 가지 방법을 시도했지만 .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 

을 아니면 시트에서 참석자를 읽으려면 :이 시도 당신이 정말로 우편으로 30 명 참석자를 초대 할 경우, 물론

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 

, 예약하는 것이 현명 수 있습니다 며칠 앞두고 모임에 초대합니다 ...