Erstellen Sie einen "Namen Überprüfen" - Taste in Excel

Ich bin neu in VBA und Makros und Frage mich, ob es einen Weg gibt, um einen "Namen überprüfen" - Funktion in Excel (ähnlich der Funktion in Outlook). Teil die form, die ich arbeite verlangt von mir zu geben Sie die Namen der Mitarbeiterinnen und Mitarbeiter und ich würden gerne in der Lage, auf eine Schaltfläche klicken, um sicherzustellen, habe ich buchstabiert Ihren Namen richtig, und Sie sind in unsere E-Mail-system. Jede Hilfe oder Zeiger in die richtige Richtung wäre sehr dankbar!

Je nachdem, wie viele Namen, man könnte eine Liste (versteckt in Ihrer persönlichen Arbeitsmappe?) in Excel und Kennzeichen, wenn nicht auf diese Liste mithilfe einer For-Schleife und eine IF, oder, wenn es nicht viele sind, könnten Sie schreiben, eine CASE-Anweisung in VBA. Dann Kennzeichnen Sie, wenn Sie nicht auf dem 'genehmigten' Liste
könnte man nicht das design ein outlook-Formular Abfragen von Daten von zentral abgelegten Excel? so haben Sie alle outlook-E-mail Funktionen-und ich glaube, das ist viel realistischer als das Abfragen von outlook-Namen benötigen Zugriff erteilen auf outlook (?)
Wo brauchen Sie auf Namen überprüfen? In der Outlook-Adressbuch oder die ANZEIGE?

InformationsquelleAutor Marty Moesta | 2015-07-01

  1. 2

    Ein paar Antworten hier:

    Edit: Erstellt in Excel 2010 (keine Ahnung, ob es eine Arbeit 2003).

    Den ersten, wird TRUE zurückgegeben, oder FALSE, wenn der name aufgelöst werden kann in Outlook.

    '----------------------------------------------------------------------------------
' Procedure : ResolveDisplayNameToSMTP
' Author    : Sue Mosher - updated by D.Bartrup-Cook to work in Excel late binding.
'-----------------------------------------------------------------------------------
Public Function ResolveDisplayName(sFromName) As Boolean

    Dim OLApp As Object 'Outlook.Application
    Dim oRecip As Object 'Outlook.Recipient
    Dim oEU As Object 'Outlook.ExchangeUser
    Dim oEDL As Object 'Outlook.ExchangeDistributionList

    Set OLApp = CreateObject("Outlook.Application")
    Set oRecip = OLApp.Session.CreateRecipient(sFromName)
    oRecip.Resolve
    If oRecip.Resolved Then
        ResolveDisplayName = True
    Else
        ResolveDisplayName = False
    End If

End Function

    Die zweite wird den Namen aufzulösen und die Rückgabe des E-Mail-Adresse:

    '----------------------------------------------------------------------------------
' Procedure : ResolveDisplayNameToSMTP
' Author    : Sue Mosher - updated by D.Bartrup-Cook to work in Excel late binding.
'-----------------------------------------------------------------------------------
Public Function ResolveDisplayNameToSMTP(sFromName) As String
    Dim OLApp As Object 'Outlook.Application
    Dim oRecip As Object 'Outlook.Recipient
    Dim oEU As Object 'Outlook.ExchangeUser
    Dim oEDL As Object 'Outlook.ExchangeDistributionList

    Set OLApp = CreateObject("Outlook.Application")
    Set oRecip = OLApp.Session.CreateRecipient(sFromName)
    oRecip.Resolve
    If oRecip.Resolved Then
        Select Case oRecip.AddressEntry.AddressEntryUserType
            Case 0, 5 'olExchangeUserAddressEntry & olExchangeRemoteUserAddressEntry
                Set oEU = oRecip.AddressEntry.GetExchangeUser
                If Not (oEU Is Nothing) Then
                    ResolveDisplayNameToSMTP = oEU.PrimarySmtpAddress
                End If
            Case 10, 30 'olOutlookContactAddressEntry & 'olSmtpAddressEntry
                    ResolveDisplayNameToSMTP = oRecip.AddressEntry.Address
        End Select
    End If
End Function

    Hier ist eine test-Prozedur, die zeigt, wie verwenden Sie die beiden Funktionen:

    Sub Test()

    MsgBox ResolveDisplayName("Marty Moesta")
    MsgBox ResolveDisplayNameToSMTP("Marty Moesta")

End Sub
    Diese Lösung war sehr hilfreich, danke!
    Beachten Sie, dass der Namespace.CreateRecipient / Empfänger.Beheben wird nicht angezeigt Mehrdeutiger name-Dialogfeld.
    Ich würde noch nicht einmal nachgedacht, dass @Dmitrij - werde ich arbeiten müssen. Diesen link gefunden, die mich in die richtige Richtung - msdn.microsoft.com/en-us/library/bb646055(v=office.12).aspx
    Ja, das ist für die Auswahl der Namen, nicht für zweideutige Namen.

    InformationsquelleAutor Darren Bartrup-Cook

Schreibe einen Kommentar