Home Menu

Menu


Microsoft Office Word Forum - WordBanter » Microsoft Word Newsgroups » Microsoft Word Help > Word 2007 AddressLayout
Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Estimator Estimator is offline
external usenet poster
  
Posts: 2
Default Word 2007 AddressLayout
In Word 2007 I have modified "AddressLayout" as shown below. When I insert an
Outlook Contact address in a Word document everything prints correctly with
the exception that the email address is missing.
{PR_DISPLAY_NAME}
{PR_TITLE}
{PR_COMPANY_NAME}
{PR_STREET_ADDRESS}
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
Phone: {PR_OFFICE_TELEPHONE_NUMBER}
Fax: {PR_BUSINESS_FAX_NUMBER}
Cell: {PR_CELLULAR_TELEPHONE_NUMBER}
Email: {PR_EMAIL_ADDRESS}

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
  
Posts: 19,312
Default Word 2007 AddressLayout
I have tested this and I agree it doesn't work. It may be concerned with the
way that the AddressLayout autotext works in Word 2007, however

Public Sub InsertFromOutlook()
Dim strName As String
'Set up the formatting codes in strCode
strName = "PR_EMAIL_ADDRESS"
'Let the user choose the name in Outlook
strName = Application.GetAddress("", strName, _
False, 1, , , True, True)
If strName = "" Then
MsgBox "User cancelled or no name listed", , "Cancel"
Exit Sub
End If
Selection.TypeText strName
End Sub

inserts the e-mail address, so it should be simple enough to modify the
macro at http://www.gmayor.com/Macrobutton.htm to insert the address details
in any layout you prefer.

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Estimator wrote:
In Word 2007 I have modified "AddressLayout" as shown below. When I
insert an Outlook Contact address in a Word document everything
prints correctly with the exception that the email address is missing.
{PR_DISPLAY_NAME}
{PR_TITLE}
{PR_COMPANY_NAME}
{PR_STREET_ADDRESS}
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
Phone: {PR_OFFICE_TELEPHONE_NUMBER}
Fax: {PR_BUSINESS_FAX_NUMBER}
Cell: {PR_CELLULAR_TELEPHONE_NUMBER}
Email: {PR_EMAIL_ADDRESS}


Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
  
Posts: 19,312
Default Word 2007 AddressLayout
Further to my last:

Public Sub InsertAddressFromOutlookA()
Dim strTitle As String
Dim strJobTitle As String
Dim strForeName As String
Dim strSurname As String
Dim strCompany As String
Dim strAddress As String
Dim strCountry As String
Dim strPhone As String
Dim strFax As String
Dim strCell As String
Dim strEmail As String
Dim strFinal As String

'Set up the formatting codes in strCode
strTitle = "{PR_DISPLAY_NAME_PREFIX }"
strJobTitle = "PR_TITLE"
strForeName = "{PR_GIVEN_NAME }"
strSurname = "PR_SURNAME"
strCompany = "PR_COMPANY_NAME"
strAddress = "PR_POSTAL_ADDRESS"
strCountry = "PR_COUNTRY"
strPhone = "PR_OFFICE_TELEPHONE_NUMBER"
strFax = "PR_BUSINESS_FAX_NUMBER"
strCell = "PR_CELLULAR_TELEPHONE_NUMBER"
strEmail = "PR_EMAIL_ADDRESS"

'Let the user choose the name in Outlook
On Error GoTo UserCancelled:
strAddress = Application.GetAddress("", strAddress, _
False, 1, , , True, True)
If strAddress = "" Then
MsgBox "User cancelled or no address listed", , "Cancel"
Exit Sub
End If
strTitle = Application.GetAddress("", strTitle, _
False, 2, , , True, True)
strForeName = Application.GetAddress("", strForeName, _
False, 2, , , True, True)
strSurname = Application.GetAddress("", strSurname, _
False, 2, , , True, True)
strCompany = Application.GetAddress("", strCompany, _
False, 2, , , True, True)
strJobTitle = Application.GetAddress("", strJobTitle, _
False, 2, , , True, True)
strCountry = Application.GetAddress("", strCountry, _
False, 2, , , True, True)
strPhone = Application.GetAddress("", strPhone, _
False, 2, , , True, True)
strFax = Application.GetAddress("", strFax, _
False, 2, , , True, True)
strCell = Application.GetAddress("", strCell, _
False, 2, , , True, True)
strEmail = Application.GetAddress("", strEmail, _
False, 2, , , True, True)

