Outlook 2007 Calendar

Status
Not open for further replies.
L

LMS

Senior Member
Outlook version
Email Account
Exchange Server
The following code creates a calendar event for the contacts I select and adds each to the Subject field and shows the Full Names in the Note fields, but the If code only shows a mobile phone number in the Note field from one contact and not all the contacts I select which names are in the note fields....so is there away to adjust this so it shows the FullName of one Contact, and then the related fields to the contact and shows the same areas in the Note fields from the next contact that was selected....as this only recognizes a mobile phone field from one contact for purposes of showing it in the note field of the related calendar event.Sub Create_Calendar_Event_Selected_Contacts2()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim objItem As Object
Dim objItems As Object
Dim remoteObj
Dim strDynamicDL As String
Dim ContactName
Dim olns
Dim MyFolder
Dim NumItems
Dim myItem
Dim StartDateTime
Dim EndDateTime
Dim ShowAs
Dim itmAppt
Dim txtFullName
Dim txtMobile

Set oContact = objItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection

If objItem.Class = olContact Then

strDynamicDL = strDynamicDL & objItem.FullName & (";")
Else
strDynamicDL = strDynamicDL & obj.DLName & (";")
End If
Next
ContactName = strDynamicDL & (";")

Set MyFolder = Session.GetDefaultFolder(9).Folders(2)
Set itmAppt = MyFolder.items.Add("IPM.Appointment.Office Calendar Event")
itmAppt.Subject = ContactName

For Each objItem In objSelection
If objItem.Class = olContact Then
itmAppt.Location = objItem.GetInspector.ModifiedFormPages("General").Controls("combobox12").Text
If objItem.GetInspector.ModifiedFormPages("General").Controls("FullName").Text <> "" Then txtFullName = "Full Name" & ": " & vbCrLf & objItem.GetInspector.ModifiedFormPages("General").Controls("FullName").Text & vbCrLf
If objItem.GetInspector.ModifiedFormPages("General").Controls("Phone4").Text <> "" Then txtMobile = "Mobile Number" & ": " & vbCrLf & objItem.GetInspector.ModifiedFormPages("General").Controls("Phone4").Text & vbCrLf
itmAppt.Body = "Full Name" & vbCrLf & strDynamicDL & vbCrLf & txtMobile
StartDateTime = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl1").value & " " & objItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl1").Text

itmAppt.Start = StartDateTime
EndDateTime = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl2").value & " " & objItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl2").Text

itmAppt.End = EndDateTime
ShowAs = objItem.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 objItem

End If
Next
itmAppt.Display
Set objMsg = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

End Sub
 
To The Smart Woman! Here is the code that I changed adding effectively additional strDynamicDL for the areas to show up in the Calendar Event Body......but the way it shows up is that under each title there is the fields of that type.....so is there a change that can show each Full Name and under each Full Name the related Mobile Number and Email? Thanks very much!! Sub Create_Calendar_Event_Selected_Contacts2()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim objItem As Object
Dim objItems As Object
Dim remoteObj
Dim strDynamicDL As String
Dim strDynamicDL2 As String
Dim strDynamicDL3 As String
Dim strDynamicDL4 As String
Dim ContactName
Dim olns
Dim MyFolder
Dim NumItems
Dim myItem
Dim StartDateTime
Dim EndDateTime
Dim ShowAs
Dim itmAppt
Dim txtFullName
Dim txtMobile

Set oContact = objItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection

If objItem.Class = olContact Then

strDynamicDL = strDynamicDL & objItem.FullName & (";")

strDynamicDL2 = strDynamicDL2 & objItem.FullName & vbCrLf

If objItem.UserProperties("Phone 4 Selected") <> "" Then strDynamicDL3 = strDynamicDL3 & vbCrLf & objItem.UserProperties("Phone 4 Selected")

If objItem.UserProperties("E-mail Selected") <> "" Then strDynamicDL4 = strDynamicDL4 & vbCrLf & objItem.UserProperties("E-mail Selected")


