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
.
|