Tambahkan beberapa peserta ke Undangan Rapat

Saya mencoba menambahkan beberapa peserta tetapi hanya alamat email terakhir yang disebutkan di area .To.

Tes 1:

    .RequiredAttendees = "[email protected];"

    .RequiredAttendees = "[email protected]"

Tes 2:

    .RequiredAttendees = "[email protected]; [email protected]"

Kode lengkapnya:

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 = "[email protected];"
    .RequiredAttendees = "[email protected]"
    .Subject = "Meeting"
    .Importance = True
    .Body = "Meeting Invite" & Format(Date)
    .Display
End With

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

Saya perlu menambahkan sekitar 30 alamat email.


outlook excel vba
person LivinLife    schedule 02.12.2017    source sumber
comment
.RequiredAttendees = "[email protected]; [email protected]" bekerja untuk saya   -  person Siddharth Rout    schedule 02.12.2017
comment
i.stack.imgur.com/Oi4hi.png   -  person Siddharth Rout    schedule 02.12.2017
comment
Terima kasih -- izinkan saya mengujinya lagi dan kembali lagi. Saya menghargai konfirmasinya. Ngomong-ngomong, apakah ada jumlah maksimal email yang bisa saya tambahkan?   -  person LivinLife    schedule 02.12.2017
comment
MSDN menunjukkan bahwa Anda harus menggunakan formulir yang Anda gunakan dalam pengujian 2. MSDN juga mengatakan bahwa ini hanya nama tampilan dan Anda harus menggunakan koleksi Recipients. msdn.microsoft.com/en- kami/VBA/Outlook-VBA/artikel/   -  person NickSlash    schedule 02.12.2017
comment
is there a maximum number of emails I can add? Lihat INI   -  person Siddharth Rout    schedule 02.12.2017
comment
Saya telah menggunakan penerima untuk pembuatan email massal. Saya akan melihat ini tetapi .RequiredAttendees = [email protected]; [email protected] gagal bekerja dengan banyak orang.   -  person LivinLife    schedule 03.12.2017
comment
Saya sebenarnya menemukan cara yang lebih efisien untuk menambahkan email di dalam buku kerja yang aktif. Saya sudah mencoba beberapa konfigurasi ini: Set myRecipient = .Recipients.Add(Range(C2)) tetapi tidak menarik lebih dari sel pertama. Misalnya, Set myRecipient = .Recipients.Add(Range(C2:C10)) gagal menarik semua alamat email. Ini hanya akan menarik yang pertama.   -  person LivinLife    schedule 03.12.2017

Jawaban (1)


arrow_upward
0
arrow_downward

Anda mencoba mengubah RequiredAttendees. Properti ini hanya berisi nama tampilan untuk peserta yang diperlukan.

Daftar peserta harus ditetapkan dengan menggunakan koleksi Penerima. Coba ini:

With OutMail
    .Recipients.Add ("[email protected]")
    .Recipients.Add ("[email protected]")
    .Subject = "Meeting"
    .Importance = True
    .Body = "Meeting Invite" & Format(Date)
    .Display
End With

Atau jika Anda ingin membaca peserta dari lembaran:

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

Tentu saja, jika Anda benar-benar ingin mengundang 30 peserta melalui surat, sebaiknya jadwalkan pertemuan itu beberapa hari sebelumnya, daripada mengundang mereka hari ini...

person Peter Pesch    schedule 03.12.2017