Outlook 2007 Calendar

[LMS]

Update? as what we fix re fonting all from a field I think will apply to all other fields I use in this area

 

[Diane Poremsky]

Do you get any error messages? It looks good. Try using F8 to step through it and see if it skips lines.

 

[LMS]

No error. I selected two contacts and the fullname of both contacts are fonted but only the mobile number of one of them is fonted. I do F8 in the macro and if so, what do i fix?

 

[Diane Poremsky]

I'm surprised it worked for multiple names - it should only work on the last.

 

[LMS]

This calender event is for multiple contacts selected. So how do we have all from a field be fonted and not just the last one which is what happens with the mobile number. And when I did in another field, the same result from only the last contact.

So can this be updated maybe as the fields are all strings.

 

[Diane Poremsky]

you'd have to format the text before you create the string and move to the next contact. In email, you could use HTML tags but that doesn't work for appointments. You'll need to find the test after its added to the body - maybe using regex and searching for : - just don't use colon's in the rest of the body.

http://slipstick.com/developer/regex-parse-message-text/

 

[LMS]

Thanks much. However I still don't understand a lot of technical areas. Can you maybe show me what to put in the macro and where and I can try it?

 

[Diane Poremsky]

try the section of code below, replacing the code from itemappt.display to the end. The pattern finds everything on a line following :
With Reg1
.Pattern = "([:]\s*(.*)\s*)\n"
.Global = True
End With

