Hallo,
ich verstehe diese Fehlermeldung nicht. Ich weiß, mittlerweile, das es an der Definition bzw. das "Dimmen" liegt. Nur weiß ich nicht wie ich es "gerade" biegen kann.
Der Code:
Vorteil dieses Code: Unabhängig von der Outlookversion. Und,jaaaa, ich habe es kopiert.
Ab:
wird es unterstrichen. Mit der o.g. Fehlermeldung.
Unter msdn.microsoft.com/de-de/library/0tcf61s1(v=vs.120).aspx wird auch das frühe bzw. späte Binden erklärt.
Ich muß also das Objekt per CType in das richtige Format bekommen, das der Prozess nicht nur ein Prozess, sondern direkt ein ...... ist.
Kann einer helfen? Wie würde es richtig aussehen?
Ich habe mittlerweile das gefunden:
https://support.microsoft.com/de-de/kb/304661
Erklärt das frühe und späte Binden, auch so das ich es verstehe.
Also, bedeutet die Fehlermeldung " "Option Strict On" lässt spätes Binden nicht zu." das ich die "Option Strict" auf "Off" stellen muß um meine Kompatibilität zu Outlook zu erhalten?
Gruß Nichtheilig
ich verstehe diese Fehlermeldung nicht. Ich weiß, mittlerweile, das es an der Definition bzw. das "Dimmen" liegt. Nur weiß ich nicht wie ich es "gerade" biegen kann.
Der Code:
VB.NET-Quellcode
- Option Strict On
- Imports System.Net.Mail
- Class Form1
- Dim Versender As String = "XXX@gmail.com"
- Dim Adressat As String = "YYY@gmail.de"
- Private Sub btnEMailSenden_Click(sender As Object, e As EventArgs) Handles btnEMailSenden.Click
- SendMail("Die ist ein Test", "Hallo," & vbCrLf & "Schauen wir mal was hier rauskommt.", , "YYY@gmail.de")
- End Sub
- Public Sub SendMail(ByVal Betreff As String, _
- ByVal Bodytext As String, _
- Optional ByVal Anhang As String = "Datei als Anhang", _
- Optional ByVal Empfaenger As String = "YYY@gmail.de")
- Try
- '--- Check ob der Outlook Prozess läuft (Bei Windows 8 zwingend notwendig)
- If Process.GetProcessesByName("outlook").Count > 0 Then
- '--- Tue nichts, alles fein ---
- Else
- '--- Outlook starten ---
- Process.Start("outlook")
- Application.DoEvents()
- End If
- '--- notwendige Objekte des Outlook Objektmodels initialisieren ---
- Dim objOutlook As Object
- Dim objOutlookMsg As Object
- Const cMailItem = 0
- '--- evtl. weitere wichtige, selbsterklärende Konstanten ---
- 'Const cBCC = 3
- 'Const cImportanceHigh = 1
- 'Const cCC = 2
- Const cTo = 1
- '--- erstellen der notwendigen Objekte ---
- objOutlook = CreateObject("Outlook.Application")
- objOutlookMsg = objOutlook.CreateItem(cMailItem)
- '--- Zusammenbasteln der Mail ---
- With objOutlookMsg
- Dim objOutlookRecip As Object = .Recipients.Add(Empfaenger)
- objOutlookRecip.type = cTo
- .Subject = Betreff
- .Body = Bodytext
- If Anhang <> "Datei als Anhang" Then .Attachments.add(Anhang)
- '.Importance = olImportanceHigh
- .send() ' Display() zeigt die neue Nachricht, .Send() sendet direkt
- End With
- '--- Objekte zerstören ---
- objOutlookMsg = Nothing
- objOutlook = Nothing
- Catch ex As Exception
- '--- Fehler abfangen falls kein Outlook installiert ist ---
- 'MsgBox(ex.Message)
- '----------------------------------------------------------
- End Try
- End Sub
- End Class
Vorteil dieses Code: Unabhängig von der Outlookversion. Und,jaaaa, ich habe es kopiert.
Ab:
wird es unterstrichen. Mit der o.g. Fehlermeldung.
Unter msdn.microsoft.com/de-de/library/0tcf61s1(v=vs.120).aspx wird auch das frühe bzw. späte Binden erklärt.
Ich muß also das Objekt per CType in das richtige Format bekommen, das der Prozess nicht nur ein Prozess, sondern direkt ein ...... ist.
Kann einer helfen? Wie würde es richtig aussehen?
Ich habe mittlerweile das gefunden:
https://support.microsoft.com/de-de/kb/304661
Erklärt das frühe und späte Binden, auch so das ich es verstehe.
Also, bedeutet die Fehlermeldung " "Option Strict On" lässt spätes Binden nicht zu." das ich die "Option Strict" auf "Off" stellen muß um meine Kompatibilität zu Outlook zu erhalten?
Gruß Nichtheilig
