ho provato comunque a compilare il modulo in questo modo per
prova....sembra andare senza errori però la mail non arriva.....chissà
cosa ho combinato...)) grazie ancora

ps il server di posta è aziendale


Dim oSM As clsSendMail
Set oSM = New clsSendMail
With oSM
.SMTPHostValidation = VALIDATE_NONE ' Optional,
default =VALIDATE_HOST_DNS
.SMTPHost = "mail.wind.it"
.from = "lucio.zanchetta@mail.wind.it"
.FromDisplayName = "Lucio.Zanchetta"
.Recipient = "lucio.zanchetta@mail.wind.it"
.RecipientDisplayName = "Lucio.zanchetta"
.ReplyToAddress = .from
.Subject = "prova"
.Message = "pippo"
'.Attachment = "Elenco files da allegare, separati da ;"
.Send
End With


End Sub