Tom's Guide | Tom's Hardware | Tom's Games
![]() |
![]() |
![]() |
Hi I have a excel sheet where users can fill the details and then click a button "Email". This button runs a macro and it opens a new message box of the default email program and pasts the details entered by the users.
I need help in creating calendar appointments using the same concept. Is it possible... Please help.

Dim outlookApp as Object
Dim outlookItem as ObjectSet outlookApp = CreateObject("outlook.application")
Set outlookItem = outlookApp.CreateItem(olTaskItem)With outlookItem
.Subject = "the subject"
.Body = "the body"
.NoAging = True
.DueDate = ""
.StartDate = ""
.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
.Importance = ""
.ReminderSet = True
.ReminderTime = ""
.Close (olSave)
End WithSet outlookItem = Nothing
Set outlookApp = Nothing

The fourth row should be
Set outlookItem = outlookApp.CreateItem(olTaskItem)
(I updated my first reply).You will have to fill in the values for the dates etc.

![]() |
![]() |
![]() |
| Login or Register to Reply | |
| Login | Register |
| Ads by Google |