Hallo Leute,

ich möchte aus einer Applikation (VB.NET) Emails über Outlook erstellen und versenden. Die Mitarbeiter sollen die Möglichkeit bekommen, einen Datensatz aus einer DB-Anwendung an Outlook zu übergeben, zu bearbeiten und evtl. noch Mailadressen hinzuzufügen.

Nun habe ich im hier und im Netz einige Dinge und Anleitungen gefunden. Es muss eben die Outlook Version im Projekt hinzugefügt (ein Verweis auf die Com) werden und genau hier liegt mein Problem!

Wir haben in der Fa. natürlich mehrere Outlook Versionen (2003, 2007, 2010).

Kann ich mehrere Versionen im Projekt hinzufügen, wenn ja, wie mache ich das? Ich habe Office 2010 auf der Maschine.

Danke für Eure Hilfe

Bernd

Hallo Bernd,

Ob du mehrer verschiedenen Versionen des COM-Objekts hinzufügen kannst, weis ich nicht.

Da auf der Zielmaschine aber überhaupt Outlook installiert sein muss damit das ganze funktioniert, könntest du doch die installierte Version ermitteln und dann das COM-Objekt zur Laufzeit erzeugen. Das Ermitteln der installierte Version geht AFAIK nur mit einer Abfrage der Registry. Um keine UAC-Meldung zu generieren, wurd ich das in CurrentUser abfragen. Dann ermittelst du die höchste Installierte Version.
11.0 = 2003
12.0 = 2007
14.0 = 2010

Der komplette Registrypfad für Outlook 2010 währe demnach:
HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook

Wenn du das ermittelt hast, könntest du doch das COM-Object auf Basis der installierten Version erzeugen.

Servus,
Klaus

Hi Bernd,

ist nicht die jeweils aktuelle Outlook-Version unter "Outlook.Application" registriert? Dann könnte man doch mit CreateObject und COM die aktuelle Version einfach laden. Ist vielleicht einen Versuch wert. Ich hab leider nur C# Code, aber damit hab ich eine Referenz auf Outlook bekommen können.

dynamic outlookApp = Activator.CreateInstance(Type.GetTypeFromProgID("Outlook.Application"));

Grüße

Martin

Hey Martin,

ja, Du hast mal wieder Recht! Es geht so:

Friend Sub SendMail(ByVal Betreff As String, ByVal Body As String, Optional ByVal Empfaenger As String = "testmai@test.com")
        Dim objOutlook As Object
        Dim objOutlookMsg As Object
        Const olMailItem = 0
        Const olBCC = 3
        Const olImportanceHigh = 1
        Const olCC = 2
        Const olTo = 1


        objOutlook = CreateObject("Outlook.Application")

        objOutlookMsg = objOutlook.CreateItem(olMailItem)

        With objOutlookMsg
            Dim objOutlookRecip As Object = .Recipients.Add(Empfaenger)
            objOutlookRecip.type = olTo
            .Subject = Betreff
            .Body = Body
            .Importance = olImportanceHigh
            .Display() ' use  .send() to send
        End With
        objOutlookMsg = Nothing
        objOutlook = Nothing
    End Sub

Zugegeben, der Code ist nicht von mir! Habe diesen "Schnipsel" im Netz entdeckt und eingebaut. Scheint mit allen Outlook-Versionen zu funktionieren.

Werde das noch testen und Ergebnis hier posten.

Danke Euch
Bernd

Bernd:

Hey Martin,

ja, Du hast mal wieder Recht! Es geht so:

Friend Sub SendMail(ByVal Betreff As String, ByVal Body As String, Optional ByVal Empfaenger As String = "testmai@test.com")
        Dim objOutlook As Object
        Dim objOutlookMsg As Object
        Const olMailItem = 0
        Const olBCC = 3
        Const olImportanceHigh = 1
        Const olCC = 2
        Const olTo = 1


        objOutlook = CreateObject("Outlook.Application")

        objOutlookMsg = objOutlook.CreateItem(olMailItem)

        With objOutlookMsg
            Dim objOutlookRecip As Object = .Recipients.Add(Empfaenger)
            objOutlookRecip.type = olTo
            .Subject = Betreff
            .Body = Body
            .Importance = olImportanceHigh
            .Display() ' use  .send() to send
        End With
        objOutlookMsg = Nothing
        objOutlook = Nothing
    End Sub

Zugegeben, der Code ist nicht von mir! Habe diesen "Schnipsel" im Netz entdeckt und eingebaut. Scheint mit allen Outlook-Versionen zu funktionieren.

Werde das noch testen und Ergebnis hier posten.

Danke Euch
Bernd

Also, der oben genannte Code funktioniert mit allen Outlook-Versionen von 2003 bis 2010.

Gruß vom Bernd