السلام عليكم ورحمة الله وبركاته
عندي دالة ارسال الايميلات CDO مكتوبة بالشكل التالي :
sch = "http://schemas.microsoft.com/cdo/configuration/"
'on error resume next
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = Connection_Port
.Item(sch & "smtpserver") = "Mail_Server"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "info@info.com"
.To = "user@info.com"
.Subject = "Order No: " & ono
.TextBody = m
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothingفلو حبيت اني احط الارسال لعدد من الايميلات وليس لايميل واحد فما هو الامر اللي احطه على هالسطر
.To = "user@info.com"
تحياتي