Hallo zusammen.
Ich lass' über mein Programm u.A. auch Mails über Outlook versenden. Das klappt auch überall, nur an einem PC will er irgendwie nicht.
Zeile 662 entspricht in dem Snippet hier Zeile 3.
Hat jemand eine Idee?
Ich lass' über mein Programm u.A. auch Mails über Outlook versenden. Das klappt auch überall, nur an einem PC will er irgendwie nicht.
Zeile 662 entspricht in dem Snippet hier Zeile 3.
Hat jemand eine Idee?
Quellcode
- System.InvalidCastException: Das COM-Objekt des Typs "Microsoft.Office.Interop.Outlook.ApplicationClass" kann nicht in den Schnittstellentyp "Microsoft.Office.Interop.Outlook._Application" umgewandelt werden. Dieser Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit der IID "{00063001-0000-0000-C000-000000000046}" aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: Element nicht gefunden. (Ausnahme von HRESULT: 0x8002802B (TYPE_E_ELEMENTNOTFOUND)).
- bei System.StubHelpers.StubHelpers.GetCOMIPFromRCW(Object objSrc, IntPtr pCPCMD, IntPtr& ppTarget, Boolean& pfNeedsRelease)
- bei Microsoft.Office.Interop.Outlook.ApplicationClass.CreateItem(OlItemType ItemType)
- bei TraglHelpers.Office.OutlookSendMail(String AN, String Betreff, String Anrede, String Text1, String Text2, String Signatur, Boolean Automail, String Anhang, String CC, List`1 Anhaenge) in C:\Users\dennis.hornickel\OneDrive\VSCE\eigene Projekte\Helferlein\TraglHelpers\Office.vb:Zeile 662.
VB.NET-Quellcode
- ''' <summary> verschickt eine E-Mail Optional mit Anhang, Optional mit CC-Empfänger über Microsoft Outlook </summary>
- Public Sub OutlookSendMail(AN As String, Betreff As String, Anrede As String, Text1 As String, Text2 As String, Signatur As String, Automail As Boolean, Optional Anhang As String = "", Optional CC As String = "", Optional Anhaenge As List(Of String) = Nothing)
- Dim olApp As New Outlook.Application
- Dim mail = DirectCast(olApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
- With mail
- .To = AN
- If Not CC = "" Then .CC = CC
- .Subject = Betreff
- .HTMLBody = $"<font face=calibri>{Anrede}<BR><BR>{Text1}<BR><BR>{Text2}<BR><BR>{Signatur}</font>"
- If Not Anhang = "" Then .Attachments.Add(Anhang)
- If Anhaenge IsNot Nothing Then
- For Each att In Anhaenge
- .Attachments.Add(att)
- Next
- End If
- If Automail Then
- If Not AN = "" Then
- .Send()
- Else
- .Display()
- End If
- Else
- .Display()
- End If
- End With
- End Sub
"Na, wie ist das Wetter bei dir?"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"