Ciao
utilizzando questa sintassi, come si fa ad inserire piu' file allegati?
grazie


Dim objMessage, objConfig

Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "localhost"
objConfig.Fields(cdoSMTPServerPort) = 25

objConfig.Fields.Update
Set objMessage.Configuration = objConfig

objMessage.To = email
objMessage.From = "info@dominio.it"
objMessage.Subject = oggetto
objMessage.HtmlBody = body

On Error Resume Next

objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing