合并发送会议邀请

yxd5006

苦逼培训老师一名，经常对不同的人、不同的时间、不同的地点，发送会议要求，耗时耗力，如何合并发送？

知道word可以支持合并发送邮件，但是如何合并发送会议邀请？各位大侠有否思路？十分感谢。

yxd5006

在坛子里泡了一天，已实现，特结贴
宏内容：

1. Sub ScheduleMeeting()
   
2. Dim rowCount, endRowNo
   
3. Dim myOlApp As New Outlook.Application
   
4. Dim myItem As AppointmentItem
   
5. endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
   
6. Set myOlApp = New Outlook.Application
   
7. For rowCount = 2 To endRowNo
   
8.     Set myItem = myOlApp.CreateItem(olAppointmentItem)
   
9.     myItem.MeetingStatus = olMeeting
   
10.     myItem.Recipients.Add Cells(rowCount, 2)
    
11.     myItem.Subject = Cells(rowCount, 3)
    
12.     myItem.Start = Cells(rowCount, 4)
    
13.     myItem.Location = Cells(rowCount, 5)
    
14.     myItem.Duration = Cells(rowCount, 6)
    
15.     myItem.Body = Cells(rowCount, 7)
    
16.     myItem.Send
    
17. Next
    
18. End Sub

复制代码

excel格式：
姓名        电子邮件        主题        会议时间        会议地点        会议时长        邮件内容
***        ***<***@163.com>        新人培训        2013-7-18 14:00        4F-B2-01        90        "
您好：
   请您按照约定时间参加培训
"