strFinal = strTitle & Left(strForeName, 1) & " " & strSurname & vbCr

If strCompany "" Then
strFinal = strFinal & strCompany & vbCr
If strJobTitle "" Then
strFinal = strFinal = strFinal & strJobTitle & vbCr
End If
End If

If InStr(strCountry, "United States") Then
strAddress = Left(strAddress, Len(strAddress) - 25)
End If
With Selection ' type in the name string _
using the Inside Address paragraph style
.Style = ActiveDocument.Styles("Normal")
.TypeText Text:=strFinal
.TypeText Text:=strAddress
.TypeParagraph
If strPhone "" Then
.TypeText Text:="Phone: " & strPhone
.TypeParagraph
End If
If strFax "" Then
.TypeText Text:="Fax: " & strFax
.TypeParagraph
End If
If strCell "" Then
.TypeText Text:="Cell: " & strCell
.TypeParagraph
End If
If strEmail "" Then
.TypeText Text:="Email: " & strEmail
.TypeParagraph
End If
End With
UserCancelled:
End Sub

will insert the addresses more or less as you require them.

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I have tested this and I agree it doesn't work. It may be concerned
with the way that the AddressLayout autotext works in Word 2007,
however
Public Sub InsertFromOutlook()
Dim strName As String
'Set up the formatting codes in strCode
strName = "PR_EMAIL_ADDRESS"
'Let the user choose the name in Outlook
strName = Application.GetAddress("", strName, _
False, 1, , , True, True)
If strName = "" Then
MsgBox "User cancelled or no name listed", , "Cancel"
Exit Sub
End If
Selection.TypeText strName
End Sub

inserts the e-mail address, so it should be simple enough to modify
the macro at http://www.gmayor.com/Macrobutton.htm to insert the
address details in any layout you prefer.


Estimator wrote:
In Word 2007 I have modified "AddressLayout" as shown below. When I
insert an Outlook Contact address in a Word document everything
prints correctly with the exception that the email address is
missing. {PR_DISPLAY_NAME}
{PR_TITLE}
{PR_COMPANY_NAME}
{PR_STREET_ADDRESS}
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
Phone: {PR_OFFICE_TELEPHONE_NUMBER}
Fax: {PR_BUSINESS_FAX_NUMBER}
Cell: {PR_CELLULAR_TELEPHONE_NUMBER}
Email: {PR_EMAIL_ADDRESS}


Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.word.docmanagement
Bob Buckland ?:-\) Bob Buckland ?:-\) is offline
external usenet poster
  
Posts: 2,073
Default Word 2007 AddressLayout
Hi Graham,


This is certainly a strange one

FWIW, in the original example,
where the AddressLayout includes
{PR_LOCALITY}
(for City code) the content of field(s) on the last line in the AddressLayout don't appear in a document.

It doesn't seem to matter if it's the Email address or Cell phone # that's on the last row.

In your macro I noticed you used
{PR_POSTAL_ADDRESS}
When I substituted that for the line in the original of
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
or just remove the {PR_LOCALITY}
field code then the content of the last field shows up.

It seems to be that particular field rather than a change in the # of fields in that case, but just to try a couple of variations,
if I cut and pasted the {PR_COMPANY_NAME} field to be the last line, the last line it stopped showing up again.

=====================
"Graham Mayor" wrote in message ...
Further to my last:

Public Sub InsertAddressFromOutlookA()
Dim strTitle As String
Dim strJobTitle As String
Dim strForeName As String
Dim strSurname As String
Dim strCompany As String
Dim strAddress As String
Dim strCountry As String
Dim strPhone As String
Dim strFax As String
Dim strCell As String
Dim strEmail As String
Dim strFinal As String

'Set up the formatting codes in strCode
strTitle = "{PR_DISPLAY_NAME_PREFIX }"
strJobTitle = "PR_TITLE"
strForeName = "{PR_GIVEN_NAME }"
strSurname = "PR_SURNAME"
strCompany = "PR_COMPANY_NAME"
strAddress = "PR_POSTAL_ADDRESS"
strCountry = "PR_COUNTRY"
strPhone = "PR_OFFICE_TELEPHONE_NUMBER"
strFax = "PR_BUSINESS_FAX_NUMBER"
PstrCell = "PR_CELLULAR_TELEPHONE_NUMBER"
strEmail = "PR_EMAIL_ADDRESS"

'Let the user choose the name in Outlook
On Error GoTo UserCancelled:
strAddress = Application.GetAddress("", strAddress, _
False, 1, , , True, True)
If strAddress = "" Then
MsgBox "User cancelled or no address listed", , "Cancel"
Exit Sub
End If
strTitle = Application.GetAddress("", strTitle, _
False, 2, , , True, True)
strForeName = Application.GetAddress("", strForeName, _
False, 2, , , True, True)
strSurname = Application.GetAddress("", strSurname, _
False, 2, , , True, True)
strCompany = Application.GetAddress("", strCompany, _
False, 2, , , True, True)
strJobTitle = Application.GetAddress("", strJobTitle, _
False, 2, , , True, True)
strCountry = Application.GetAddress("", strCountry, _
False, 2, , , True, True)
strPhone = Application.GetAddress("", strPhone, _
False, 2, , , True, True)
strFax = Application.GetAddress("", strFax, _
False, 2, , , True, True)
strCell = Application.GetAddress("", strCell, _
False, 2, , , True, True)
strEmail = Application.GetAddress("", strEmail, _
False, 2, , , True, True)

strFinal = strTitle & Left(strForeName, 1) & " " & strSurname & vbCr

If strCompany "" Then
strFinal = strFinal & strCompany & vbCr
If strJobTitle "" Then
strFinal = strFinal = strFinal & strJobTitle & vbCr
End If
End If

If InStr(strCountry, "United States") Then
strAddress = Left(strAddress, Len(strAddress) - 25)
End If
With Selection ' type in the name string _
using the Inside Address paragraph style
.Style = ActiveDocument.Styles("Normal")
.TypeText Text:=strFinal
.TypeText Text:=strAddress
.TypeParagraph
If strPhone "" Then
.TypeText Text:="Phone: " & strPhone
.TypeParagraph
End If
If strFax "" Then
.TypeText Text:="Fax: " & strFax
.TypeParagraph
End If
If strCell "" Then
.TypeText Text:="Cell: " & strCell
.TypeParagraph
End If
If strEmail "" Then
.TypeText Text:="Email: " & strEmail
.TypeParagraph
End If
End With
UserCancelled:
End Sub

will insert the addresses more or less as you require them.

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I have tested this and I agree it doesn't work. It may be concerned
with the way that the AddressLayout autotext works in Word 2007,
however
Public Sub InsertFromOutlook()
Dim strName As String
'Set up the formatting codes in strCode
strName = "PR_EMAIL_ADDRESS"
'Let the user choose the name in Outlook
strName = Application.GetAddress("", strName, _
False, 1, , , True, True)
If strName = "" Then
MsgBox "User cancelled or no name listed", , "Cancel"
Exit Sub
End If
Selection.TypeText strName
End Sub

inserts the e-mail address, so it should be simple enough to modify
the macro at http://www.gmayor.com/Macrobutton.htm to insert the
address details in any layout you prefer.


Estimator wrote:
In Word 2007 I have modified "AddressLayout" as shown below. When I
insert an Outlook Contact address in a Word document everything
prints correctly with the exception that the email address is
missing. {PR_DISPLAY_NAME}
{PR_TITLE}
{PR_COMPANY_NAME}
{PR_STREET_ADDRESS}
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
Phone: {PR_OFFICE_TELEPHONE_NUMBER}
Fax: {PR_BUSINESS_FAX_NUMBER}
Cell: {PR_CELLULAR_TELEPHONE_NUMBER}
Email: {PR_EMAIL_ADDRESS}



Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
  
Posts: 19,312
Default Word 2007 AddressLayout
Curiouser and curiouser. However I prefer to use the postal address field,
and while it should not display the home country it sometimes does. The
original AddressLayout also had a number of unnnecessary and misplaced
'field' brackets. It works with

{PR_DISPLAY_NAME

}{PR_TITLE

}{PR_COMPANY_NAME

}PR_POSTAL_ADDRESS

{Phone: PR_OFFICE_TELEPHONE_NUMBER

}{Fax: PR_BUSINESS_FAX_NUMBER

}{Cell: PR_CELLULAR_TELEPHONE_NUMBER

}{Email: PR_EMAIL_ADDRESS}



and although the macro posted earlier works, it has a lot of accesses to
Outlook which could be reduced to speed it up.


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



Bob Buckland ?:-) wrote:
Hi Graham,


This is certainly a strange one

FWIW, in the original example,
where the AddressLayout includes
{PR_LOCALITY}
(for City code) the content of field(s) on the last line in the
AddressLayout don't appear in a document.

It doesn't seem to matter if it's the Email address or Cell phone #
that's on the last row.

In your macro I noticed you used
{PR_POSTAL_ADDRESS}
When I substituted that for the line in the original of
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
or just remove the {PR_LOCALITY}
field code then the content of the last field shows up.

It seems to be that particular field rather than a change in the # of
fields in that case, but just to try a couple of variations, if I cut
and pasted the {PR_COMPANY_NAME} field to be the last line, the
last line it stopped showing up again.

=====================
"Graham Mayor" wrote in message
...
Further to my last:

Public Sub InsertAddressFromOutlookA()
Dim strTitle As String
Dim strJobTitle As String
Dim strForeName As String
Dim strSurname As String
Dim strCompany As String
Dim strAddress As String
Dim strCountry As String
Dim strPhone As String
Dim strFax As String
Dim strCell As String
Dim strEmail As String
Dim strFinal As String

'Set up the formatting codes in strCode
strTitle = "{PR_DISPLAY_NAME_PREFIX }"
strJobTitle = "PR_TITLE"
strForeName = "{PR_GIVEN_NAME }"
strSurname = "PR_SURNAME"
strCompany = "PR_COMPANY_NAME"
strAddress = "PR_POSTAL_ADDRESS"
strCountry = "PR_COUNTRY"
strPhone = "PR_OFFICE_TELEPHONE_NUMBER"
strFax = "PR_BUSINESS_FAX_NUMBER"
PstrCell = "PR_CELLULAR_TELEPHONE_NUMBER"
strEmail = "PR_EMAIL_ADDRESS"

'Let the user choose the name in Outlook
On Error GoTo UserCancelled:
strAddress = Application.GetAddress("", strAddress, _
False, 1, , , True, True)
If strAddress = "" Then
MsgBox "User cancelled or no address listed", , "Cancel"
Exit Sub
End If
strTitle = Application.GetAddress("", strTitle, _
False, 2, , , True, True)
strForeName = Application.GetAddress("", strForeName, _
False, 2, , , True, True)
strSurname = Application.GetAddress("", strSurname, _
False, 2, , , True, True)
strCompany = Application.GetAddress("", strCompany, _
False, 2, , , True, True)
strJobTitle = Application.GetAddress("", strJobTitle, _
False, 2, , , True, True)
strCountry = Application.GetAddress("", strCountry, _
False, 2, , , True, True)
strPhone = Application.GetAddress("", strPhone, _
False, 2, , , True, True)
strFax = Application.GetAddress("", strFax, _
False, 2, , , True, True)
strCell = Application.GetAddress("", strCell, _
False, 2, , , True, True)
strEmail = Application.GetAddress("", strEmail, _
False, 2, , , True, True)

strFinal = strTitle & Left(strForeName, 1) & " " & strSurname & vbCr

If strCompany "" Then
strFinal = strFinal & strCompany & vbCr
If strJobTitle "" Then
strFinal = strFinal = strFinal & strJobTitle & vbCr
End If
End If

If InStr(strCountry, "United States") Then
strAddress = Left(strAddress, Len(strAddress) - 25)
End If
With Selection ' type in the name string _
using the Inside Address paragraph style
.Style = ActiveDocument.Styles("Normal")
.TypeText Text:=strFinal
.TypeText Text:=strAddress
.TypeParagraph
If strPhone "" Then
.TypeText Text:="Phone: " & strPhone
.TypeParagraph
End If
If strFax "" Then
.TypeText Text:="Fax: " & strFax
.TypeParagraph
End If
If strCell "" Then
.TypeText Text:="Cell: " & strCell
.TypeParagraph
End If
If strEmail "" Then
.TypeText Text:="Email: " & strEmail
.TypeParagraph
End If
End With
UserCancelled:
End Sub

will insert the addresses more or less as you require them.


Graham Mayor wrote:
I have tested this and I agree it doesn't work. It may be concerned
with the way that the AddressLayout autotext works in Word 2007,
however
Public Sub InsertFromOutlook()
Dim strName As String
'Set up the formatting codes in strCode
strName = "PR_EMAIL_ADDRESS"
'Let the user choose the name in Outlook
strName = Application.GetAddress("", strName, _
False, 1, , , True, True)
If strName = "" Then
MsgBox "User cancelled or no name listed", , "Cancel"
Exit Sub
End If
Selection.TypeText strName
End Sub

inserts the e-mail address, so it should be simple enough to modify
the macro at http://www.gmayor.com/Macrobutton.htm to insert the
address details in any layout you prefer.


Estimator wrote:
In Word 2007 I have modified "AddressLayout" as shown below. When I
insert an Outlook Contact address in a Word document everything
prints correctly with the exception that the email address is
missing. {PR_DISPLAY_NAME}
{PR_TITLE}
{PR_COMPANY_NAME}
{PR_STREET_ADDRESS}
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
Phone: {PR_OFFICE_TELEPHONE_NUMBER}
Fax: {PR_BUSINESS_FAX_NUMBER}
Cell: {PR_CELLULAR_TELEPHONE_NUMBER}
Email: {PR_EMAIL_ADDRESS}


Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
  
Posts: 19,312
Default Word 2007 AddressLayout
And would work even better single spaced

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
Curiouser and curiouser. However I prefer to use the postal address
field, and while it should not display the home country it sometimes
does. The original AddressLayout also had a number of unnnecessary
and misplaced 'field' brackets. It works with

{PR_DISPLAY_NAME

}{PR_TITLE

}{PR_COMPANY_NAME

}PR_POSTAL_ADDRESS

{Phone: PR_OFFICE_TELEPHONE_NUMBER

}{Fax: PR_BUSINESS_FAX_NUMBER

}{Cell: PR_CELLULAR_TELEPHONE_NUMBER

}{Email: PR_EMAIL_ADDRESS}



and although the macro posted earlier works, it has a lot of accesses
to Outlook which could be reduced to speed it up.



Bob Buckland ?:-) wrote:
Hi Graham,


This is certainly a strange one

FWIW, in the original example,
where the AddressLayout includes
{PR_LOCALITY}
(for City code) the content of field(s) on the last line in the
AddressLayout don't appear in a document.

It doesn't seem to matter if it's the Email address or Cell phone #
that's on the last row.

In your macro I noticed you used
{PR_POSTAL_ADDRESS}
When I substituted that for the line in the original of
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
or just remove the {PR_LOCALITY}
field code then the content of the last field shows up.

It seems to be that particular field rather than a change in the # of
fields in that case, but just to try a couple of variations, if I cut
and pasted the {PR_COMPANY_NAME} field to be the last line, the
last line it stopped showing up again.

=====================
"Graham Mayor" wrote in message
...
Further to my last:

Public Sub InsertAddressFromOutlookA()
Dim strTitle As String
Dim strJobTitle As String
Dim strForeName As String
Dim strSurname As String
Dim strCompany As String
Dim strAddress As String
Dim strCountry As String
Dim strPhone As String
Dim strFax As String
Dim strCell As String
Dim strEmail As String
Dim strFinal As String

'Set up the formatting codes in strCode
strTitle = "{PR_DISPLAY_NAME_PREFIX }"
strJobTitle = "PR_TITLE"
strForeName = "{PR_GIVEN_NAME }"
strSurname = "PR_SURNAME"
strCompany = "PR_COMPANY_NAME"
strAddress = "PR_POSTAL_ADDRESS"
strCountry = "PR_COUNTRY"
strPhone = "PR_OFFICE_TELEPHONE_NUMBER"
strFax = "PR_BUSINESS_FAX_NUMBER"
PstrCell = "PR_CELLULAR_TELEPHONE_NUMBER"
strEmail = "PR_EMAIL_ADDRESS"

'Let the user choose the name in Outlook
On Error GoTo UserCancelled:
strAddress = Application.GetAddress("", strAddress, _
False, 1, , , True, True)
If strAddress = "" Then
MsgBox "User cancelled or no address listed", , "Cancel"
Exit Sub
End If
strTitle = Application.GetAddress("", strTitle, _
False, 2, , , True, True)
strForeName = Application.GetAddress("", strForeName, _
False, 2, , , True, True)
strSurname = Application.GetAddress("", strSurname, _
False, 2, , , True, True)
strCompany = Application.GetAddress("", strCompany, _
False, 2, , , True, True)
strJobTitle = Application.GetAddress("", strJobTitle, _
False, 2, , , True, True)
strCountry = Application.GetAddress("", strCountry, _
False, 2, , , True, True)
strPhone = Application.GetAddress("", strPhone, _
False, 2, , , True, True)
strFax = Application.GetAddress("", strFax, _
False, 2, , , True, True)
strCell = Application.GetAddress("", strCell, _
False, 2, , , True, True)
strEmail = Application.GetAddress("", strEmail, _
False, 2, , , True, True)

strFinal = strTitle & Left(strForeName, 1) & " " & strSurname & vbCr

If strCompany "" Then
strFinal = strFinal & strCompany & vbCr
If strJobTitle "" Then
strFinal = strFinal = strFinal & strJobTitle & vbCr
End If
End If

If InStr(strCountry, "United States") Then
strAddress = Left(strAddress, Len(strAddress) - 25)
End If
With Selection ' type in the name string _
using the Inside Address paragraph style
.Style = ActiveDocument.Styles("Normal")
.TypeText Text:=strFinal
.TypeText Text:=strAddress
.TypeParagraph
If strPhone "" Then
.TypeText Text:="Phone: " & strPhone
.TypeParagraph
End If
If strFax "" Then
.TypeText Text:="Fax: " & strFax
.TypeParagraph
End If
If strCell "" Then
.TypeText Text:="Cell: " & strCell
.TypeParagraph
End If
If strEmail "" Then
.TypeText Text:="Email: " & strEmail
.TypeParagraph
End If
End With
UserCancelled:
End Sub

will insert the addresses more or less as you require them.


Graham Mayor wrote:
I have tested this and I agree it doesn't work. It may be concerned
with the way that the AddressLayout autotext works in Word 2007,
however
Public Sub InsertFromOutlook()
Dim strName As String
'Set up the formatting codes in strCode
strName = "PR_EMAIL_ADDRESS"
'Let the user choose the name in Outlook
strName = Application.GetAddress("", strName, _
False, 1, , , True, True)
If strName = "" Then
MsgBox "User cancelled or no name listed", , "Cancel"
Exit Sub
End If
Selection.TypeText strName
End Sub

inserts the e-mail address, so it should be simple enough to modify
the macro at http://www.gmayor.com/Macrobutton.htm to insert the
address details in any layout you prefer.


Estimator wrote:
In Word 2007 I have modified "AddressLayout" as shown below. When I
insert an Outlook Contact address in a Word document everything
prints correctly with the exception that the email address is
missing. {PR_DISPLAY_NAME}
{PR_TITLE}
{PR_COMPANY_NAME}
{PR_STREET_ADDRESS}
{PR_LOCALITY}, {PR_STATE_OR_PROVINCE} {PR_POSTAL_CODE}
Phone: {PR_OFFICE_TELEPHONE_NUMBER}
Fax: {PR_BUSINESS_FAX_NUMBER}
Cell: {PR_CELLULAR_TELEPHONE_NUMBER}
Email: {PR_EMAIL_ADDRESS}


Reply With QuoteReply With Quote
Reply
Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
AddressLayout Bug in Word 2003 Joe McGuire Microsoft Word Help 3 September 22nd 06 06:09 AM
AddressLayout S. Berkhoel Microsoft Word Help 1 April 5th 06 06:43 AM
AddressLayout Joe McGuire Microsoft Word Help 2 July 21st 05 04:33 PM
AddressLayout Ian Wolfe New Users 6 May 10th 05 06:43 AM
AddressLayout Problem in Word 2002 AlSchultz Microsoft Word Help 0 December 8th 04 03:37 PM


All times are GMT +1. The time now is 08:47 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"

 

Contact Us Microsoft Word Forum WordBanter forum home Privacy Statement