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
Rispondi quotando
