Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Appointment
The code below works fine as is. However if I change the
value for the myItem.Start to 'Range("B1").value and copy and past this value into 'B1', it errors with 'Type Mismatch: Unable to coerce parameter value ... Tried .Text same result different error. What am I missing here? Sub AppointSet() Dim myItem, myOlapp Set myOlapp = CreateObject("Outlook.Application") Set myItem = myOlapp.CreateItem(olAppointmentItem) myItem.Subject = Range("A1") 'value is "Testing" myItem.Location = "Conference Room B" myItem.Start = #5/11/2004 10:00:00 AM# myItem.Duration = Range("C1").Value 'value is 30 myItem.Save End Sub Thanks Be Guy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Appointment
Not sure exactly what you mean by '... copy and past this value into 'B1'
....', but I just ran it referring myItem.Start to range("B1"), with a date-time in B1 and it ran fine. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Be Guy" wrote in message ... The code below works fine as is. However if I change the value for the myItem.Start to 'Range("B1").value and copy and past this value into 'B1', it errors with 'Type Mismatch: Unable to coerce parameter value ... Tried .Text same result different error. What am I missing here? Sub AppointSet() Dim myItem, myOlapp Set myOlapp = CreateObject("Outlook.Application") Set myItem = myOlapp.CreateItem(olAppointmentItem) myItem.Subject = Range("A1") 'value is "Testing" myItem.Location = "Conference Room B" myItem.Start = #5/11/2004 10:00:00 AM# myItem.Duration = Range("C1").Value 'value is 30 myItem.Save End Sub Thanks Be Guy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Appointment
Should have been copy and paste. For me it will not read
from the cell reference. Did you format 'B1' to 'date- time'? Be Guy -----Original Message----- Not sure exactly what you mean by '... copy and past this value into 'B1' ....', but I just ran it referring myItem.Start to range ("B1"), with a date-time in B1 and it ran fine. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Be Guy" wrote in message ... The code below works fine as is. However if I change the value for the myItem.Start to 'Range("B1").value and copy and past this value into 'B1', it errors with 'Type Mismatch: Unable to coerce parameter value ... Tried .Text same result different error. What am I missing here? Sub AppointSet() Dim myItem, myOlapp Set myOlapp = CreateObject("Outlook.Application") Set myItem = myOlapp.CreateItem(olAppointmentItem) myItem.Subject = Range("A1") 'value is "Testing" myItem.Location = "Conference Room B" myItem.Start = #5/11/2004 10:00:00 AM# myItem.Duration = Range("C1").Value 'value is 30 myItem.Save End Sub Thanks Be Guy . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Appointment
Yeah I got the copy and paste. My question was really asking why you did, or
suggested that, as I could use the value in B1 without any copying and pasting. I simply typed a date/time value into B1, which then took a date format. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Be Guy" wrote in message ... Should have been copy and paste. For me it will not read from the cell reference. Did you format 'B1' to 'date- time'? Be Guy -----Original Message----- Not sure exactly what you mean by '... copy and past this value into 'B1' ....', but I just ran it referring myItem.Start to range ("B1"), with a date-time in B1 and it ran fine. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Be Guy" wrote in message ... The code below works fine as is. However if I change the value for the myItem.Start to 'Range("B1").value and copy and past this value into 'B1', it errors with 'Type Mismatch: Unable to coerce parameter value ... Tried .Text same result different error. What am I missing here? Sub AppointSet() Dim myItem, myOlapp Set myOlapp = CreateObject("Outlook.Application") Set myItem = myOlapp.CreateItem(olAppointmentItem) myItem.Subject = Range("A1") 'value is "Testing" myItem.Location = "Conference Room B" myItem.Start = #5/11/2004 10:00:00 AM# myItem.Duration = Range("C1").Value 'value is 30 myItem.Save End Sub Thanks Be Guy . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Appointment
Oops, the intent was to show that what worked within the
body of the macro would not work (for me) in the cell or vice versa what is typed in cell (and doesn't work) does work when pasted into the macro. The idea being that there wasn't a typo. This is strange, have tried it on Word 97, Office XP Pro along with Office 2000 and it won't work for me. I'm using a workbook for purchase recordkeeping and want to add the functionality (within Excel) of having an appointment sent to Outlook for a popup when something is due. Outlook is always open but Excel is not. Any and all suggestions or links greatly appreciated. Thanks, Be Guy -----Original Message----- Yeah I got the copy and paste. My question was really asking why you did, or suggested that, as I could use the value in B1 without any copying and pasting. I simply typed a date/time value into B1, which then took a date format. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Be Guy" wrote in message ... Should have been copy and paste. For me it will not read from the cell reference. Did you format 'B1' to 'date- time'? Be Guy -----Original Message----- Not sure exactly what you mean by '... copy and past this value into 'B1' ....', but I just ran it referring myItem.Start to range ("B1"), with a date-time in B1 and it ran fine. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Be Guy" wrote in message ... The code below works fine as is. However if I change the value for the myItem.Start to 'Range("B1").value and copy and past this value into 'B1', it errors with 'Type Mismatch: Unable to coerce parameter value ... Tried .Text same result different error. What am I missing here? Sub AppointSet() Dim myItem, myOlapp Set myOlapp = CreateObject("Outlook.Application") Set myItem = myOlapp.CreateItem(olAppointmentItem) myItem.Subject = Range("A1") 'value is "Testing" myItem.Location = "Conference Room B" myItem.Start = #5/11/2004 10:00:00 AM# myItem.Duration = Range("C1").Value 'value is 30 myItem.Save End Sub Thanks Be Guy . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating Appointment | Excel Discussion (Misc queries) | |||
Appointment Calendar.xlt help | Excel Discussion (Misc queries) | |||
Linking appointment dates | Excel Worksheet Functions | |||
Appointment Card Template | New Users to Excel | |||
Appointment calendar in Excel | Excel Programming |