Outlook 2007 Code for Note Fields of Appointment

[LMS]

I have a contact form with the script that creates a calendar event for the contact I open and uses the fields of the contact re dates and subjects and locations and adds them to the appointment ....

I learned to add to the script code, a line that will put in the note field of the appointment, the phone numbers of the contact ....and I have title before each phone number....so all i need to do, is have the second phone number and related title be below the first phone number and title, so its two lines, not just one line....so here is the code line that takes care of the note field, but need to put something in so it makes it two lines in the note field of the appointment.

itmAppt.Body = "Mobile Number" & " - " & item.getinspector.modifiedformpages("General").controls("Phone4").text & " " & "Business Number" & " - " & item.getinspector.modifiedformpages("General").controls("Phone1").text

 

[Diane Poremsky]

Try vbcrlf or vbcr -

itmAppt.Body = "Mobile Number" & " - " & item.getinspector.modifiedformpages("General").con trols("Phone4").text & vbcrlf & "Business Number" & " - " & item.getinspector.modifiedformpages("General").con trols("Phone1").text

As an FYI, you can use the chr code too -

Chr(10) or vbLf = Line Feed Return

(Chr(13) or vbCr Carriage Return

vbCr Lf = Carriage return line feed.

 

[LMS]

Where do I put the chr code please?

 

[LMS]

What you first showed did it right away...thanks so much...and I assume if I wanted to line spaces, just repeat that...correct?

 

[LMS]

And forgot to ask...if any phone area in the contact does not have phone number is there a way adjust the code so I does not to display the title name as there is not phone number??

 

[Diane Poremsky]

you put it at the end of the line where you want to break - use & vbcrlf & - just like you would if you were using a space.

If you use chr, it's done the same way - put & chr(13) & where you want the break.

 

[LMS]

and if any phone area in the contact does not have phone number is there a way adjust the code so it does not to display the title name as there is not phone number??

• 
  

 

[Diane Poremsky]

Yes, repeat the line break for additional line

& vbcrlf & vbcrlf &

And forgot to ask...if any phone area in the contact does not have phone number is there a way adjust the code so I does not to display the title name as there is not phone number??

You can use an if statement - it can sometimes be goofy if the field had a number then you removed it.

if item.getinspector.modifiedformpages("General").con trols("Phone4").text <> then
"Mobile Number" & " - " & item.getinspector.modifiedformpages("General").con trols("Phone4").text & vbcrlf

end if

if item.getinspector.modifiedformpages("General").con trols("Phone1").text <> then
"Business Number" & " - " & item.getinspector.modifiedformpages("General").con trols("Phone1").text & vbcrlf

end if

 

[LMS]

So I replace the code line I have with these two lines??

 

[LMS]

I replaced my line with you lines, and the error is "syntax error" as to the if statement

 

[Diane Poremsky]

oh, i wonder if its the greater and less than signs - i used html code because the forum software hides the characters but i see now that it didn't convert the code.

 

[LMS]

So any other way ??

 

[Diane Poremsky]

You need to check the field to see if its empty and I think an if statement would be the easiest way to do this.

 

[LMS]

So what exactly do put in and do i take out the code i showed you? So please show me the details of what it is and I will test it.

 

[Diane Poremsky]

this *should* work -

if item.getinspector.modifiedformpages("General").controls("Phone4").text <> then
"Mobile Number" & " - " & item.getinspector.modifiedformpages("General").controls("Phone4").text & vbcrlf
end if
if item.getinspector.modifiedformpages("General").controls("Phone1").text <> then
"Business Number" & " - " & item.getinspector.modifiedformpages("General").controls("Phone1").text & vbcrlf
end if

 

[LMS]

So do I keep in the code line I showed you or delete it?

 

[Diane Poremsky]

I'm not sure what you mean - i only see the one with the mobile and business number fields.

 

[LMS]

The one you see that I showed do i replace it with your lines or add your lines before or after it?

 

[Diane Poremsky]

You'll replace the lines.

 

[LMS]

I did it, but it is still the same error.....and below is the full code that maybe will to understand what to change:

Sub btnAddCalendarEvent_Click

dim ContactName

dim olns

dim MyFolder

dim NumItems

dim myItems

Dim StartDateTime

Dim EndDateTime

Dim ShowAs

Dim itmAppt

ContactName = Item.GetInspector.ModifiedFormPages("General").Controls("Fullname").value

Set olns = Item.Application.GetNameSpace("MAPI")

Set myfolder = Session.GetDefaultFolder(9).Folders(2)

Set itmAppt = myfolder.Items.Add("IPM.Appointment.Office Calendar Event")

itmAppt.Subject = ContactName & " - " & item.getinspector.modifiedformpages("General").controls("combobox11").text

itmAppt.Location = item.getinspector.modifiedformpages("General").controls("combobox12").text
itmAppt.Body = "Mobile Number" & " - " & item.getinspector.modifiedformpages("General").controls("Phone4").text & vbcrlf & "Business Number" & " - " & item.getinspector.modifiedformpages("General").controls("Phone1").text





StartDateTime = item.getinspector.modifiedformpages("General").controls("OlkDateControl1").value & " " & item.getinspector.modifiedformpages("General").controls("OlkTimeControl1").text



itmAppt.Start = StartDateTime

EndDateTime = item.getinspector.modifiedformpages("General").controls("OlkDateControl2").value & " " & item.getinspector.modifiedformpages("General").controls("OlkTimeControl2").text



itmAppt.End = EndDateTime

ShowAs = item.getinspector.modifiedformpages("General").controls("combobox13").value

Select case Showas

case "Free"

ShowAs = 0

Case "Tentative"

ShowAs = 1

Case "Busy"

ShowAs = 2

Case "Out of Office"

ShowAs = 3

End Select

itmAppt.BusyStatus = ShowAs



itmAppt.links.add item

itmappt.display

End Sub