Accessing a mailbox in exchange via access

[chrisgreen]

I have produced the following code that puts data from an Access table into outlook contacts.<br><br>At the moment it puts the data into the outlook default mail folder.&nbsp;&nbsp;I have access the all exchange mailboxes and I want to be able to send the data to contacts in a selected mailbox.<br><br>The piece of code imediately below I think is the bit I need to change and the bit in &quot; &quot; is the line that I think is correct.<br><br>Can anyone help me?<br><br>Set objOutlook = CreateObject(&quot;Outlook.Application&quot<br>&nbsp;&nbsp;&nbsp;Set nms = objOutlook.GetNamespace(&quot;MAPI&quot<br>&nbsp;&nbsp;&nbsp;Set fldContacts = nms.GetDefaultFolder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(olFolderContacts) '*********<br>&nbsp;&nbsp;&quot; 'Set fldContacts = nms.CreateRecipient(Chrisgreen)&quot;<br><br><br><br><br>Private Sub cmdPushData_Click()<br><br>On Error GoTo Err_cmdPushData_Click<br><br>&nbsp;&nbsp;&nbsp;Dim dbs As Database<br>&nbsp;&nbsp;&nbsp;Dim rst As Recordset<br>&nbsp;&nbsp;&nbsp;Dim objOutlook As Outlook.Application<br>&nbsp;&nbsp;&nbsp;Dim nms As Outlook.NameSpace<br>&nbsp;&nbsp;&nbsp;Dim flds As Outlook.Folders<br>&nbsp;&nbsp;&nbsp;Dim fldContacts As Object<br>&nbsp;&nbsp;&nbsp;Dim itms As Object<br>&nbsp;&nbsp;&nbsp;Dim itm As Object<br>&nbsp;&nbsp;&nbsp;Dim strTitle As String<br>&nbsp;&nbsp;&nbsp;Dim strFirstName As String<br>&nbsp;&nbsp;&nbsp;Dim strMiddleName As String<br>&nbsp;&nbsp;&nbsp;Dim strLastName As String<br>&nbsp;&nbsp;&nbsp;Dim strSuffix As String<br>&nbsp;&nbsp;&nbsp;Dim strJobTitle As String<br>&nbsp;&nbsp;&nbsp;Dim strLastNameFirst As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessStreet As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessStreet2 As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessCity As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessState As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessPostalCode As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessCountry As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessPhone As String<br>&nbsp;&nbsp;&nbsp;Dim strBusinessFax As String<br>&nbsp;&nbsp;&nbsp;Dim strHomeStreet As String<br>&nbsp;&nbsp;&nbsp;Dim strHomeStreet2 As String<br>&nbsp;&nbsp;&nbsp;Dim strHomeCity As String<br>&nbsp;&nbsp;&nbsp;Dim strHomeState As String<br>&nbsp;&nbsp;&nbsp;Dim strHomePostalCode As String<br>&nbsp;&nbsp;&nbsp;Dim strHomeCountry As String<br>&nbsp;&nbsp;&nbsp;Dim strHomePhone As String<br>&nbsp;&nbsp;&nbsp;Dim strHomeFax As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherStreet As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherStreet2 As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherCity As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherState As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherPostalCode As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherCountry As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherPhone As String<br>&nbsp;&nbsp;&nbsp;Dim strOtherFax As String<br>&nbsp;&nbsp;&nbsp;Dim strEMailAddress As String<br>&nbsp;&nbsp;&nbsp;Dim strEMailAddress2 As String<br>&nbsp;&nbsp;&nbsp;Dim strContactID As String<br>&nbsp;&nbsp;&nbsp;Dim strCRLF As String<br>&nbsp;&nbsp;&nbsp;Dim lngCount As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;strCRLF = Chr$(13) & Chr$(10)<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;Set objOutlook = CreateObject(&quot;Outlook.Application&quot<br>&nbsp;&nbsp;&nbsp;Set nms = objOutlook.GetNamespace(&quot;MAPI&quot<br>&nbsp;&nbsp;&nbsp;'Set fldContacts = nms.GetDefaultFolder(olFolderContacts) '*********<br>&nbsp;&nbsp;&nbsp;Set fldContacts = nms.CreateRecipient(Chrisgreen)<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;Set itms = fldContacts.Items<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;'Get reference to data table<br>&nbsp;&nbsp;&nbsp;Set dbs = CurrentDb<br>&nbsp;&nbsp;&nbsp;Set rst = dbs![tblContacts].OpenRecordset(dbOpenTable, dbDenyRead)<br>&nbsp;&nbsp;&nbsp;lngCount = rst.RecordCount<br>&nbsp;&nbsp;&nbsp;MsgBox lngCount & &quot; records to transfer to Outlook&quot;<br><br>&nbsp;&nbsp;&nbsp;'Loop through table, exporting each record to Outlook<br>&nbsp;&nbsp;&nbsp;Do Until rst.EOF<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With rst<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Pick up data from a record<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strContactID = Nz(![CustomerID])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strTitle = Nz(![Title])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strFirstName = Nz(![FirstName])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strMiddleName = Nz(![MiddleName])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strLastName = Nz(![LastName])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strSuffix = Nz(![Suffix])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strJobTitle = Nz(![JobTitle])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strLastNameFirst = Nz(![LastName]) & &quot;, &quot; & Nz(![FirstName])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessStreet = Nz(![BusinessStreet1]) & IIf(Nz(![BusinessStreet2]) &lt;&gt; &quot;&quot;, strCRLF & Nz(![BusinessStreet2]), &quot;&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessCity = Nz(![BusinessCity])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessState = Nz(![BusinessState])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessPostalCode = Nz(![BusinessPostalCode])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessCountry = Nz(![BusinessCountry])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessPhone = Nz(![BusinessPhone])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strBusinessFax = Nz(![BusinessFax])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomeStreet = Nz(![HomeStreet1]) & IIf(Nz(![HomeStreet2]) &lt;&gt; &quot;&quot;, strCRLF & Nz(![HomeStreet2]), &quot;&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomeCity = Nz(![HomeCity])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomeState = Nz(![HomeState])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomePostalCode = Nz(![HomePostalCode])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomeCountry = Nz(![HomeCountry])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomePhone = Nz(![HomePhone])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strHomeFax = Nz(![HomeFax])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherStreet = Nz(![OtherStreet1]) & IIf(Nz(![OtherStreet2]) &lt;&gt; &quot;&quot;, strCRLF & Nz(![OtherStreet2]), &quot;&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherCity = Nz(![OtherCity])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherState = Nz(![OtherState])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherPostalCode = Nz(![OtherPostalCode])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherCountry = Nz(![OtherCountry])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherPhone = Nz(![OtherPhone])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strOtherFax = Nz(![OtherFax])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strEMailAddress = Nz(![E-mailAddress])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strEMailAddress2 = Nz(![E-mail2Address])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End With<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Create a contact item<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set itm = itms.Add(&quot;IPM.Contact&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'If desired, you can substitute the name of a custom form<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'for the standard Contact form, as below<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Set itm = itms.Add(&quot;IPM.Contact.Custom Form&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With itm<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Title = strTitle<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.FirstName = strFirstName<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.MiddleName = strMiddleName<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.LastName = strLastName<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Suffix = strSuffix<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.JobTitle = strJobTitle<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessAddressStreet = strBusinessStreet<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessAddressCity = strBusinessCity<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessAddressState = strBusinessState<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessAddressPostalCode = strBusinessPostalCode<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessAddressCountry = strBusinessCountry<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessTelephoneNumber = strBusinessPhone<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BusinessFaxNumber = strBusinessFax<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeAddressStreet = strHomeStreet<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeAddressCity = strHomeCity<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeAddressState = strHomeState<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeAddressPostalCode = strHomePostalCode<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeAddressCountry = strHomeCountry<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeTelephoneNumber = strHomePhone<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.HomeFaxNumber = strHomeFax<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherAddressStreet = strOtherStreet<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherAddressCity = strOtherCity<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherAddressState = strOtherState<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherAddressPostalCode = strOtherPostalCode<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherAddressCountry = strOtherCountry<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherTelephoneNumber = strOtherPhone<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.OtherFaxNumber = strOtherFax<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Email1Address = strEMailAddress<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Email2Address = strEMailAddress2<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Categories = &quot;From Access&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Close (olSave)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me![txtLastContact] = strContactID & &quot; -- &quot; & strLastNameFirst<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End With<br>&nbsp;&nbsp;&nbsp;rst.MoveNext<br>&nbsp;&nbsp;&nbsp;Loop<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;MsgBox &quot;All Contacts exported!&quot;<br>&nbsp;&nbsp;&nbsp;<br>Exit_cmdPushData_Click:<br>&nbsp;&nbsp;&nbsp;Exit Sub<br><br>Err_cmdPushData_Click:<br>&nbsp;&nbsp;&nbsp;MsgBox Err.Description<br>&nbsp;&nbsp;&nbsp;Resume Exit_cmdPushData_Click<br><br>End Sub<br><br>