ikboy

objEmail.To = array([b2],[b3],[b4],[b5])

ikboy

Sorry,  º|¤F join(Array....., "; ")

ikboy

Sub sendmail()
Dim objEmail As Object
Const SMTPSERVER = "msa.hinet.net" '¨Ï¥Î msa.hinet.net 传°e邮¥ó

Set objEmail = CreateObject("CDO.Message") '«Ø¥ß CDO ª«¥ó
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With


Dim arr  '°²³]±z±N[B2]©¹¤U§@¬°¦¬¥ó¤H¥i¨Ó­Ó°ÊºA¤@ÂI:
arr = Range("b2:b" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
    recipients = recipients & arr(i, 1)
Next

objEmail.From = "[email protected]" '±H¥óªÌ¡]ÊI°ì¥²须¦s¦b¡^
objEmail.To = Mid(recipients, 2) '¦¬¥ó¸s
objEmail.Subject = Range("E2").Value '邮¥ó¥D¦®
objEmail.HTMLBody = Range("F2").Value 'HTML邮¥ó内¤å
objEmail.Send
Set objEmail = Nothing
End Sub