Microsoft KB Archive/169750: Difference between revisions

From BetaArchive Wiki
(importing KB archive)
 
m (Text replacement - """ to """)
Line 44: Line 44:
== SYMPTOMS ==
== SYMPTOMS ==


In Microsoft Outlook 97, if you programmatically set a Contact's e-mail address, the e-mail address is not checked (or "resolved") against an Address Book. Therefore, the Contact's e-mail address is not added to the Outlook Address Book.
In Microsoft Outlook 97, if you programmatically set a Contact's e-mail address, the e-mail address is not checked (or "resolved") against an Address Book. Therefore, the Contact's e-mail address is not added to the Outlook Address Book.


</div>
</div>
Line 74: Line 74:


</div>
</div>
This example code is designed to run from another Microsoft Office 97 program using Visual Basic for Applications, or from a separate Visual Basic (VB) application. In order to use this code you must reference the &quot;Microsoft Outlook 8.0 Object Library&quot; from within the editor. Consult your editor's documentation for how to reference available object libraries.<br />
This example code is designed to run from another Microsoft Office 97 program using Visual Basic for Applications, or from a separate Visual Basic (VB) application. In order to use this code you must reference the "Microsoft Outlook 8.0 Object Library" from within the editor. Consult your editor's documentation for how to reference available object libraries.<br />
<br />
<br />
The following Outlook automation code is an example of how to workaround this issue:
The following Outlook automation code is an example of how to workaround this issue:
Line 84: Line 84:
       Dim Command As Object
       Dim Command As Object
       Set ol = New Outlook.Application
       Set ol = New Outlook.Application
       Set olns = ol.GetNamespace(&quot;MAPI&quot;)
       Set olns = ol.GetNamespace("MAPI")
       ' Create a new Contact item
       ' Create a new Contact item
       Set myContact = olns.GetDefaultFolder(olFolderContacts).Items.Add
       Set myContact = olns.GetDefaultFolder(olFolderContacts).Items.Add
       With myContact
       With myContact
         ' Set the relevant fields for the contact
         ' Set the relevant fields for the contact
         .FullName = &quot;John Smith&quot;
         .FullName = "John Smith"
         .Email1Address = &quot;jsmith@msn.com&quot;
         .Email1Address = "jsmith@msn.com"
         .Email1AddressType = &quot;SMTP&quot;
         .Email1AddressType = "SMTP"
         ' Display the contact (required)
         ' Display the contact (required)
         .Display
         .Display
       End With
       End With
       ' Set the Tools menu on the item's menu bar
       ' Set the Tools menu on the item's menu bar
       Set Menu = ol.ActiveInspector.CommandBars(&quot;Tools&quot;)
       Set Menu = ol.ActiveInspector.CommandBars("Tools")
       ' Sets the command on the menu
       ' Sets the command on the menu
       Set Command = Menu.Controls(&quot;Check Names&quot;)
       Set Command = Menu.Controls("Check Names")
       ' Actually executes the Check Names command
       ' Actually executes the Check Names command
       Command.Execute
       Command.Execute

Revision as of 10:04, 21 July 2020

Knowledge Base


Article ID: 169750

Article Last Modified on 2/12/2007



APPLIES TO

  • Microsoft Outlook 97 Standard Edition



This article was previously published under Q169750

SYMPTOMS

In Microsoft Outlook 97, if you programmatically set a Contact's e-mail address, the e-mail address is not checked (or "resolved") against an Address Book. Therefore, the Contact's e-mail address is not added to the Outlook Address Book.

CAUSE

This is a limitation of Outlook 97.

RESOLUTION

NOTE: This problem was fixed in Outlook 98. Outlook 98 will resolve the e-mail address when the item is saved.

You can use the CommandBars object model to execute the Check Names menu command and resolve the e-mail address. However, this workaround requires that you display the Contact window.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft Support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

This example code is designed to run from another Microsoft Office 97 program using Visual Basic for Applications, or from a separate Visual Basic (VB) application. In order to use this code you must reference the "Microsoft Outlook 8.0 Object Library" from within the editor. Consult your editor's documentation for how to reference available object libraries.

The following Outlook automation code is an example of how to workaround this issue:

   Sub ResolveContactAddressViaCheckNames()
      Dim ol As Outlook.Application
      Dim olns As NameSpace
      Dim myContact As Object
      Dim Menu as Object
      Dim Command As Object
      Set ol = New Outlook.Application
      Set olns = ol.GetNamespace("MAPI")
      ' Create a new Contact item
      Set myContact = olns.GetDefaultFolder(olFolderContacts).Items.Add
      With myContact
         ' Set the relevant fields for the contact
         .FullName = "John Smith"
         .Email1Address = "jsmith@msn.com"
         .Email1AddressType = "SMTP"
         ' Display the contact (required)
         .Display
      End With
      ' Set the Tools menu on the item's menu bar
      Set Menu = ol.ActiveInspector.CommandBars("Tools")
      ' Sets the command on the menu
      Set Command = Menu.Controls("Check Names")
      ' Actually executes the Check Names command
      Command.Execute
   End Sub
                

REFERENCES

For more information about creating solutions with Microsoft Outlook 97, please see the following articles in the Microsoft Knowledge Base:

166368 OL97: How to Get Help Programming with Outlook


170783 OL97: Q&A: Questions about Customizing or Programming Outlook



Additional query words: OutSol OutSol97

Keywords: kbcode kbhowto kbprogramming KB169750