End If
Next
ContactName = strDynamicDL & (";")

Set MyFolder = Session.GetDefaultFolder(9).Folders(2)
Set itmAppt = MyFolder.items.Add("IPM.Appointment.Office Calendar Event")
itmAppt.Subject = ContactName

For Each objItem In objSelection
If objItem.Class = olContact Then
itmAppt.Location = objItem.GetInspector.ModifiedFormPages("General").Controls("combobox12").Text

With itmAppt.Body
itmAppt.Body = ("Full Name(s)") & vbCrLf & strDynamicDL2 & vbCrLf & ("Mobile Number(s)") & strDynamicDL3 & vbCrLf & vbCrLf & ("E-Mail(s)") & strDynamicDL4


End With
StartDateTime = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl1").value & " " & objItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl1").Text

itmAppt.Start = StartDateTime
EndDateTime = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl2").value & " " & objItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl2").Text

itmAppt.End = EndDateTime
ShowAs = objItem.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 objItem

End If
Next
itmAppt.Display
Set objMsg = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

End Sub
 
To All If This Is Helpful: I changed the If line so that as to the Mobile Number and Email that shows up, before each one, it shows the Full Name of the Contact relative to it, so I know who the phone number and the email comes with :

If objItem.UserProperties("Phone 4 Selected") <> "" Then strDynamicDL3 = strDynamicDL3 & vbCrLf & objItem.FullName & (": ") & objItem.UserProperties("Phone 4 Selected")

If objItem.UserProperties("E-mail Selected") <> "" Then strDynamicDL4 = strDynamicDL4 & vbCrLf & objItem.FullName & (": ") & objItem.UserProperties("E-mail Selected")
 
To the Smart Woman: As to the this code that creates a calendar event for the selected contacts and puts in the body of the event all fields from each contact, the format of it is in the line of the field, the first words is the Title to the Field as below it is "Mobile Number:" and then two spaces to the right of it is the Full Name of the Contact and two spaces to the right is the Phone Number from the field......

I found the easy to identify the Title Words thru a macro and font the Title Words to a black, bold, underlined, Times New Romans 14 sizes font, as this is from selected the title words in a word document, fonting them as I said, and covert the macro from the word document into Outlook, and run it at the end of the macro creating the Calendar Event.

But since each Full Name is different depending on who I select, how can I font the objItem.FullName (as it applies to all fields from the contacts) to red, bold, underlined, Times New Romans and 14 size font?

So below the example of the if line re the Mobile Number etc...and below it is the code that changes the font of the title Mobile Number
If objItem.UserProperties("Phone 4 Selected") <> "" Then strDynamicDL3 = strDynamicDL3 & ("Mobile Number: ") & objItem.FullName & (": ") & objItem.UserProperties("Phone 4 Selected") & vbCrLf

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 14
.Bold = True
.Underline = wdUnderlineSingle
.Color = wdColorBlack
End With
With Selection.Find
.Text = "Mobile Number:"
.Replacement.Text = "Mobile Number:"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
 
Thanks very much....I put it in the full code etc....and it does not do it.....sorry
 
did you insert the full name as a string, like this?






strFullname = objItem.FullName




If objItem.UserProperties("Phone 4 Selected") <> "" Then strDynamicDL3 = strDynamicDL3 & ("Mobile Number: ") & strFullname & (": ") & objItem.UserProperties("Phone 4 Selected") & vbCrLf
 
Thanks very much. I will do what you just showed to me. And what do I put in this macro to font the strFullName as Times New Roman 14, blue, bold and underlined?
 
You'd do it the same as you did for the mobile number words

With Selection.Find.Replacement.Font
.Size = 14
.Name = "Times New Roman"
.Bold = True
.Underline = wdUnderlineSingle
.Color = wdColorBlue
End With
 
