InfoPath Formular und Outlook Kontakte

Hallo Zusammen,

ich habe folgende Frage.

Ich bin gerade dabei ein InfoPath Formular zu erstellen. Es funktionieren so weit auch alle Funktionen etc. nur bei einer Sache hab ich ein paar Probleme.

Das Formular soll in einem Netzlaufwerk von uns veröffentlicht werden, ist auch schon geschehen. Bearbeitet/Gesendet soll es über Outlook werden, außerdem sollen wenn man im Formular auf Senden klickt, ein Auswahlfenster erscheinen, in dem alle angelegten Outlook Kontakte hinterlegt sind.
Weiß vlt. jemand wie ich das in InfoPath einstellen kann?

Danke schon mal.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 207960

Url: https://administrator.de/contentid/207960

Ausgedruckt am: 22.11.2024 um 16:11 Uhr

22 Kommentare

Neuester Kommentar

Hallo Sabse96,
ich weiß nicht ob du dich mit VBA auskennst oder damit schon mal Kontakt hattest, aber die Vorgehensweise sieht folgendermaßen aus:

Man erstelle im Formular eine Datenverbindung des Typs E-Mail und gebe Ihr den Namen sendmail (Tab Daten >Datenverbindungen)
Man erstelle eine Schaltfläche im Formular und weise Ihr folgenden benutzerdefinierten Code zu :

(Hinweis: Im Code-Editor muss man noch einen Verweis auf die .NET Bibliothek Microsoft.Office.Interop.Outlook hinzufügen[Projekt->Verweis hinzufügen], und im Codefenster ganz oben noch folgende Zeile hinzufügen Imports Microsoft.Office.Interop)

If Me.Errors.Count = 0 Then
    Dim objOL As New Outlook.Application
    Dim oDialog As Outlook.SelectNamesDialog = objOL.Session.GetSelectNamesDialog
    Dim targetTo As String = ""  
    Try
        With oDialog
            .AllowMultipleSelection = True
            If .Display() = True Then
                For Each rec As Outlook.Recipient In oDialog.Recipients
                    targetTo &= rec.Address & ";"  
                Next
                Dim conn As EmailSubmitConnection = DataConnections("sendmail")  
                conn.To.SetStringValue(targetTo)
                conn.Subject.SetStringValue("Testsubject")  
                conn.Introduction = "Testbody"  
                conn.Execute()
            End If
        End With
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
Else
    MessageBox.Show("Es sind nicht alle erforderlichen Eingabefelder ausgefüllt", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)  
End If

Jetzt muss man in den Sicherheitseinstellungen des Formulars noch folgendes machen:

Datei > Erweiterte Formularoptionen > Sicherheits und Vertrauensstellung > "Sicherheitsstufe : Voll vertrauenswürdig"
und unten das Häkchen Diese Formularvorlage signieren setzen und entweder ein schon vorhandenes Zertifikat wählen oder ein neues erstellen.

Was jetzt passiert wenn du auf den benutzerdefinierten Button klickst ist folgendes:
Nach dem Klick auf den Button wird der Outlook-Eigene Dialog zum wählen der Kontakte aufgerufen in denen du den Empfänger wählen kannst.

Hoffe das war einigermaßen klar. Wenn nicht, kann ich dir das in einem fertigen Demo-Formular zuschicken wenn du willst...

Grüße Uwe

Hi Uwe,

danke schon mal für deine Antwort. Ich habe das jetzt so ausprobiert aber es funktioniert nicht. Wenn ich auf den Button im Formular dann klicke, passiert gar nichts.

Wäre echt cool von dir, wenn du mir mal so ein Demo-Formular zuschicken könntest.

Welche Outlook Version benutzt du ? Das muss ich für die Vorlage wissen, da es unterschiedliche Office.Interop Bibliotheken für die jeweilige Office Version gibt ..

p.s. Sorry oben war die Bibliothek falsch angegeben, es muss natürlich Microsoft.Office.Interop.Outlook heißen....

ich benutze Outlook 2010

Download hier. Du musst wahrscheinlich noch das Zertifikat ändern wie oben beschrieben, damit InfoPath dem Code vertraut. Noch zur Info: Es kann sein das der Dialog zum wählen der Kontakte unter Umständen nicht als oberstes Fenster angezeigt wird, das liegt daran das der Dialog im Kontext von Outlook läuft und nicht von InfoPath ...

