问题描述
我在Outlook 2010中使用VBA和我试图创建一个从Active Directory检索所选用户的主文件夹路径的功能。
I’m using VBA in Outlook 2010 and I’m trying to create a function that will retrieve a selected user Home folder path from Active Directory.
下面code是一个简单的弹出具有保存目标。
The following code is a simple pop up that has the saving destination.
Sub SaveSelected()
'Declaration
Dim myItems, myItem, myAttachments, myAttachment
Dim myOrt As String
Dim myOLApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim objFSO As Object
Dim intCount As Integer
'Ask for destination folder
myOrt = InputBox("Destination", "Save Attachments", "\\server\home\VARIABLE\")
End Sub
我希望变量从公元取决于当前选择的电子邮件来。
例如，我收到一封电子邮件从[email protected]，然后我从[email protected]选择电子邮件，我希望能够找回
I want the VARIABLE to come from AD depending on the currently selected email.
for example I received an email from [email protected] and then I select the email from [email protected], I want to be able to retrieve
\服务器\ home目录\吉米
和使用吉米作为我的变量。如果这是可能的任何帮助将不胜AP preciated。
and use "jimmy" as my VARIABLE.If this is possible any help would be greatly appreciated.
推荐答案
后续code ++工程
THe follow code works
Sub GetSelectedItems()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim mySender As Outlook.AddressEntry
Dim oMail As Outlook.MailItem
Dim oAppt As Outlook.AppointmentItem
Dim oPA As Outlook.propertyAccessor
Dim strSenderID As String
Dim myOrt As String
Dim user As String
Const PR_SENT_REPRESENTING_ENTRYID As String ="http://schemas.microsoft.com/mapi/proptag/0x00410102"
Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
If myOlSel.item(x).Class = OlObjectClass.olMail Then
' For mail item, use the SenderName property.
Set oMail = myOlSel.item(x)
ElseIf myOlSel.item(x).Class = OlObjectClass.olAppointment Then
' For appointment item, use the Organizer property.
Set oAppt = myOlSel.item(x)
Else
Set oPA = myOlSel.item(x).propertyAccessor
strSenderID = oPA.GetProperty(PR_SENT_REPRESENTING_ENTRYID)
Set mySender = Application.Session.GetAddressEntryFromID(strSenderID)
End If
Next x
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Open "Provider=ADsDSOObject;"
objCommand.ActiveConnection = objConnection
strDomainName = "ou=company,dc=mydc,dc=com"
strUserCN = oMail.SenderName & ""
objCommand.CommandText = "<LDAP://" & strDomainName & ">;(&
(objectCategory=person)(objectClass=user)(cn=" & strUserCN &
"));samAccountName;subtree"
Set objRecordSet = objCommand.Execute
If Not objRecordSet.EOF Then
user = objRecordSet.Fields("samAccountName")
myOrt = InputBox("Destination", "Save Attachments", "\\server\home\" &user & "")
End If
objConnection.Close
Set objRecordSet = Nothing
Set objConnection = Nothing
Set objCommand = Nothing
'free variables
Set myItems = Nothing
Set myItem = Nothing
Set myAttachments = Nothing
Set myAttachment = Nothing
Set myOLApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing
Set user = Nothing
End Sub
这篇关于VBA展望2010年从Active Directory中检索信息的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！