I changed the code re the strFullName as you gave me and it puts the words in the body, but I am not clear as to exactly what I add to the macro and where in the macro so the font applies to the strFullName.......so below is the full code, and I would appreciate you putting in exactly what to put in to do the font and where. Thanks very much.

Sub CreateCalendarEventSelectedContacts()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim objItem As Object
Dim remoteObj
Dim strDynamicDL As String
Dim strDynamicDL2 As String
Dim strDynamicDL3 As String
Dim strFullName As String
Dim ContactName
Dim olns
Dim MyFolder
Dim NumItems
Dim myItem
Dim StartDateTime
Dim EndDateTime
Dim ShowAs
Dim itmAppt

Set oContact = objItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection

If objItem.Class = olContact Then

strFullName = objItem.FullName

strDynamicDL = strDynamicDL & objItem.FullName & (";")

If objItem.UserProperties("Phone 4 Selected") <> "" Then strDynamicDL3 = strDynamicDL3 & ("Mobile Number: ") & strFullName & (": ") & objItem.UserProperties("Phone 4 Selected") & vbCrLf
End If
Next
ContactName = strDynamicDL

Set MyFolder = Session.GetDefaultFolder(9).Folders(2)
Set itmAppt = MyFolder.items.Add("IPM.Appointment.Office Calendar Event")

itmAppt.Subject = ContactName & (" -- ") & strDynamicDL6

For Each objItem In objSelection
If objItem.Class = olContact Then
itmAppt.Location = objItem.GetInspector.ModifiedFormPages("General").Controls("combobox12").Text

With itmAppt.Body

itmAppt.Body = strDynamicDL2 & vbCrLf & strDynamicDL3
End With
StartDateTime = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl1").value & " " & objItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl1").Text

itmAppt.Start = StartDateTime
EndDateTime = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl2").value & " " & objItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl2").Text

itmAppt.End = EndDateTime
ShowAs = objItem.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 objItem

End If
Next
itmAppt.Display
Set objMsg = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

End Sub
 
Here is the code with the code area strFullName as you told me to do, and it shows up the words from the contact field of each contact, and just need to know how to font what comes from strFullName

Sub CreateCalendarEventSelectedContacts_test2()
Dim ObjItem As Object
Dim strDynamicDL As String
Dim strDynamicDL2 As String
Dim strDynamicDL3 As String
Dim strDynamicDL6 As String
Dim strFullName As String
Dim ContactName
Dim StartDateTime
Dim EndDateTime
Dim ShowAs
Dim itmAppt
Set oContact = ObjItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.selection

For Each ObjItem In objSelection
If ObjItem.Class = olContact Then

strFullName = ObjItem.FullName

strDynamicDL = strDynamicDL & ObjItem.FullName & (";")

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 & (": ") & ObjItem.UserProperties("Phone 4 Selected") & vbCrLf

strDynamicDL6 = ObjItem.GetInspector.ModifiedFormPages("General").Controls("combobox11").Text& & vbCrLf
End If
Next
ContactName = strDynamicDL
Set MyFolder = Session.GetDefaultFolder(9).Folders(2)
Set itmAppt = MyFolder.items.Add("IPM.Appointment.Office Calendar Event")

itmAppt.Subject = ContactName & (" -- ") & strDynamicDL6

For Each ObjItem In objSelection
If ObjItem.Class = olContact Then
itmAppt.Location = ObjItem.GetInspector.ModifiedFormPages("General").Controls("combobox12").Text

With itmAppt.Body

itmAppt.Body = strDynamicDL2 & vbCrLf & strDynamicDL3
End With
StartDateTime = ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl1").value & " " & ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl1").Text

itmAppt.Start = StartDateTime
EndDateTime = ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl2").value & " " & ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl2").Text

itmAppt.End = EndDateTime
ShowAs = ObjItem.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 ObjItem

End If
Next
itmAppt.Display
Set objMsg = Nothing
Set ObjItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub
 
