Outlook Macro to Contact

[Diane Poremsky]

Rather than paste it into a macro "hard coded", you should get the value in a string and use the string. Oh, but that means you need to select the contact first, which defeats the purpose of the macro. On the other hand, sometimes macros make more work when using features like instant search would more efficient than making a macro for one person.

 

[LMS]

thanks for your thoughts.....this would be more than I need to do....just found the way to create the macro to the contact after finding the the entryid of the contact...and then created that other macro as a string of each macro to a contact and how they then show up in the combobox of the Userform as a droplist of contacts that I then created the OutlookSession macro that runs teh macro re userform, and then added to the contact form in the script the run the macro from the OutlookSession (running the macro/userform combobox), and it runs from the form of the contact as a commandbutton.....so other than the brief having to do it twice to get the entryid, thats all I need to simply finalize a list of contacts that I want to have as droplist in the form of contacts..etct.....so, seems like nothing else to do....thank you very much for looking into it all

 

[LMS]

Also, anyway with a userform to drag a note field/box instead of a tex box? Or is there a code to add to the userform that upgrades it to copy using the mouse?

 

[Diane Poremsky]

I looked and didn't see a note field in the control toolbox.

 

[LMS]

the field name of a note in a contact is "DocSiteControl" and that showsup in the control toolbox, but for some reason I can't drag it to the userform.....any thoughts on that?

 

[Diane Poremsky]

Only Forms 2 controls are supported in userforms.

ETA: or 3rd party controls designed for userforms - but they need to support Forms 2.

 

[LMS]

so nothing to do.....got it!!! and no code for userform with the textbox that opens it up for the copy and paste from a mouse? correct?

 

[Diane Poremsky]

The last code sample can copy to the clipboard - http://www.slipstick.com/developer/code-samples/paste-clipboard-contents-vba/ - but it's coming up as non-printable text.

Public lstNum21 As Long
Public Sub GetEntryIDContact2()
UserForm19.Show
Dim Session As Outlook.NameSpace
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim currentItem As Object
Dim currentContact As ContactItem
Dim entryID As String 
 
Dim DataObj As MSForms.DataObject
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
'for all items do...
For Each currentItem In Selection
If currentItem.Class = olContact Then
Set currentContact = currentItem
Set DataObj = New MSForms.DataObject 
 
entryID = currentContact.entryID 
 
DataObj.SetText entryID 
 
DataObj.PutInClipboard 
 
UserForm1.TextBox19.Value = entryID
End If
Next
End Sub

if you are just doing this to get the entryid to use in a macro, remove the userform and use

entryID = currentContact.entryID

Debug.Print entryID & " Full name:" & currentContact.FullName

This prints the entryID and the contact name to the immediate window, so it's easy to copy into the code you're working with.

Select a group of contacts, run the macro then use then copy the text from the immediate window (Ctrl+G or the View menu > Immediate).

 

[Diane Poremsky]

To use the immediate window, you only need this code -

Public Sub GetEntryIDContact2()
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim currentItem As Object
Dim currentContact As ContactItem
Dim entryID As String
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
'for all items do...
For Each currentItem In Selection
If currentItem.Class = olContact Then
Set currentContact = currentItem
Set DataObj = New MSForms.DataObject 
 
entryID = currentContact.entryID 
 
Debug.Print entryID & " Full name:" & currentContact.FullName
End If
Next
End Sub

 

[LMS]

Thanks. Can you show me the full code with your changes as not clear what I completely do.

 

[Diane Poremsky]

The last code sample i posted is complete - paste it in the module then Ctrl+G to show the immediate window then run the macro. You'll get a list of entry id & contact names, one for each selected contact.

 

[LMS]

I pasted the following macro to a module.....but Ctrl + G is not doing anything....and when opened a contact and ran the macro, nothing happened....what am I missing please?

Public Sub GetEntryIDContact2()
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim currentItem As Object
Dim currentContact As ContactItem
Dim entryID As String
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
'for all items do...
For Each currentItem In Selection
If currentItem.Class = olContact Then
Set currentContact = currentItem
Set DataObj = New MSForms.DataObject

entryID = currentContact.entryID

Debug.Print entryID & " Full name:" & currentContact.FullName
End If
Next
End Sub

 

[Diane Poremsky]

Try selecting several contacts and running it, instead of using it on an open contact.

ActiveExplorer is for selected items - it will usually still work if you open an item because the open item is still selected and focus drops back to it. But you may be doing something a little different than I am that causes the open item to remain infocus.

 

[LMS]

Update: Two Questions: I opened the module that has macro you gave me....with the module open, I did Ctrl + G and the "immediate" shows below with entryid and name, but not a contact that I had most recently opened or highlighted.....so how do have it show the contacts I want? thanks so much....and also, is there a shortcut to open the module??

 

[LMS]

Here is what I did.....I highlighted four contacts, ran the macro...opened up the module of the macro, did Ctrl + G and it shows them....great!!! I also open one contact....ran the macro....did Ctrl +G and then when I opened the module of the macro, it shows it ...........great!! So is there an easy way after I highlight the contract or open the contact, run the macro, do Ctrl + G is there a shortcut to open the module and see the immediate? or just see the immediate from that module that ran the macro??? that would be fast!!!

 

[LMS]

Next Update: Did what I said above, and then did the shortcut Alt + F11.....and that opens the VBA and shows the immediate....so is there a way to only show the immediate....not the module and the macros etc.?

 

[Diane Poremsky]

Alt+F11 should pop you over into the vba editor - once the immediate window is open you don't need ctrl+g again.

 

[LMS]

I did it right before you told me!!! See above.....but.........so is there a way to only show the immediate like a box....not the module and the macros etc.?

• 
  

 

[LMS]

Actually...don't need to just see the immediate...as what shows up in it is what I need to put into the macros re the links to the contact....so if I simply open up the module that has the macros to the contacts, I can quickly copy and paste the entryid to the code line ....so thanks so so much again!!!

 

[Diane Poremsky]

Finally, the lightbulb turns on. LOL Once I understood what you were trying to do, it made more sense to get the values this way and that is why i added the names to it. You can select all, run the code, and use the correct entryid's for the correct contact. It's actually a pretty nifty code sample for collecting a lot of entry id's.