请教办公高手！一个excel里有100个文件名和对应要发送的邮箱，如何自动发送？

一个表格里，A列是100个文件名，无规律，文件统一在外面一个文件夹，

B列式这100个文件对应要发送的邮箱，有没有方法实现自动发送？

完美解决的加100，决不食言！
for i=1 to 100
workbooks.open range("a" & i)
activeworkbook.sendmail range("b" & i)
activeworkbook.close false
next i

在这段代码里，如果B列是多个邮箱地址，中间用“;”隔开的话，用activeworkbook.sendmail range是无法发送的，求解决方案！

Sub Workbook()

Dim c As Integer
Dim strMailAddress As Variant

c = Application.WorksheetFunction.CountA(Columns("A"))
With Application
.Application.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
End With

On Error Resume Next
For I = 1 To c

strMailAddress = Range("B" & I).Value
If Application.WorksheetFunction.Find(";", strMailAddress) > 0 Then
strMailAddress = Split(strMailAddress, ";", -1, vbTextCompare)
End If

Workbooks.Open "E:\" & Range("A" & I) & ".xls"
ActiveWorkbook.SendMail Recipients:=strMailAddress, Returnreceipt:=True

ActiveWorkbook.Close False

Next I
With Application
.Application.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
End With