This is really messy code, but it works- you need to dim and set the word object, which you weren't doing. This goes after the itm.display, before the Set = nothing lines.

Dim olInspector As Outlook.Inspector

Dim olDocument As Word.Document

Dim olSelection As Word.Selection

Set olInspector = Application.ActiveInspector()

Set olDocument = olInspector.WordEditor

Set olSelection = olDocument.Application.Selection
olSelection.Find.ClearFormatting
olSelection.Find.Replacement.ClearFormatting
With olSelection.Find.Replacement.Font
.Size = 14
.Bold = True
.Underline = wdUnderlineSingle
.Color = wdColorBlack
End With
With olSelection.Find
.Text = strFullName
.Replacement.Text = strFullName
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
olSelection.Find.Execute Replace:=wdReplaceAll

Set olInspector = Nothing

Set olDocument = Nothing

Set olSelection = Nothing

Set objMsg = Nothing
 
It worked perfectly....so thanks so so much......however it only fonts one mobile number instead of all mobile numbers as I added did the same code to take care of the mobile number font.....so here it is and would love to hear back!!

Sub CreateCalendarEventSelectedContacts_test3()
Dim ObjItem As Object
Dim strDynamicDL As String
Dim strDynamicDL2 As String
Dim strDynamicDL3 As String
Dim strDynamicDL6 As String
Dim strFullName As String
Dim strMobileNumber As String
Dim ContactName
Dim StartDateTime
Dim EndDateTime
Dim ShowAs
Dim itmAppt
Set oContact = ObjItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.selection

For Each ObjItem In objSelection
If ObjItem.Class = olContact Then

strFullName = ObjItem.FullName

strMobileNumber = ObjItem.UserProperties("Phone 4 Selected")

strDynamicDL = strDynamicDL & ObjItem.FullName & (";")

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: ") & strMobileNumber & (": ") & strFullName & vbCrLf

strDynamicDL6 = ObjItem.GetInspector.ModifiedFormPages("General").Controls("combobox11").Text& & vbCrLf
End If
Next
ContactName = strDynamicDL
Set MyFolder = Session.GetDefaultFolder(9).Folders(2)
Set itmAppt = MyFolder.items.Add("IPM.Appointment.Office Calendar Event")

itmAppt.Subject = ContactName & (" -- ") & strDynamicDL6

For Each ObjItem In objSelection
If ObjItem.Class = olContact Then
itmAppt.Location = ObjItem.GetInspector.ModifiedFormPages("General").Controls("combobox12").Text

With itmAppt.Body

itmAppt.Body = strDynamicDL2 & vbCrLf & strDynamicDL3
End With
StartDateTime = ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl1").value & " " & ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl1").Text

itmAppt.Start = StartDateTime
EndDateTime = ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl2").value & " " & ObjItem.GetInspector.ModifiedFormPages("General").Controls("OlkTimeControl2").Text

itmAppt.End = EndDateTime
ShowAs = ObjItem.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 ObjItem

End If
Next
itmAppt.Display

Dim olInspector As outlook.Inspector

Dim olDocument As Word.Document

Dim olSelection As Word.selection

Set olInspector = Application.ActiveInspector()

Set olDocument = olInspector.WordEditor

Set olSelection = olDocument.Application.selection

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 = strMobileNumber

> Replacement.Text = strMobileNumber

> Forward = True

> Wrap = wdFindContinue

> Format = True

> MatchCase = False

> MatchWholeWord = False

> MatchWildcards = False

> MatchSoundsLike = False

> MatchAllWordForms = False

End With

olSelection.Find.Execute Replace:=wdReplaceAll

Set olInspector = Nothing

Set olDocument = Nothing

Set olSelection = Nothing

Set objMsg = Nothing

Set objMsg = Nothing
Set ObjItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub
 
