Search results

I'm trying to pick up the person's first name (ie. "John" from "John Smith") but in some cases the fosUserName is only a single value (Owner). How would you modify the code to recognize this? Left(fOSUserName(), InStr(1, fOSUserName(), " ") - 1)

Confirmed with the modified code that this now works on a computer who's default web browser isn't IE. Thank you very much for getting this improvement rolled out.

Working on my computer. Will have the other user test it out. Thanks. Here's the updated code Option Compare Database Option Explicit Public Function fnCreateShortcut(strName As String, strAppPath As String, strIconPath As String, strDesc As String) '...

To get the Windows Explorer Folder to open the shortcut needs to use Internet Explorer. I have a new user that uses Mozilla as their default browser which i believe is why the shortcut isn't populating and running correctly. While I need to get the code working, I don't want to force them to...

I'm not sure if I had to, but I did have it. I definitely don't understand all of the whys.

In a previous posting, we got the code to export All Access Contacts to Outlook. A couple of open issues. How do I delete an existing record and then repopulate it in Outlook? The below code is deleting the 1st record populated, not repopulating it and moving to the next record...

Outlook Edit an Account https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2007/bb267903(v=office.12)

I'm trying to have a solution that works for each user of the database and all of their personal Outlook accounts.

For my list of 750+ people and the data being stored on SharePoint it took ~1-2 seconds, per record, to load the contact's data along with picture. While there are a couple of gaps, the below code extracts from an Access database contacts, imports them into Outlook and tracks that the record was...

If you have the time, can you find the code to do so?

Things are working. I'm playing around with the code now. I'll post an updated code later today. Need to track when the user clicked the button so we know what's changed in the database since then (existing records modified and new ones added). Using a INSERT to track that by FOSUserName...

Have a great night.

The code uploaded 697 of the 750+ contact and then stopped at a record that apparently it didn't like. I'm troubleshooting it. Issue 1 was a malformed email address (I have code that should have caught it). Question based on how we've coded this, if I run the button again, it shouldn't...

I uncommented the dim and this one and it appears to be working now. Names showing up, pictures, etc.... I'll let you know when all 750+ contacts are loaded. Thanks.

It fails to compile at this point. Thanks for the information and support to get me to this point.

Thanks. That's the code that I started with and works for me clicking on one record at a time to populate Outlook. This post is about making that code run through all records and populate Outlook's Contacts.

Current code Private Sub ExportAccessContacts_Click() Dim OlApp As Object Dim olContact As Object On Error GoTo HandleErr Const olContactItem = 2 Set OlApp = CreateObject("Outlook.Application") Set olContact = OlApp.CreateItem(olContactItem) Dim...

Made the changes you all have recommended. The code runs but it's not saving a single record, until it reaches the last record. That is the only record saved. Visually you can see the names showing up for a spilt second as the vba loops thru them but only one record is in Outlook at the end...

I need to break for a meeting. Will get back on this in a couple.

Made that change. Clicked the button and it started. We're much closer. Looking at Outlook, it looked like a record was being created but wasn't being saved. I could see the names briefly before they were replaced with another. At the end though there was only 1 record saved in the Outlook...