Mehrere Teilnehmer zum Besprechungseinladen hinzufügen

Question

Ich habe die beiden folgenden Möglichkeiten versucht, mehrere Teilnehmer hinzuzufügen, aber nur die letzte E-Mail-Adresse wird im Bereich .To angegeben.

Test 1: fehlgeschlagen

.RequiredAttendees = "me@me.com;" 

    .RequiredAttendees = "you@you.com" 

Test 2: fehlgeschlagen

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

Unterhalb der vollständige Code ist:

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 

Der Code erstellt eine Einladung, aber ich müssen ungefähr 30 E-Mails hinzufügen Adressen.

Answer 1

Sie versuchen, die RequiredAttendees zu ändern. Diese Eigenschaft enthält nur die Anzeigenamen für die erforderlichen Teilnehmer.

Die Teilnehmerliste sollte mithilfe der Recipients-Auflistung festgelegt werden. Versuchen Sie folgendes:

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

Oder wenn Sie die Teilnehmer aus einem Blatt lesen möchten:

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 

Natürlich, wenn Sie wirklich per Post 30 Teilnehmer einladen möchten, könnte es klug sein, planen das Treffen ein paar Tage im Voraus, anstatt sie für heute zu laden ...