none
OUTLOOCK RRS feed

  • Question

  • Bonjour à tous.
    J'ai la mémoire qui flanche. J'ai 63 ans :)

    J'avais un programme qui me semble-t-il tournait en VB. Mais, je ne sais plus comment je le faisais fonctionner. Je suis tout à fait perdu.

    Je souhaiterais retrouver les données concernant l'expéditeur de tous les messages dans OUTLOOCK.

    Comment le lancer ? et obtenir les résultat ?

    Merci d'avance de votre aide.

    A+, Josque

    dimanche 14 octobre 2012 10:03

Réponses

  • En partie, voir et essayer :

    Public Sub PickerDialogDemo()

        Dim dlg As Office.PickerDialog

        Set dlg = Application.PickerDialog

        dlg.Title = "Select a user to e-mail"

     

        ' PEOPLEDATAHANDLER.DLL is an in-process COM DLL that provides 

        ' the data handler implementation used in this example.

        ' Currently this is the only documented handler available for use. 

        Dim peopleDataHandlerServerCLSID As String

        peopleDataHandlerServerCLSID = "{000CDF0A-0000-0000-C000-000000000046}"

        dlg.DataHandlerId = peopleDataHandlerServerCLSID

        

        Dim pickerProps As Office.PickerProperties

        Set pickerProps = dlg.Properties

        Dim pickerProp As Office.PickerProperty

        Dim pickerID As String

        pickerID = "SiteUrl"

        Dim sharepointURL As String

        ' Change the following URL to a valid

        ' SharePoint server URL to which you have access rights.

        ' This example was tested against a SharePont 2010 Server.

        sharepointURL = "http://my"

        Set pickerProp = pickerProps.Add(pickerID, sharepointURL, _

            Office.MsoPickerField.msoPickerFieldText)

        

        Dim dlgResults As Office.PickerResults

        ' When the code shows the dialog, search for at least one user

        ' and then add at least one user before closing the PickerDialog.

        ‘ What does that True parameter mean?

        Set dlgResults = dlg.Show(True)

        

        If Not dlgResults Is Nothing Then

            ' The user selected at least one item so the

            ' code will create a new MailItem.

            Dim newMail As Outlook.MailItem

            Set newMail = Application.CreateItem(olMailItem)

            newMail.Subject = "PickerDialog Demo"

            

            Dim result As Office.PickerResult

            For Each result In dlgResults

                ' If the result is a user, add them as a recipient

                ' to the new mail message.

                If result.Type = "User" Then

                    newMail.Recipients.Add result.DisplayName

                End If

            Next

            ' Validate the users’ display names added to the list

            ' of mail recipients.

            newMail.Recipients.ResolveAll

            

            ' Retrieve a reference to the Inspector for the mail message

            ' and display it. Note that you might need to navigate away from

            ' the VBA editor to see the message.

            Dim mailInspector As Outlook.Inspector

            Set mailInspector = newMail.GetInspector

            mailInspector.Display

        Else

            ' If you click Cancel, the code falls through here.

        End If

    End Sub

    • Marqué comme réponse josque dimanche 14 octobre 2012 10:14
    dimanche 14 octobre 2012 10:14