So also ich hab es jetzt runtergeladen, ich kann das Formular allerdings überhaupt nicht Bearbeiten.

mal im Explorer Rechtsklick auf das Formular gemacht und Entwerfen gewählt ?

Die Funktion hab ich gar ned zu Auswahl

Okay, passt schon habs schon ^^

jetzt bekomme ich aber folgende Fehlermeldung:

InfoPath kann den Ereignishandler nicht hinzufügen.

Das Visual Basic- oder C#-Projekt für diese Formularvorlage kann nicht gefunden werden.
d:\Eigene Dateien\nfoPath-Projekte\Formular 11\Formular 1.vbproj

Das ist das Problem mit der Weitergabe von solchen Projekten, deshalb habe ich oben die Anleitung geschrieben, weil es bei der Weitergabe Probleme gibt....

Kannst du mir vlt. einen Screenshot von dem Code-Editor schicken von dem Formular?

Verweis auf Outlook Bibliothek nicht vergessen:

Was du noch beachten musst wenn das Formular von mehreren Leuten benutzt wird ist der Pfad in dem der benutzerdefinierte Code gespeichert wird:
(Erweiterte Optionen des Formulars)

Super Vielen Dank.

Jetzt noch eine blöde Frage, ich bin jetzt grad bei dem Verweis und bei mir wird das Microsoft.Office.Interop.Outlook gar nicht aufgeführt?

OK dann hast du die Primary Interop Assemblies nicht installiert, macht nix dann nimmst du halt die Outlook-COM Bibliothek die sollte auf jeden Fall installiert sein:

funktioniert immer noch ned...

ich bin mir aber auch nicht mal sicher, ob er das auch wirklich ausführt..

Das is es jetzt momentan:

Imports Microsoft.Office.InfoPath
Imports System
Imports System.Windows.Forms
Imports System.Xml
Imports System.Xml.XPath
Imports Microsoft.Office.Interop
Imports mshtml

Namespace FRG_Formular_TEST
Public Class FormCode
' Membervariablen werden in browserfähigen Formularen nicht unterstützt.
' Schreiben und lesen Sie diese Werte stattdessen aus dem FormState-
' Wörterbuch, indem Sie Code wie folgt verwenden:
'
' Private Property _memberVariable() As Object
' Get
' _memberVariable = FormState("_memberVariable")
' End Get
' Set
' FormState("_memberVariable") = value
' End Set
' End Property

' HINWEIS: Das folgende Verfahren ist für Microsoft InfoPath erforderlich.
' Es kann mithilfe von Microsoft InfoPath geändert werden.
Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
AddHandler DirectCast(EventManager.ControlEvents("Schaltfläche"), ButtonEvent).Clicked, AddressOf Absenden_Clicked
AddHandler DirectCast(EventManager.ControlEvents("CTRL63_5"), ButtonEvent).Clicked, AddressOf CTRL63_5_Clicked
End Sub

Public Sub Absenden_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
Dim objOL As New Outlook.Application
Dim oDialog As Outlook.SelectNamesDialog = objOL.Session.GetSelectNamesDialog
Dim targetTo As String = ""
With oDialog.AllowMultipleSelection = True
If oDialog.Display() = True Then
For Each rec As Outlook.Recipient In oDialog.Recipients
targetTo &= rec.Adress & ";"
Next
Dim conn As EmailSubmitConnection = DataConnections("FRG-Formular_TEST")
conn.To.SetStringValue(targetTo)
conn.To.SetStringValue("Testsubject")
conn.Introduction = "Testbody"
conn.Execute()
End If
End With
'Dim root As XPathNavigator = MainDataSource.CreateNavigator()
End Sub

Public Sub CTRL63_5_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
' Fügen Sie hier Code ein.
End Sub
End Class
End Namespace

irgendwas machst du noch falsch...
hast du das Formular wirklich als voll vertrauenswürdig gesetzt und signiert wie im ersten Post geschrieben ?

Datei > Erweiterte Formularoptionen > Sicherheits und Vertrauensstellung > "Sicherheitsstufe : Voll vertrauenswürdig" und unten das Häkchen Diese Formularvorlage signieren setzen und entweder ein schon vorhandenes Zertifikat wählen oder ein neues erstellen.

minimiere mal andere Fenster um zu sehen ob der Outlook-Dialog nicht unter einem anderen Fenster steckt oder öffne Outlook mal nach dem Klick auf den Button.

ansonsten mach mal ein TeamViewer-Meeting auf ...