while this pattern does only the names in my sample code. (I had to remove a bunch of stuff from your code to test since I don't have the custom forms.)
With Reg1
.Pattern = "([:]\s*([\w-\s]*)\s*)\n"
.Global = True
End With

------------------------
itmAppt.Display

Dim Reg1 As RegExp
Dim M1 As MatchCollection
Dim M As Match
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

Dim strText As String
Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

Set Reg1 = New RegExp

' \s* = invisible spaces
' \d* = match digits
' \w* = match alphanumeric

With Reg1
.Pattern = "([:]\s*(.*)\s*)\n"
.Global = True
End With
If Reg1.test(itmAppt.Body) Then

Set M1 = Reg1.Execute(itmAppt.Body)
For Each M In M1
' M.SubMatches(1) is the (\w*) in the pattern
' use M.SubMatches(2) for the second one if you have two (\w*)
Debug.Print M.SubMatches(1)
strText = M.SubMatches(1)
olSelection.Find.ClearFormatting
olSelection.Find.Replacement.ClearFormatting
With olSelection.Find.Replacement.Font
.Size = 14
.Bold = True
.Underline = wdUnderlineSingle
.Color = wdColorRed
End With
With olSelection.Find
.Text = strText
.Replacement.Text = strText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
olSelection.Find.Execute Replace:=wdReplaceAll

Next
End If
Set olInspector = Nothing
Set olDocument = Nothing
Set olSelection = Nothing
Set objMsg = Nothing
Set ObjItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

 

[LMS]

So do i change the pattern to a different words as the specific strMobileName and later it refers to text and what to change there? Then i wii try it and tell what it does

 

[LMS]

Here is what I think the problem is that needs to be adjusted...

I added to the code another field which is the CompanyName....so i created strCompanyName = ObjItem.GetInspector.ModifiedFormPages("General").Controls("Company") and copied the code re the font and put in strCompanyName and it fonts all Company Names from the selected contacts....so I think the problem is that the MobileNumber field since it is numbers and not text...that is the problem for fonting all......so what do you think we should do for the font of phone numbers?

 

[LMS]

What I said above in incorrect as in my test contacts i use for the code, the company name and full name are the same in each.contact...and when they are different, it only fonts one....

So what you gave me to put after Display did not work ..and there was an error

 

[LMS]

The error is as to :

Dim Reg1 As RegExpDim M1 As MatchCollection

Dim M As Match

New RegExp

The errors are: User-defined type not defined

 

[Diane Poremsky]

Do you have a reference to the Microsoft VBScript Regular Expressions 5.5 library in Tools, References? Not having a reference is the usual cause of the user-defined error.

 

[Diane Poremsky]

This pattern will apply to numbers and letters and other characters, between the : and end of line (\n tells the code 'end of line').




With Reg1
.Pattern = "([:]\s*(.*)\s*)\n"
.Global = True
End With




That will format a line something like this;


Mobile Number: +1 (202) 555-1212 - Mary Smith


Mobile Number: +1 (404) 555-1212 - Bob Johnson






if you only want the number and not the name following, you need a different pattern. You'll need to use a unique character at the end of the number, one that won't be found in the number (so dash is out), something like this...




if you use Mobile number: +1 (202) 555-1212 ; Bob Johnson format




This should apply only to the number, not the name



.Pattern = "(Mobile number[:]\s*(.*)\s*) ;"




only the content between the "Mobile number:" and ";" will be changed.

 

[LMS]

I did the Microsoft VBScript Regular Expressions 5.5 library and all words and numbers from all fields are the same font......If I want FullName to be a different color, what do I add, and then this is done, because all fields are that are at the end of each line, should be the same, but the FullName field before each ending field needs to be a different color.....Blue.....and then his is perfect and done!!

 

[LMS]

Below is the four lines (and there will be others later) where each strDynamicDL(2), strDynamicDL(3), strDynamicDL(10), strDynamicDL(15) then shows up in the Body....and the line of each strDynamicDL in the order of the title number, which is fonted differently, and then the strFullName, which is the full name of each contact, and then, the words or phone number from the specific fields....so I want the strFullName to be the same side and type of font of the other fields, but strFullName needs to be Blue and the others fields are Red.

strDynamicDL2 = strDynamicDL2 & ("Full Name/NickName: ") & strFullName & (": ") & ObjItem.GetInspector.ModifiedFormPages("General").Controls("TextBox10").Text & vbCrLf


If ObjItem.UserProperties("Phone 4 Selected") <> "" Then strDynamicDL3 = strDynamicDL3 & ("Mobile Number: ") & strFullName & (": ") & strMobileNumber & vbCrLf


If ObjItem.GetInspector.ModifiedFormPages("General").Controls("Company").Text <> "" Then strDynamicDL10 = strDynamicDL10 & ("Company Name: ") & strFullName & (": ") & strCompanyName & vbCrLf

If ObjItem.GetInspector.ModifiedFormPages("General").Controls("ComboBox9").Text <> "" Then strDynamicDL15 = strDynamicDL15 & ("Last Status: ") & strFullName & (": ") & strLastStatus & vbCrLf

 

[LMS]

I set the initial font to Blue so the FullName field words are blue...and as the code line shows above, after the strFullName, there is a ": ", and then the words or phone numbers...so I found out under Word document and moved it in that it identifies the ": " twice from the beginning and then moves over to the words of the field and fonts them, but I would have to keep doing it for all fields not just one of them....so her is the code that does it, and is there a way that it applies to all lines?

selection.Find.ClearFormatting
With selection.Find
.Text = ":"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
selection.Find.Execute
selection.Find.Execute
selection.MoveRight Unit:=wdCharacter, Count:=3
selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
selection.Font.Name = "Times New Roman"
selection.Font.Size = 14
selection.Font.Color = wdColorRed

 

[LMS]

Update tonight maybe????

 

[Diane Poremsky]

What all is in the appt body - how is it laid out - and what values do you want formatted? Instr, left or right might work.

 

[Diane Poremsky]

I wonder if it would be easier/ better to format your data as a table?

This is the code word creates for tables - the cell values ("Cell1" etc) can be replaced with variables from outlook.
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
.Style = "Table Grid"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With
Selection.TypeText Text:="cell1"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="cell2"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="row2cell1"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="row2cell2"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="more"
Selection.MoveRight Unit:=wdCell