Buonasera a tutti,
sto provando a scrivere una routine che invii una pec da una windows form con visual studio 2008.
Ho letto parecchio in giro e ho capito che su visual studio 2008 non e' possibile inviarla con system.net.mail ma bisogna inviarla con system.web.mail.
Ho provato quindi a creare un nuovo progetto e provato a inviare una pec e tutto funziona.
Quando provo a inserire, pero', lo stesso codice all'interno del mio progetto completo, la routine mi da una eccezione: "Errore durante il caricamento della libreria DLL dei tipi. (Eccezione da HRESULT: 0x80029C4A (TYPE_E_CANTLOADLIBRARY))", con messaggio: "Eccezione generata dalla destinazione di una chiamata", con sorgente dell'eccezione: "mscorlib".
Il codice che uso per inviare la mail e' il seguente:
Dim mex As New System.Web.Mail.MailMessage
Dim allegato As System.Web.Mail.MailAttachment
Dim Intestazione_Mail As String = ""
Dim Email As String = "plutopaperino@pec.it"
Dim EmailCli As String = "topolinotopolina@pec.it"
Dim nomefile As String = "c:\dir1\PDF\File00000000001.pdf"
If Not EmailCli.ToString.Contains("@") Then
MessageBox.Show("Il nominativo selezionato non ha alcun indirizzo email.", "Avviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
mex = New System.Web.Mail.MailMessage
Dim Smtp As String = "smtps.pec.aruba.it"
Dim User As String = email
Dim Pwd As String = "Pwdmia"
Dim Oggetto As String = "prova"
Dim Corpo As String = "prova"

allegato = New System.Web.Mail.MailAttachment(nomefile)
mex.Attachments.Add(allegato)
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", Smtp)
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "465")
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2")
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", User)
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Pwd)
mex.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")
mex.From = Email
mex.To = EmailCli
mex.Subject = Oggetto
mex.BodyFormat = MailFormat.Text
mex.Body = Corpo

System.Web.Mail.SmtpMail.SmtpServer = Smtp
System.Web.Mail.SmtpMail.Send(mex)

L'eccezione mi viene generata sull'ultima riga.

Qualcuno ha mai avuto un problema simile e potrebbe suggerirmi quale potrebbe essere il problema?

grazie mille