Page 1 of 2 12 LastLast
Results 1 to 15 of 17
  1. #1
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Cut and Paste Contact Info? (2003)

    I fairly often want to go into Outlook and capture basic contact information from one record, and cut and paste that into an email.

    I wish for a place where I can get the name, address, company, phones and email, and can simply move it all into an email. At present, the only way I know to do this is to cut and paste one field at a time.

    How can I accomplish this?

    Thanks, Harriet Bograd

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Cut and Paste Contact Info? (2003)

    In Outlook 2002, you can do this: Insert>Item..., navigate to contact, change "Insert as" radio button from Attachment to Text only, then click OK. A whole bunch of information is inserted (I don't know if it possible to customize this, but of course it can be edited after insertion.) Does that work in Outlook 2003?

  3. #3
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Cut and Paste Contact Info? (2003)

    Thanks for the suggestion.

    Yes, your method does work. Unless you have more tricks up your sleeve, it is awkward in two ways:

    1) I have a very long list of contacts, and I don't see how to navigate to the contact I want, other than to select the "contacts" folder, click on the list of contacts, type the first letter of the contact's last name, and then use the down arrow to find the actual contact. I couldn't figure out how to use "find" or to scroll down by typing consecutive letters.

    2) It seems to then insert the entire contact record, including all of my extensive notes. I was hoping for just the actual contact information without the notes. I can delete them, but again this adds steps.

    At first when I read your message, I thought you were saying that I needed to start writing an email and then use "insert." I found that there is no "item" choice when you use "insert" from the email screen. But when I tried to "insert - item" in the notes in a contact form, then I got the list of contacts and could start scrolling.

    (In fact, I use Eudora Pro for email).

    Harriet

  4. #4
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Cut and Paste Contact Info? (2003)

    Regarding your experience with the Find Contact feature, in 2003 I can enter all or part of a name to return the short list of matching names.

    Regarding your objective, you can probably write a macro that will place all contact data, except the notes, from the selected contact, onto the clipboad and go from there. If you were to use Outlook as your e-mail client, you might be able to automate it a little further, by creating an unaddressed e-mail conatining the contact data.
    -John ... I float in liquid gardens
    UTC -7ąDS

  5. #5
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Cut and Paste Contact Info? (2003)

    What I was trying to do was find a contact while using the "insert item" feature. Once I press insert - item - contacts, I think get a list of all my contacts. I was having difficulty finding a specific contact at that point.

    After I read your message, I tried again, and found that if I type the last name or file as name rapidly, it does indeed scroll to the name I want on the list - though it doesn't show a short list of matching names. When I tried before, I typed one letter at a time, and if I paused between letters, it treated it as if each letter was a request to start the scrolling again. So if I typed "B O G" with pauses, it would first take me to the names starting with B, then the names starting with O, then the names starting with G. But if I type BOG quickly, I get to "Bograd" (my name).

    Now you've challenged me to learn how to write macros!

    Harriet

  6. #6
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Cut and Paste Contact Info? (2003)

    Oops - I just found out, in Outlook Help, that we can't record macros in Outlook. So if I wanted to make this a macro, I'd need to learn to write macros from scratch first.

    Wouldn't it be nice if someone else had already written such a macro!

    Harriet

  7. #7
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Cut and Paste Contact Info? (2003)

    Within 72 hours, someone may find the time to write a new one, if one does not already exist. (Busy time, with Halloween costumes and parties...)

  8. #8
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Cut and Paste Contact Info? (2003)

    Come on, Jefferson, you can write one in 7.2 minutes!
    -John ... I float in liquid gardens
    UTC -7ąDS

  9. #9
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Cut and Paste Contact Info? (2003)

    Here's a lightly tested start for you:

    Sub SelectedContactInfo2Clip()
    Dim objData As New DataObject
    Dim objItem As Object
    Dim strText As String

    On Error Resume Next
    If TypeName(Application.ActiveWindow) = "Explorer" Then
    Set objItem = ActiveExplorer.Selection(1)
    Else
    Set objItem = ActiveInspector.CurrentItem
    End If
    ' ContactItem <select this, F1, and see all the Contact Properties to add to the below
    If Not objItem Is Nothing And objItem.Class = olContact Then
    With objItem
    strText = .Subject & vbLf
    strText = strText & .CompanyName & vbLf
    strText = strText & .BusinessAddress & vbLf
    strText = strText & "Bus #: " & .BusinessTelephoneNumber & vbLf
    strText = strText & "Cell #: " & .MobileTelephoneNumber & vbLf
    strText = strText & .Email1Address & vbLf
    End With
    objData.SetText strText
    objData.PutInClipboard
    Else
    MsgBox "No Contact item selected"
    End If

    Set objItem = Nothing
    Set objData = Nothing
    End Sub

    With thanks to HansV for showing me how to populate the clipboard.
    -John ... I float in liquid gardens
    UTC -7ąDS

  10. #10
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Cut and Paste Contact Info? (2003)

    This is terrific! I used to have conversations like this all the time on Compuserve, in the old days, but I'd never found a place to talk about Microsoft Office issues with lots of wise mentors to pitch in.

    I just went to Outlook Help and read about how to create a macro, and I think I cut and pasted your macro into access. I opened a contact and tried to run the macro, and got this message, with "objData As New DataObject" highlighted:

    "Compile error: User-defined type not defined"

    Do you know what to do next to fix this?

    Thanks.

    Harriet

  11. #11
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Cut and Paste Contact Info? (2003)

    Correction: I cut and pasted your macro into Outlook , not Access.

    Harriet

  12. #12
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Cut and Paste Contact Info? (2003)

    My oversight. In the Outlook code module select Tools | References, and check "Microsoft Forms 2.0 Object Library". (It should be listed, but if not, in a default installation you should be able to browse to it 'c:windowssystem32scrrun.dll'.)
    -John ... I float in liquid gardens
    UTC -7ąDS

  13. #13
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Cut and Paste Contact Info? (2003)

    By the way, welcome to the Lounge. I have no experience in Outlook Forms Design, but I suspect regarding your <post#=420778>post 420778</post#> you are missing some steps in publishing the modified form. Hope someone can help you.
    -John ... I float in liquid gardens
    UTC -7ąDS

  14. #14
    New Lounger
    Join Date
    Oct 2004
    Location
    New York, New York, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Cut and Paste Contact Info? (2003)

    I was able to browse to c:windowssystem32scrrun.dll, but it did not include anything named Microsoft Forms 2.0 Object Library.

    I checked this in Outlook 2003 and in Outlook 2002 (on another computer), and neither one had Microsoft Forms 2.0 Object Library in c:windowssystem32scrrun.dll.

    Any other ideas?

    Harriet

  15. #15
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Cut and Paste Contact Info? (2003)

    This is cheating, but... If you use Insert>UserForm... to add a blank form to your Outlook project, the library reference will be added automatically for you.

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •