Script to create email footer from AD, BUT skip lines depending on value

[DVHITMAN]

Hi,

I have VBA script, that runs on login, that create and sets a default the users email footer by pulling there information from the AD

	' ############ inserts contact details.
	objSelection.Font.Name = "Arial" 
	objSelection.Font.Size = 11 
	objselection.Font.Bold = true 
	objSelection.Font.Color = RGB (130,000,036)
	objselection.typetext vbtab &vbtab &"    D  "
	objselection.Font.Bold = false
	objSelection.Font.Color = RGB (008,096,106)
	objselection.typetext strPhone
	objselection.TypeText Chr(11)
	objselection.Font.Bold = true 
	objSelection.Font.Color = RGB (130,000,036)
	objselection.typetext vbtab &vbtab &"    T  "
	objselection.Font.Bold = false
	objSelection.Font.Color = RGB (008,096,106)
	objselection.typetext strDDI
	objselection.TypeText Chr(11)
	objselection.Font.Bold = true 
	objSelection.Font.Color = RGB (130,000,036)
	objselection.typetext vbtab &vbtab &"    W  "
	objselection.Font.Bold = false
	objSelection.Font.Color = RGB (008,096,106)
	objselection.typetext strWeb
	objselection.TypeText Chr(11)
	objselection.Font.Bold = true 
	objSelection.Font.Color = RGB (130,000,036)
	objselection.typetext vbtab &vbtab &"    A  "
	objselection.Font.Bold = false
	objSelection.Font.Color = RGB (008,096,106)
	objselection.typetext strAddress1 & ", " &strAddress2 & ", " &strAddress3 & ", " &strPostcode

D = Direct Line
T = Generic business telephone number
W = web address
a = postal address

...HOWEVER, no everyone has a D (Direct Address).

Can I add a IF THEN ELSE in that checks the valus of strPhone, and if N/A or empty, then skip adding that line to the footer ?

thanks in advance

 

[DVHITMAN]

WYI:

the code

If Len(strPhone) > 0 Then
	objSelection.Font.Name = "Arial"
	objSelection.Font.Size = 11
	objselection.Font.Bold = true
	objSelection.Font.Color = RGB (130,000,036)
	objselection.typetext vbtab &vbtab &" D "
	objselection.Font.Bold = false
	objSelection.Font.Color = RGB (008,096,106)
	objselection.typetext strPhone
	objselection.TypeText Chr(11)
End If

works like a dream