Status
Not open for further replies.
< Password for backup of Outlook | Re: lost my own meeting >
Similar threads
Thread starter Title Forum Replies Date
S outlook 2007 calendar search Using Outlook 6
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 4
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 0
S View Appointment in Text Wrap in Outlook 2007 Month Calendar View Using Outlook 0
R Outlook 2007 calendar colors Using Outlook 15
R Using Internet Calendar in Outlook 2007 within Citrix Using Outlook 1
F Outlook 2007 Calendar Appointments not in Outlook Today view Using Outlook 11
M calendar in outlook 2007 Using Outlook 1
M outlook 2007 calendar Using Outlook 2
J Outlook 2007 Error sharing Calendar: Error while preparing to send sharing message Using Outlook.com accounts in Outlook 2
P Outlook 2007 Calendar Ribbon has changed and I can't fix it Using Outlook 10
O Outlook Calendar 2007 - Invitation Times Using Outlook 19
K Outlook 2007 Calendar - Time spinner does not function correctly Using Outlook 1
V Setting up windows 7 & outlook 2007 w/ Iphone 4 & synch contacts & calendar Using Outlook 9
M sync Outlook 2007 calendar with icloud Using Outlook 1
B Outlook 2007 and Live Calendar Stopped Synching Using Outlook.com accounts in Outlook 4
A Change calendar permissions in Outlook 2007 Using Outlook 9
M Missing Calendar in Outlook 2007 Using Outlook 3
B cant accept iCal calendar invites in Outlook 2007 (SP3) Using Outlook 4
D Calendar Permissions Outlook 2003, 2007 and 2010 Exchange Server Administration 2
M Outlook 2007 Calendar Reminders Using Outlook 1
H Conflicts with other event in calendar ( outlook 2007 &amp; 2010) Using Outlook 0
P Outlook 2007 - Missing Calendar Item Using Outlook 4
P Outlook 2007 - Missing Calendar Item Using Outlook 1
D Outlook 2007 & 2010 calendar permissions Using Outlook 2
D Outlook 2007 - MeetingPlace Express - Calendar error Using Outlook 1
S Calendar sharing problmes between Outlook 2007 &amp; 2010 Exchange Server Administration 0
V Outlook 2007-Tasks not displaying in calendar Using Outlook 4
J Outlook 2007 and 2010 for multiple calendar users Using Outlook 1
B Scheduling a Meeting Resource (Room) with a conflict doesn't indicate any conflict on users calendar in Outlook 2007 Using Outlook 1
P the outlook 2007 calendar cannot be saved because it was changed by another user or in another windo Using Outlook 4
G How re referance a non defualt outlook 2007 calendar Outlook VBA and Custom Forms 3
J Outlook 2007 hangs when Calendar tab is clicked Exchange Server Administration 49
D Outlook 2007 Recovering E-Mails Using Outlook 0
W Transfer Outlook 2016 autocomplete file to Outlook 2007 Using Outlook 1
C Outlook 2007 Removing then adding account restores junk email processing Using Outlook 0
S Outlook 2007 crash linked to gdiplus.dll Using Outlook 0
S Outlook 2007 - Automatic purge fail Using Outlook 0
J outlook 2007 doesn't let me choose which .pst to search Using Outlook 2
D Outlook 2007 vs. Outlook 2010 -- ToDo Bar Using Outlook 0
D Outlook 2007 on 365 Using Outlook.com accounts in Outlook 2
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
S Verwendung von Outlook 2007 Using Outlook 0
A Arthur needs help with 2007 Outlook e-mail Using Outlook.com accounts in Outlook 3
M PST import from Outlook 2007 to 2010 - Address Book contacts all in 1 group Using Outlook 4
B Migrate Outlook 2007 to Office 365 Using Outlook 3
X I have met my waterloo trying to resolve embedded graphics problem with outlook 2007 and now 2016 Using Outlook 1
R Outlook 2007 only loads some appointments Using Outlook 0
C Move Outlook 2007 to new PC with Outlook 365 Using Outlook 3
J Outlook 2007 Hide Messages Option not Available Using Outlook 2

Similar threads

Back
Top