Ah l'invio mail la faccio con una funzioncina che richiamo. Posto il codice:
codice:
sub invia_email(html,da_alias,da,a,bcc,oggetto,allegato)
set objErrMail = server.createObject("CDO.message")
with objErrMail
.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ip
.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=username
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=password
.configuration.fields.update
.From = da
.To = a
.bcc = bcc
.subject = oggetto
.HTMLBody = cStr(html)
if (not cknull(allegato)) then
.AddAttachment(allegato)
end if
.send
end with
set objErrMail = nothing
end sub
THANKS
IO CREDO IN VOI SAPPIATELO :quote: