Buongiorno a tutti, qualche anno fa avevo creato un programmino per inviare delle email ad un elenco, lo utilizzavo con Office 2016 nella fattispecie con Outlook e tutto funzionava.
Adesso avrei l'esigenza di riutilizzarlo, sul mio PC è installata la versione 2019 di Outlook, e mi ritorna questo errore:

System.InvalidCastException
HResult=0x80004002
Messaggio=Impossibile eseguire il cast di oggetti COM di tipo 'Microsoft.Office.Interop.Outlook.ApplicationClass' in tipi di interfaccia 'Microsoft.Office.Interop.Outlook._Application'. L'operazione non è stata completata perché la chiamata QueryInterface sul componente COM per l'interfaccia con IID '{00063001-0000-0000-C000-000000000046}' non è riuscita a causa del seguente errore: Classe non registrata. (Eccezione da HRESULT: 0x80040155).
Origine=mscorlib
Analisi dello stack:
at System.StubHelpers.StubHelpers.GetCOMIPFromRCW(Object objSrc, IntPtr pCPCMD, IntPtr& ppTarget, Boolean& pfNeedsRelease)
at Microsoft.Office.Interop.Outlook.ApplicationClass.GetNamespace(String Type)
at InvioMail.frmInvioMail.btnInviaMail_M_Click(Object sender, EventArgs e) in C:\Users\GiovanniUboldi\Desktop\InvioMail\InvioMail\Forms\frmInvioMail.vb:line 67
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at InvioMail.My.MyApplication.Main(String[] Args) in :line 84

Come posso risolvere?
Grazie a tutti anticipatamente per l'aiuto.