OUTLOOK2010 Contact

Styute

Recently I find I didn't fill in the phone number for some contacts. So now I have to find the email before to find it.

So I think I should fill in some important information every time when I add a contact. So it will be good if these options such as phone number, name,email address are just mandatory options to fill in when adding a contact. But I don't find a way to set this. Is that possible?

ThemeOne

There's no way with the out of the box contact form.

You might be able to set fields as mandatory if you design and deploy a custom contact form but that's not exactly a trivial task, and it might just be easier to remember to fill stuff in.

ThemeOne

DavidP24 wrote: »

There are TWO sorts of contacts in outlook 2010, those in contacts and those saved by you sending emails to someone.

I has always been a poorly designed system and I seem to remember that there are even apps to go get the ones saved in email

Yes, I forget what they called them - collected addresses or something? Anyway they've been discontinued in later versions of Outlook I believe. Not that it's anything to do with mandatory fields ...

Akonty

HI,Styute

There is no such option in outlook2010, but you can write VBA codes to do that. Below is a macro you can try

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objContact = Inspector.CurrentItem
End Sub

'Here we take the business information as an example
'You can change the details as per your own case
Private Sub objContact_Write(Cancel As Boolean)
    Dim strJobTitle As String
    Dim strBusinessAddress As String
    Dim strBusinessPhone As String
    Dim nWarning As Integer
 
    If objContact.CompanyName <> "" Then
 
       If objContact.JobTitle = "" Then
          Cancel = True
          strMsg = "Now that you've filled in the Company info, " & "why not fill in Job Title too?"
          nWarning = MsgBox(strMsg, vbExclamation, "Missing Job Title")
          strJobTitle = InputBox("Input the contact job title here:")
          objContact.JobTitle = strJobTitle
       End If
 
       If objContact.BusinessAddress = "" Then
          Cancel = True
          strMsg = "Now that you've filled in the Company info, " & "why not fill in business address too?"
          nWarning = MsgBox(strMsg, vbExclamation, "Missing Business Address")
          strBusinessAddress = InputBox("Input the contact business address here:")
          objContact.BusinessAddress = strBusinessAddress
       End If
 
       If objContact.BusinessTelephoneNumber = "" Then
          Cancel = True
          strMsg = "Now that you've filled in the Company info, " & "why not fill in business telephone number too?"
          nWarning = MsgBox(strMsg, vbExclamation, "Missing Business Telephone Number")
          strBusinessPhone = InputBox("Input the contact business telephone number here:")
          objContact.BusinessTelephoneNumber = strBusinessPhone
       End If
 
       objContact.Close olSave
    End If
End Sub

More detailed steps, you can search the article on google for :

"How to Make Some Fields Mandatory When Filling in an Outlook Contact"

Good luck

Styute

Thanks for all the help! And I have tried the macro and find that article. It helps a lot!

ThemeOne

Always useful to get Outlook macros, especially as there's no macro recorder in Outlook.